Link Search Menu Expand Document

Capture Given Window And Stop Video On Window Closed - VBScript and VB6

Screen Capturing SDK sample in VBScript and VB6 demonstrating ‘Capture Given Window And Stop Video On Window Closed’

' 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 

' 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

' stop capturing

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

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

Download Source Code (.zip)

Return to the previous page Explore Screen Capturing SDK

Copyright © 2016 - 2021 ByteScout