ByteScout Screen Capturing SDK – VBScript and VB6 – Take Manual Screenshots During Video Recording

Home
/
Articles
/
ByteScout Screen Capturing SDK – VBScript and VB6 – Take Manual Screenshots During Video Recording

printable version:
ByteScout-Screen-Capturing-SDK-VBScript-and-VB6-Take-Manual-Screenshots-During-Video-Recording.pdf

take manual screenshots during video recording in VBScript and VB6 and ByteScout Screen Capturing SDK

How To: tutorial on take manual screenshots during video recording in VBScript and VB6

The coding tutorials are designed to help you test the features without need to write your own code. ByteScout Screen Capturing SDK was made to help with take manual screenshots during video recording in VBScript and VB6. ByteScout Screen Capturing SDK is the SDK for developers for quick implementation of screen video recording. The SDK records screen into video or into a series of screenshots. Can also record audio. Saves video into AVI,WMV and Google’s WebM. Output video quality, size, resolution or framerate can be adjusted easily. Provides additional tools for privacy features like blacking out on scren areas with sensitive information on screen right during recording. Supports web camera as input and can add instant text and images into video output.

You will save a lot of time on writing and testing code as you may just take the code below and use it in your application. This VBScript and VB6 sample code should be copied and pasted into your application’s code editor. Then just compile and run it to see how it works. Enhanced documentation and tutorials are available along with installed ByteScout Screen Capturing SDK if you’d like to dive deeper into the topic and the details of the API.

Visit our website provides for free trial version of ByteScout Screen Capturing SDK. Free trial includes lots of source code samples to help you with your VBScript and VB6 project.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

RecordVideoAndScreenshots.vbs

      ' 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

' 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";             

' uncomment to enable recording of semitransparent or layered windows (Warning: may cause mouse cursor flickering)
' capturer.CaptureTransparentControls = true


' set the screenshot saving mode type: 0=none (default), 1=onmouseclick, 2=ontimer, 3=manual (using TakeScreenshot() method only)
capturer.ScreenshotSavingType = 3 ' take screenshots on mouse click

' set output folder for the screenshots
set fso = CreateObject("Scripting.FileSystemObject")
' directory in which this script is currently running
CurrentDirectory = fso.GetAbsolutePathName(".")
capturer.ScreenshotOutputFolder = CurrentDirectory ' set output folder to the current one

' set image format for the screenshots (png = 0, bmp = 1)
capturer.ScreenshotImageFormat = 0


MsgBox "This script will record 640x480 video from entire screen for 10 seconds. Output video will go to EntireScreenCaptured.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


capturer.TakeScreenshot "screenshot1.png"

' sleep 2 seconds
WScript.sleep (2000)

capturer.TakeScreenshot "screenshot2.png"

' sleep 8 seconds
WScript.sleep (8000)

capturer.TakeScreenshot "screenshot3.png"


' stop capturing
capturer.Stop()

' destroy Capturer object so the video will be saved into the disk
Set capturer = Nothing