ByteScout tutorials are designed to explain the code for both VBScript and VB6 beginners and advanced programmers. ByteScout Screen Capturing SDK can capture entire screen to HD WMV video. It can be used from 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.
The SDK samples like this one below explain how to quickly make your application do capture entire screen to HD WMV video in VBScript and VB6 with the help of ByteScout Screen Capturing SDK. Just copy and paste the code into your VBScript and VB6 application’s code and follow the instruction. Enjoy writing a code with ready-to-use sample VBScript and VB6 codes.
Free trial version of ByteScout Screen Capturing SDK is available for download from our website. Get it to try other source code samples for VBScript and VB6.
' create video capturer activex object Set capturer = CreateObject("BytescoutScreenCapturing.Capturer") ' set output video file name to .WMV capturer.OutputFileName = "EntireScreenCapturedHD.wmv" ' set capturing type to the caScreen =3 to capture the entire screen capturer.CapturingType = 3 ' set bitrate to 10 mb/sec - high bitrate is required for HD video capturer.WMVVideoBitrate = 1024*1024*10 ' output video width and height to HD video size 1920x1080 capturer.OutputWidth = 1920 capturer.OutputHeight = 1080 ' uncomment to enable recording of semitransparent or layered windows (Warning: may cause mouse cursor flickering) ' capturer.CaptureTransparentControls = true MsgBox "This script will record 1920x1080 video from entire screen for 15 seconds. Output video will go to EntireScreenCapturedHD.wmv" ' 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 MsgBox "Ready! Check EntireScreenCapturedHD.wmv"