Capture webcam full screen only is easy to implement in VBScript and VB6 if you use these source codes below. 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. It can be used to capture webcam full screen only using VBScript and VB6.
VBScript and VB6 code samples for VBScript and VB6 developers help to speed up coding of your application when using ByteScout Screen Capturing SDK. Just copy and paste the code into your VBScript and VB6 application’s code and follow the instruction. Enjoy writing a code with ready-to-use sample codes in VBScript and VB6.
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 to .WMV or .AVI file capturer.OutputFileName = "CaptureWebCamOnlyFullScreen.wmv" ' set capturing type to the catWebcamFullScreen =5 to capture the entire screen capturer.CapturingType = 5 ' output video width capturer.OutputWidth = 640 ' output video height capturer.OutputHeight = 480 ' set to use hardware web cam capturer.CurrentWebCamName = "USB" ' uncomment to enable recording of semitransparent or layered windows (Warning: may cause mouse cursor flickering) ' capturer.CaptureTransparentControls = true MsgBox "This script will record 640x480 video from web camera with 'USB' name 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