ByteScout Image To Video SDK – VBScript – Set Background Music from file

Home
/
Articles
/
ByteScout Image To Video SDK – VBScript – Set Background Music from file

printable version:
ByteScout-Image-To-Video-SDK-VBScript-Set-Background-Music-from-file.pdf

How to set background music from file in VBScript and ByteScout Image To Video SDK

This code in VBScript shows how to set background music from file with this how to tutorial

These source code samples are listed and grouped by their programming language and functions they use. ByteScout Image To Video SDK: 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. It can set background music from file in VBScript.

You will save a lot of time on writing and testing code as you may just take the VBScript code from ByteScout Image To Video SDK for set background music from file below and use it in your application. In your VBScript project or application you may simply copy & paste the code and then run your app! Enjoy writing a code with ready-to-use sample codes in VBScript.

ByteScout Image To Video SDK free trial version is available on our website. VBScript and other programming languages are supported.

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"

converter.SetLogFile "log.txt"

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

' 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 background music
converter.ExternalAudioTrackFromFileName = "bgmusic.mp3"

' 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