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.
' 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