ByteScout Image To Video SDK – VBScript – 70 Advanced 3D Effects

Home
/
Articles
/
ByteScout Image To Video SDK – VBScript – 70 Advanced 3D Effects

printable version:
ByteScout-Image-To-Video-SDK-VBScript-70-Advanced-3D-Effects.pdf

70 advanced 3d effects in VBScript with ByteScout Image To Video SDK

How to code 70 advanced 3d effects in VBScript: How-To tutorial

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.

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

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

70advanced3DtransitionEffects.vbs

      
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