ByteScout Screen Capturing SDK – VBScript and VB6 – Capture Given Window And Stop Video On Window Closed

Home
/
Articles
/
ByteScout Screen Capturing SDK – VBScript and VB6 – Capture Given Window And Stop Video On Window Closed

printable version:
ByteScout-Screen-Capturing-SDK-VBScript-and-VB6-Capture-Given-Window-And-Stop-Video-On-Window-Closed.pdf

How to capture given window and stop video on window closed in VBScript and VB6 and ByteScout Screen Capturing SDK

The tutorial shows how to capture given window and stop video on window closed in VBScript and VB6

On this page you will learn from code samples for programming in VBScript and VB6.Writing of the code to capture given window and stop video on window closed in VBScript and VB6 can be done by developers of any level using ByteScout Screen Capturing SDK. 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 and you can use it to capture given window and stop video on window closed with VBScript and VB6.

This rich sample source code in VBScript and VB6 for ByteScout Screen Capturing SDK includes the number of functions and options you should do calling the API to capture given window and stop video on window closed. 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. Further enhancement of the code will make it more vigorous.

You can download free trial version of ByteScout Screen Capturing SDK from our website to see and try many others source code samples for VBScript and VB6.

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

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

CaptureGivenWindowAndStopIfWindowClosed.vbs

      ' create video capturer activex object
Set capturer = CreateObject("BytescoutScreenCapturing.Capturer")

' set output video file name (WMV), you can also set to AVI 
capturer.OutputFileName = "WindowCaptured.wmv"

' set capturing type to the caVisibleWindow=4 (captures from the window) or caWindow=1 (may flicker but captures from non-visible windows as well) 
capturer.CapturingType = 4

MsgBox "This script will record video from Internet Explorer for 60 seconds OR will stop if Window was closed." & vbCRLF  & vbCRLF  & "Please run Internet Explorer and click OK"

capturer.WindowToCapture = "Internet Explorer"

' set width of the output video
capturer.OutputWidth = 640
' set height of the output video
capturer.OutputHeight = 480

' set border type to show around captured area
capturer.CaptureAreaBorderType = 2 ' CaptureAreaBorderType.cabtDashed;

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

' uncomment to set another output video compression method, Bytescout Lossless, DivX or MJPEG (if installed)
' you can use lossless video format, Bytescout Lossless Video Codec
' capturer.CurrentVideoCodecName = "Bytescout Lossless"

' 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


' count number of seconds actually recorded
SecondsActuallyCaptured = 0

' wait for 60 seconds, checking if window is still available every 1 second
for i=0 to 60 
 WScript.Sleep(1000) ' wait for 1 second
 SecondsActuallyCaptured = SecondsActuallyCaptured + 1
 if Not capturer.WindowToCaptureIsAvailable Then ' check if window to capture is still available
  Exit For ' break if the window to capture from is not available anymore
 End If
Next 

' stop capturing
capturer.Stop()

MsgBox "Recorded " & CStr(SecondsActuallyCaptured) & " second(s)"

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