Sample source code below will show you how to cope with a difficult task like capture given window and crop video in VBScript and VB6. Want to capture given window and crop video in your VBScript and VB6 app? ByteScout Screen Capturing SDK is designed for it. ByteScout Screen Capturing SDK is the tool for developers who want to add screen capturing in their application. Can record screen into video and into single screenshots. Output formats are WMV, AVI, WebM for video and PNG for screenshots. You can adjust output video size, quality, resolution, framerate, video and audio codecs. Includes special privacy features for blacking out sensitive information on screen. Can also capture video from web camera, can add overlays with text or images.
VBScript and VB6 code samples for VBScript and VB6 developers help to speed up coding of your application when using ByteScout Screen Capturing SDK. This VBScript and VB6 sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Test VBScript and VB6 sample code examples whether they respond your needs and requirements for the project.
Trial version of ByteScout Screen Capturing SDK can be downloaded for free from our website. It also includes source code samples for VBScript and VB6 and other programming languages.
' create video capturer activex object Set capturer = CreateObject("BytescoutScreenCapturing.Capturer") capturer.SetLogFile "log.txt" ' set output video file name (WMV), you can also set to AVI capturer.OutputFileName = "GivenWindowCaptured.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 10 seconds. Please run Internet Explorer and click OK" capturer.WindowToCapture = "Internet Explorer" ' set coordinates to crop video from Internet Explorer (so we capture video from IE window and then SDK crops it) capturer.CropEnabled = true ' enable cropping of input video capturer.CropRectLeft = 50 capturer.CropRectTop = 50 capturer.CropRectWidth = 320 capturer.CropRectHeight = 240 ' uncomment to enable recording of semitransparent or layered windows (Warning: may cause mouse cursor flickering) ' capturer.CaptureTransparentControls = true ' 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 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 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 (10000 msec) WScript.Sleep(10000) ' stop capturing capturer.Stop() ' destroy Capturer object so the video will be saved into the disk Set capturer = Nothing