ByteScout Screen Capturing SDK - VBScript and VB6 - Capture Given Window And Crop - ByteScout
Announcement
Our ByteScout SDK products are sunsetting as we focus on expanding new solutions.
Learn More Open modal
Close modal
Announcement Important Update
ByteScout SDK Sunsetting Notice
Our ByteScout SDK products are sunsetting as we focus on our new & improved solutions. Thank you for being part of our journey, and we look forward to supporting you in this next chapter!

ByteScout Screen Capturing SDK – VBScript and VB6 – Capture Given Window And Crop

  • Home
  • /
  • Articles
  • /
  • ByteScout Screen Capturing SDK – VBScript and VB6 – Capture Given Window And Crop

ByteScout Screen Capturing SDK – VBScript and VB6 – Capture Given Window And Crop

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

Tutorials:

prev
next