Sample source code below will show you how to cope with a difficult task like capture video from flashplayer control in browser in VBScript and VB6. Want to capture video from flashplayer control in browser 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.
Fast application programming interfaces of ByteScout Screen Capturing SDK for VBScript and VB6 plus the instruction and the code below will help you quickly learn how to capture video from flashplayer control in browser. 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.
Our website provides trial version of ByteScout Screen Capturing SDK for free. It also includes documentation and source code samples.
' create video capturer activex object Set capturer = CreateObject("BytescoutScreenCapturing.Capturer") ' set output video file name (WMV), you can also set to AVI capturer.OutputFileName = "GivenWindowCaptured-FlashPlayerControl.avi" ' set capturing type to the caWindow =1 to capture the given window capturer.CapturingType = 1 MsgBox "This script will record video from Flash Player control in Internet Explorer or another browser for 15 seconds. Please run Internet Explorer and open any web-site with flash player (for example, YouTube.com) and click OK" ' set log file name capturer.SetLogFile "log-control.txt" ' uncomment to enable recording of semitransparent or layered windows (Warning: may cause mouse cursor flickering) ' capturer.CaptureTransparentControls = true ' set window class to capture from flash player activex control capturer.WindowClassToCapture = "MacromediaFlashPlayerActiveX " ' uncomment to capture semitransparent controls as well 'capturer.CaptureTransparentControls = true ' set width of the output video capturer.OutputWidth = 640 ' set height of the output video capturer.OutputHeight = 480 ' 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 (15000 msec) WScript.Sleep(15000) ' stop capturing capturer.Stop() ' destroy Capturer object so the video will be saved into the disk Set capturer = Nothing MsgBox "Done"