Capture Full Screen with WebCam - VBScript and VB6
Screen Capturing SDK sample in VBScript and VB6 demonstrating ‘Capture Full Screen with WebCam’
CaptureScreenAndWebcam.vbs
' create video capturer activex object
Set capturer = CreateObject("BytescoutScreenCapturing.Capturer")
' set output video file name to .WMV or .AVI file
capturer.OutputFileName = "EntireScreenCapturedAndWebcam.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 enable recording of semitransparent or layered windows (Warning: may cause mouse cursor flickering)
' capturer.CaptureTransparentControls = true
' 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";
' set to use hardware web cam as overlay
capturer.CurrentWebCamName = "USB"
capturer.SetWebCamVideoRectangle 10, 10, 160, 120
capturer.AddWebCamVideo = true
MsgBox "This script will record 640x480 video from entire screen plus web cam (first available is selected) for 15 seconds. Output video will go to EntireScreenCaptured.avi"
' 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