CaptureGivenWindowAndCrop.vbs
' 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
Click here to get your Free Trial version of the SDK