The sample source codes on this page will demonstrate you how to make SWF to video in VB.NET. ByteScout SWF To Video SDK was made to help with SWF to video in VB.NET. ByteScout SWF To Video SDK is the SDK that is capable of converting SWF macromedia files into WMV and AVI video. Supports dynamic flash movies, can transmit variable values. Options to change output video size, framerate, quality are available.
VB.NET code snippet like this for ByteScout SWF To Video SDK works best when you need to quickly implement SWF to video in your VB.NET application. VB.NET sample code is all you need: copy and paste the code to your VB.NET 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! You can use these VB.NET sample examples in one or many applications.
ByteScout SWF To Video SDK free trial version is available for download from our website. Free trial also includes programming tutorials along with source code samples.
' x64 IMPORTANT NOTE: set CPU to x86 to build in x86 mode. Imports BytescoutSWFToVideo Module Module1 Sub Main() ' Create an instance of SWFToVideo ActiveX object Dim converter As New SWFToVideo() ' Set debug log 'converter.SetLogFile("log.txt") ' Register SWFToVideo converter.RegistrationName = "demo" converter.RegistrationKey = "demo" ' Set input SWF file converter.InputSWFFileName = "SlideShowWithEffects.swf" ' 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.wmv" ' Set output movie dimensions converter.OutputWidth = 640 converter.OutputHeight = 480 ' Run conversion converter.RunAndWait() ' release resources System.Runtime.InteropServices.Marshal.ReleaseComObject(converter) converter = Nothing ' Open the result movie in default media player Process.Start("result.wmv") End Sub End Module