ByteScout Image To Video SDK – VBScript – Background Picture

Home
/
Articles
/
ByteScout Image To Video SDK – VBScript – Background Picture

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

background picture in VBScript using ByteScout Image To Video SDK

Make background picture in VBScript

Tutorial on how to do background picture in VBScript

Writing of the code to background picture in VBScript can be done by developers of any level using ByteScout Image To Video SDK. Background picture in VBScript can be implemented with ByteScout Image To Video SDK. ByteScout Image To Video SDK is the software development kit that can take a set of images and generate video slide show from them. Includes built-in support for 100+ of 2-D and 3-D slide transitions effects. Supports output in WMV, AVI, WEBM video formats.

VBScript, code samples for VBScript, developers help to speed up the application development and writing a code when using ByteScout Image To Video SDK. VBScript sample code is all you need: copy and paste the code to your VBScript application’s code editor, add a reference to ByteScout Image To Video SDK (if you haven’t added yet) and you are ready to go! Test VBScript sample code examples whether they respond your needs and requirements for the project.

Trial version can be downloaded from our website. Source code samples for VBScript and documentation are included.

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

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

BackgroundPicture.vbs

      ' 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 = 1 ' teFadeIn (1) - fades in effect for slides transition
converter.Slides.DefaultSlideInEffectDuration = 500 ' 500 msec for in effect

' Set movie background picture
converter.SetBackgroundPictureFileName "..\..\background.jpg"


' 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