Link Search Menu Expand Document

Set Blackout for Sensitive Info in Screen Video - VBScript and VB6

Screen Capturing SDK sample in VBScript and VB6 demonstrating ‘Set Blackout for Sensitive Info in Screen Video’

' 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 

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

capturer.BlackoutAddArea 20,100,500,80
capturer.BlackoutAddArea 10,200,550,80
capturer.BlackoutAddArea 20,400,550,120

' record for 5 seconds more

' reset all blackouts

' record 1 second more

' stop capturing

' destroy Capturer object so the video will be saved into the disk
Set capturer = Nothing

Download Source Code (.zip)

Return to the previous page Explore Screen Capturing SDK