ByteScout Image To Video SDK – VBScript – Set WMV Audio Format

Home
/
Articles
/
ByteScout Image To Video SDK – VBScript – Set WMV Audio Format

printable version:
ByteScout-Image-To-Video-SDK-VBScript-Set-WMV-Audio-Format.pdf

How to set WMV audio format in VBScript with ByteScout Image To Video SDK

This tutorial will show how to set WMV audio format in VBScript

Source code documentation samples provide quick and easy way to add a required functionality into your application. ByteScout Image To Video SDK can set WMV audio format. It can be used from 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.

This code snippet below for ByteScout Image To Video SDK works best when you need to quickly set WMV audio format in your VBScript application. In order to implement the functionality, you should copy and paste this code for VBScript below into your code editor with your app, compile and run your application. Use of ByteScout Image To Video SDK in VBScript is also explained in the documentation included along with the product.

You can download free trial version of ByteScout Image To Video SDK from our website to see and try many others 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)

SetWMVAudioFormatForSelectedAudioWMVCodec.vbs

      ' Create an instance of BytescoutImageToVideo.ImageToVideo ActiveX object
Set converter = CreateObject("BytescoutImageToVideo.ImageToVideo")

' Activate the component
converter.RegistrationName = "demo"
converter.RegistrationKey = "demo"

' Add images and set the duration for every slide
Set slide = converter.AddImageFromFileName("..\..\slide1.jpg")
slide.Duration = 1000 ' 3000ms = 3s

' Set output video size
converter.OutputWidth = 320
converter.OutputHeight = 240

' converter.SetLogFile "log.txt"

' Set background music
converter.ExternalAudioTrackFromFileName = "..\..\bgmusic.mp3"

' set current WMV audio codec - we set it to "Windows Media Audio 9"
' to view all available wmv audio codecs use .WMVAudioCodecsCount and GetWMVAudioCodecName(index) 
' or you can see all available codecs in the log file (use .SetLogFile("log.txt")

converter.CurrentWMVAudioCodecName = "Windows Media Audio 9"

' now list available audio formats for current WMV audio codec

sWMVAudioFormatsInfo = ""

For i = 0 to converter.WMVAudioFormatCount -1 
 sWMVAudioFormatsInfo = sWMVAudioFormatsInfo & vbCRLF & CStr(i) & " : " & converter.GetWMVAudioFormatDescription (i)
Next

MsgBox "WMV audio codec formats for Windows Media Audio 9 audio codec available are:" & sWMVAudioFormatsInfo

' now set wmv audio format to the first available
converter.CurrentWMVAudioFormat = 0


' 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