Every ByteScout tool contains example VBScript source codes that you can find here or in the folder with installed ByteScout product. ByteScout SWF To Video SDK was made to help with FLV to AVI in VBScript. ByteScout SWF To Video SDK is the library that can take SWF (Flash Macromedia) files and convert into WMV or AVI video with sound. Dynamic flash movie scenes, variables, actionscripts are supported and you also may adjust output video size, framerate and quality.
VBScript code snippet like this for ByteScout SWF To Video SDK works best when you need to quickly implement FLV to AVI in your VBScript application. VBScript sample code is all you need: copy and paste the code to your VBScript application’s code editor, add a reference to ByteScout SWF To Video SDK (if you haven’t added yet) and you are ready to go! Enjoy writing a code with ready-to-use sample VBScript codes to add FLV to AVI functions using ByteScout SWF To Video SDK in VBScript.
Trial version can be downloaded from our website. Source code samples for VBScript and documentation are included.
' x64 IMPORTANT NOTE: set CPU to x86 to build in x86 mode. WHY? Because flash is not supported on x64 platform currently at all ' Create an instance of SWFToVideo ActiveX object Set converter = CreateObject("BytescoutSWFToVideo.SWFToVideo") ' Set debug log 'converter.SetLogFile "log.txt" ' Register SWFToVideo converter.RegistrationName = "demo" converter.RegistrationKey = "demo" ' Set input SWF file converter.InputSWFFileName = "../../video.flv" ' you may calculate output video duration using information about the the source swf movie ' WARNING #1: this method to calculate the output video duration is not working for movies with dynamic scenes ' and interactive scripts as in these movies it is not possible to calculate the precise duration of the movie ' WARNING #2: you should set the input swf or flv filename (or url) before this calculation ' So the movie duration is calculated as the following: ' as swf frame count (number of frames in the swf) / movieFPS (frames per second defined in swf) ' and then multiplied by 1000 (as we are setting the .ConverstionTimeout in milliseconds) ' as the following (uncomment if you want to set the length of the output video to the same as the original swf) ' or as the following source code (uncomment to enable): ' converter.ConversionTimeout = 1000 * (converter.FrameCount / converter.MovieFPS) ' Set output WMV or AVI video file converter.OutputVideoFileName = "result.AVI" ' Set output movie dimensions converter.OutputWidth = 640 converter.OutputHeight = 480 ' Run conversion converter.RunAndWait ' Open result in default media player Set shell = CreateObject("WScript.Shell") shell.Run "result.avi", 1, false Set shell = Nothing Set converter = Nothing