The sample source code below will teach you how to capture entire screen video with transparent windows in VBScript and VB6. ByteScout Screen Capturing SDK is the screen video recording SDK helps in quick implementation of screen video recording. WMV, AVI, WebM output options are available with adjustable quality, video size, framerate and video and audio codec. Includes special features like live multiple blacking out of selected areas, recording from web cam as main source and as overlay, optional watermarks for output video. It can be used to capture entire screen video with transparent windows using VBScript and VB6.
You will save a lot of time on writing and testing code as you may just take the VBScript and VB6 code from ByteScout Screen Capturing SDK for capture entire screen video with transparent windows below and use it in your application. In order to implement the functionality, you should copy and paste this code for VBScript and VB6 below into your code editor with your app, compile and run your application. This basic programming language sample code for VBScript and VB6 will do the whole work for you to capture entire screen video with transparent windows.
Free trial version of ByteScout Screen Capturing SDK is available on our website. Documentation and source code samples are included.
' create video capturer activex object Set capturer = CreateObject("BytescoutScreenCapturing.Capturer") ' set output video file name to .WMV or .AVI file capturer.OutputFileName = "EntireScreenCaptured.wmv" ' set capturing type to the caScreen =3 to capture the entire screen capturer.CapturingType = 3 ' output video width capturer.OutputWidth = 640 ' output video height capturer.OutputHeight = 480 capturer.SetLogFile "log.txt" ' enabling recording of semitransparent or layered windows (Warning: may cause mouse cursor flickering) capturer.CaptureTransparentControls = true ' uncomment to set Bytescout Lossless Video format output video compression method ' do not forget to set file to .avi format if you use Video Codec Name ' capturer.CurrentVideoCodecName = "Bytescout Lossless"; MsgBox "This script will record 640x480 video from entire screen for 15 seconds. Output video will go to EntireScreenCaptured.avi" ' run video capturing capturer.Run() ' IMPORTANT: if you want to check for some code if need to stop the recording then make sure you are ' using Thread.Sleep(1) inside the checking loop, so you have the loop like ' Do ' Thread.Sleep(1) ' While StopButtonNotClicked ' wait for 15 seconds (15000 msec) WScript.Sleep(15000) ' stop capturing capturer.Stop() ' destroy Capturer object so the video will be saved into the disk Set capturer = Nothing