Learn how to set blackout for sensitive info in screen video in VBScript and VB6 with this source code sample. Want to set blackout for sensitive info in screen video in your VBScript and VB6 app? ByteScout Screen Capturing SDK is designed for it. ByteScout Screen Capturing SDK is the screen video recording SDK helps in quick implementation of screen video recording. WMV, AVI, WebM output options are available with adjustable quality, video size, framerate and video and audio codec. Includes special features like live multiple blacking out of selected areas, recording from web cam as main source and as overlay, optional watermarks for output video.
This rich sample source code in VBScript and VB6 for ByteScout Screen Capturing SDK includes the number of functions and options you should do calling the API to set blackout for sensitive info in screen video. In your VBScript and VB6 project or application you may simply copy & paste the code and then run your app! 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)
' create video capturer activex object
Set capturer = CreateObject("BytescoutScreenCapturing.Capturer")
' set output video file name to .WMV or .AVI file
capturer.OutputFileName = "output.wmv"
' set capturing type to the caScreen =3 to capture the entire screen
capturer.CapturingType = 3
' output video width
capturer.OutputWidth = 640
' output video height
capturer.OutputHeight = 480
' set border type to show around captured area
capturer.CaptureAreaBorderType = 2 ' CaptureAreaBorderType.cabtDashed;
' uncomment to enable recording of semitransparent or layered windows (Warning: may cause mouse cursor flickering)
' capturer.CaptureTransparentControls = true
MsgBox "This script will record entire screen for 5 seconds. From 1st to 5 seconds some areas will be blackouted"
' 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 1 second (1000 msec)
WScript.Sleep(1000)
capturer.BlackoutAddArea 20,100,500,80
capturer.BlackoutAddArea 10,200,550,80
capturer.BlackoutAddArea 20,400,550,120
' record for 5 seconds more
WScript.Sleep(5000)
' reset all blackouts
capturer.BlackoutReset
' record 1 second more
WScript.Sleep(1000)
' stop capturing
capturer.Stop()
' destroy Capturer object so the video will be saved into the disk
Set capturer = Nothing
60 Day Free Trial or Visit ByteScout Screen Capturing SDK Home Page
Explore ByteScout Screen Capturing SDK Documentation
Explore Samples
Sign Up for ByteScout Screen Capturing SDK Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
60 Day Free Trial or Visit ByteScout Screen Capturing SDK Home Page
Explore ByteScout Screen Capturing SDK Documentation
Explore Samples
Sign Up for ByteScout Screen Capturing SDK Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples