These source code samples are listed and grouped by their programming language and functions they use. ByteScout Image To Video SDK: the library for conversion of images into video slideshow. Provides built-in support for more than hundred of 2D and 3D transition effects. Output formats supported are AVI,WMV and WEBM video files. You may adjust output video size, quality, framerate and add audio. It can set background music from file in VBScript.
You will save a lot of time on writing and testing code as you may just take the VBScript code from ByteScout Image To Video SDK for set background music from file below and use it in your application. In your VBScript project or application you may simply copy & paste the code and then run your app! Enjoy writing a code with ready-to-use sample codes in VBScript.
ByteScout Image To Video SDK free trial version is available on our website. VBScript and other programming languages are supported.
' Create an instance of BytescoutImageToVideo.ImageToVideo ActiveX object Set converter = CreateObject("BytescoutImageToVideo.ImageToVideo") ' Activate the component converter.RegistrationName = "demo" converter.RegistrationKey = "demo" converter.SetLogFile "log.txt" MsgBox "The script will now convert 3 slides into Result.wmv video file" ' set default in effect for slides (you can also set effects for each single slide) converter.Slides.DefaultSlideInEffect = 1 ' teFadeIn (1) - fades in effect for slides transition converter.Slides.DefaultSlideInEffectDuration = 500 ' 500 msec for in effect ' Add images and set the duration for every slide Set slide = converter.AddImageFromFileName("..\..\slide1.jpg") slide.Duration = 3000 ' 3000ms = 3s Set slide = converter.AddImageFromFileName("..\..\slide2.jpg") slide.Duration = 3000 Set slide = converter.AddImageFromFileName("..\..\slide3.jpg") slide.Duration = 3000 ' Set output video size converter.OutputWidth = 640 converter.OutputHeight = 480 ' Set background music converter.ExternalAudioTrackFromFileName = "bgmusic.mp3" ' Set output video file name converter.OutputVideoFileName = "result.wmv" ' Run the conversion converter.RunAndWait() MsgBox "Result.wmv is ready. Script will try to open the video in default media player" ' Open result in default media player Set shell = CreateObject("WScript.Shell") shell.Run "result.wmv", 1, false Set shell = Nothing Set converter = Nothing