Every ByteScout tool contains example VBScript and VB6 source codes that you can find here or in the folder with installed ByteScout product. Want to capture video from silverlight control in browser 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.
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 silverlight control in browser. Just copy and paste the code into your VBScript and VB6 application’s code and follow the instruction. Test VBScript and VB6 sample code examples whether they respond your needs and requirements for the project.
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-SilverlightControl.avi" ' set capturing type to the caWindow =1 to capture the given window capturer.CapturingType = 1 MsgBox "This script will record video from Silverlight control in Internet Explorer for 15 seconds. Please run Internet Explorer and open any web-site with silverlight content and click OK" capturer.SetLogFile "log-control.txt" ' set window class to capture to MicrosoftSilverlight so this will record from silverlight control inside browser capturer.WindowClassToCapture = "MicrosoftSilverlight" ' uncomment to enable recording of semitransparent or layered windows (Warning: may cause mouse cursor flickering) ' 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"