Link Search Menu Expand Document

Set Low FPS and Min WMV Size for Video - VBScript and VB6

Screen Capturing SDK sample in VBScript and VB6 demonstrating ‘Set Low FPS and Min WMV Size for Video’

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

' set output video file name to .WMV
capturer.OutputFileName = "RecordScreenWithLowestFPSAndMinVideoSizeOutput.wmv"

' set WMV video codec to Windows Media Video 9 Screen that gives best quality/size ratio when recording from screen
capturer.CurrentWMVVideoCodecName = "Windows Media Video 9 Screen"
' disable audio so we will have a video only (and the lowest wmv file size as possible: about 20 kb per 1 second, about 70 mb per 1 hour
capturer.AudioEnabled = false 
' set FPS to 0.5 fps (1 frame per every 2 seconds)
' you may also want to set to 1 fps (1 frame per 1 second or higher)
capturer.FPS = 0.50
' 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

' add time stamp

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

' 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 5 sec

' stop capturing

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

MsgBox "Done Recording!"

Download Source Code (.zip)

Return to the previous page Explore Screen Capturing SDK