ByteScout Screen Capturing SDK – VBScript and VB6 – Capture Entire Screen and Web Cam Video

  • Home
  • /
  • Articles
  • /
  • ByteScout Screen Capturing SDK – VBScript and VB6 – Capture Entire Screen and Web Cam Video

ByteScout Screen Capturing SDK – VBScript and VB6 – Capture Entire Screen and Web Cam Video

CaptureScreenVideoWithWebCam.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 = "ScreenWithWebCamera.wmv"

' set web camera device to add overlaying video to the source

' set webcamera device name or you can set the device by index using .CurrentWebCam property
capturer.CurrentWebCamName = "USB Video Device"

' set rectangle to show overlaying video from webcam into the rectangle 160x120 (starting with left point at 10, 10)
capturer.SetWebCamVideoRectangle 10, 10, 160, 120

' enable webcam overlaying capture device
capturer.AddWebCamVideo = true

' set capturing type to the caScreen =3 to capture the entire screen
capturer.CapturingType = 3

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

MsgBox "This script will record 160x120 video from web camera for 15 seconds. Output video will go to ScreenWithWebCamera.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


' 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

DisplayAllAvailableWebCams.vbs

Set capturer = CreateObject("BytescoutScreenCapturing.Capturer")

if capturer.WebCamCount > 0 Then
 for i=0 to capturer.WebCamCount-1
  MsgBox "Webcamera device name = " & CStr(i) & ", Name: " & capturer.GetWebCamName (i)
 next
Else
 MsgBox "no web cam installed or plugged to this computer"
End If



Set Capturer = Nothing


  Click here to get your Free Trial version of the SDK

prev
next