ByteScout Screen Capturing SDK – VBScript and VB6 – Capture Screen Video Around Mouse

Home
/
Articles
/
ByteScout Screen Capturing SDK – VBScript and VB6 – Capture Screen Video Around Mouse

printable version:
ByteScout-Screen-Capturing-SDK-VBScript-and-VB6-Capture-Screen-Video-Around-Mouse.pdf

How to capture screen video around mouse in VBScript and VB6 using ByteScout Screen Capturing SDK

This tutorial will show how to capture screen video around mouse in VBScript and VB6

We made thousands of pre-made source code pieces for easy implementation in your own programming projects. Want to capture screen video around mouse in your VBScript and VB6 app? ByteScout Screen Capturing SDK is designed for it. 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.

You will save a lot of time on writing and testing code as you may just take the VBScript and VB6 code from ByteScout Screen Capturing SDK for capture screen video around mouse below and use it in your application. 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! Code testing will allow the function to be tested and work properly with your data.

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.

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

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

CaptureRegionAroundMouse.vbs

      ' create video capturer activex object
Set capturer = CreateObject("BytescoutScreenCapturing.Capturer")

' set output video file name (WMV), you can also set to AVI 
capturer.OutputFileName = "RegionAroundMouseCaptured.wmv" 

' set capturing type to the caMouse =2 to capture the region around the mouse curosr. You can also set to caRegion = 0 (to record from the given rectangle on screen) or to caScreen = 3 (to capture entire screen)
capturer.CapturingType = 2

' set width of the rectangle to capture from
capturer.CaptureRectWidth = 640
' set height of the rectangle to capture from
capturer.CaptureRectHeight = 480

' set width of the output video
capturer.OutputWidth = 640
' set height of the output video
capturer.OutputHeight = 480

' uncomment to enable recording of semitransparent or layered windows (Warning: may cause mouse cursor flickering)
' capturer.CaptureTransparentControls = true

' set border type to show around captured area
capturer.CaptureAreaBorderType = 2 ' CaptureAreaBorderType.cabtDashed;

' 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"

MsgBox "Script will record 640x480 region around the mouse cursor for 10 seconds. Output video will go to CaptureScreenVbs.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