VB6 code – convert SWF to video

VB6 code – convert SWF tutorial shows how to convert SWF to WMV video file using SWF to Video SDK. Use the sample Visual Basic 6 source code below for SWF to video conversion.

VB6

Private Sub Command1_Click()

   ' 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 = "SlideShowWithEffects.swf"

   ' Set output video file
   converter.OutputVideoFileName = "result.wmv"

   ' 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.wmv", 1, false
Set shell = Nothing

Set converter = Nothing

End Sub