Here you may find thousands pre-made source code pieces for easy implementation in your own programming VBScript projects. ByteScout Image To Video SDK was made to help with simple in VBScript. ByteScout Image To Video SDK is 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.
The SDK samples like this one below explain how to quickly make your application do simple in VBScript with the help of ByteScout Image To Video SDK. Follow the instruction from the scratch to work and copy and paste code for VBScript into your editor. VBScript application implementation typically includes multiple stages of the software development so even if the functionality works please test it with your data and the production environment.
ByteScout Image To Video SDK free trial version is available for download from our website. Free trial also includes programming tutorials along with source code samples.
' Create an instance of BytescoutImageToVideo.ImageToVideo ActiveX object Set converter = CreateObject("BytescoutImageToVideo.ImageToVideo") ' Activate the component converter.RegistrationName = "demo" converter.RegistrationKey = "demo" 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 slide separately) converter.Slides.DefaultSlideInEffect = 1 ' teFadeIn (1) - "fade-in" slides transition effect converter.Slides.DefaultSlideInEffectDuration = 500 ' "in" effect duration ' 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 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