ByteScout Screen Capturing SDK – VBScript and VB6 – Capture Full Screen with WebCam

Home
/
Articles
/
ByteScout Screen Capturing SDK – VBScript and VB6 – Capture Full Screen with WebCam

printable version:
ByteScout-Screen-Capturing-SDK-VBScript-and-VB6-Capture-Full-Screen-with-WebCam.pdf

How to capture full screen with webcam in VBScript and VB6 and ByteScout Screen Capturing SDK

The tutorial below will demonstrate how to capture full screen with webcam in VBScript and VB6

This sample source code below will demonstrate you how to capture full screen with webcam in VBScript and VB6. ByteScout Screen Capturing SDK can capture full screen with webcam. It can be used from VBScript and VB6. ByteScout Screen Capturing SDK is the SDK for developers for quick implementation of screen video recording. The SDK records screen into video or into a series of screenshots. Can also record audio. Saves video into AVI,WMV and Google’s WebM. Output video quality, size, resolution or framerate can be adjusted easily. Provides additional tools for privacy features like blacking out on scren areas with sensitive information on screen right during recording. Supports web camera as input and can add instant text and images into video output.

VBScript and VB6 code samples for VBScript and VB6 developers help to speed up coding of your application when using ByteScout Screen Capturing SDK. In your VBScript and VB6 project or application you may simply copy & paste the code and then run your app! Code testing will allow the function to be tested and work properly with your data.

Free trial version of ByteScout Screen Capturing SDK is available on our website. Documentation and source code samples are included.

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

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

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