ByteScout Image To Video SDK – VBScript – Simple

Home
/
Articles
/
ByteScout Image To Video SDK – VBScript – Simple

printable version:
ByteScout-Image-To-Video-SDK-VBScript-Simple.pdf

simple in VBScript and ByteScout Image To Video SDK

Make simple in VBScript

Tutorial on how to do simple in VBScript

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.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

SimpleSlideshow.vbs

      ' 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