Source code documentation samples provide quick and easy way to add a required functionality into your application. ByteScout Image To Video SDK was made to help with 70 advanced 3d effects 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.
VBScript, code samples for VBScript, developers help to speed up the application development and writing a code when using ByteScout Image To Video SDK. To do 70 advanced 3d effects in your VBScript project or application you may simply copy & paste the code and then run your app! Enhanced documentation and tutorials are available along with installed ByteScout Image To Video SDK if you’d like to dive deeper into the topic and the details of the API.
Trial version can be obtained from our website for free. It includes this and other source code samples for VBScript.
MsgBox "This sample script generates video with all 3D advanced transition effects! Please be patient (it takes about 1-2 min)" ' Create an instance of BytescoutImageToVideo.ImageToVideo ActiveX object Set converter = CreateObject("BytescoutImageToVideo.ImageToVideo") ' Activate the component converter.RegistrationName = "demo" converter.RegistrationKey = "demo" ' set default in effect for slides (you can also set effects for each single slide) converter.Slides.DefaultSlideInEffect = 0 ' default effect converter.Slides.DefaultSlideInEffectDuration = 1000 ' 1000 msec for slide transition effect effect converter.Slides.DefaultSlideDuration = 1000 ' uncomment to use background picture ' converter.SetBackgroundPictureFileName "..\..\background.jpg" ' set auto fit images mode converter.AutoFitImages = True ' apply transition effect to the very first slide converter.UseInEffectForFirstSlide = True bChangeSlide = True ' temporary variable to change slides ' now try all 3D advanced transition effects from 67 (dissolve) to 140 for i=67 to 140 ' Add slide image, set the duration if not bChangeSlide then Set slide = converter.AddImageFromFileName("slide1.jpg") Else Set slide = converter.AddImageFromFileName("slide2.jpg") End If bChangeSlide = not bChangeSlide ' switch to use another slide next tim slide.InEffect = i ' effect index Next ' Set output video size converter.OutputWidth = 640 converter.OutputHeight = 480 ' Set output video file name converter.OutputVideoFileName = "70advanced3DEffects.wmv" ' Run the conversion converter.RunAndWait() MsgBox "Done! See 70advanced3DEffects.wmv" Set converter = Nothing ' Open the output file in default app Set shell = CreateObject("WScript.Shell") shell.Run "70advanced3DEffects.wmv", 1, false Set shell = Nothing