ByteScout Image To Video SDK – VBScript – Double Speed

Home
/
Articles
/
ByteScout Image To Video SDK – VBScript – Double Speed

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

How to double speed in VBScript using ByteScout Image To Video SDK

The tutorial below will demonstrate how to double speed in VBScript

The sample source codes on this page shows how to double speed in VBScript. 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 and you can use it to double speed with VBScript.

The SDK samples like this one below explain how to quickly make your application do double speed in VBScript with the help of ByteScout Image To Video SDK. 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. Further enhancement of the code will make it more vigorous.

Free trial version of ByteScout Image To Video SDK is available on our website. Documentation and source code samples 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)

multiple.vbs

      ' You can speed up the conversion using the following technique:
' 1) Generate video parts in parallel threads;
' 2) Combine these parts into final video.
' Let us say you have 20 slides.
' Then you can run a thread to convert 1-10 slides and another one to convert 11-20 slides.
' Finally combine these parts into a single one using .JoinWMVFiles(part1, part2, output) 
' or .JoingAVIFiles(part1, part2, output) functions.


Set converter1 = CreateObject("BytescoutImageToVideo.ImageToVideo") 
Set converter2 = CreateObject("BytescoutImageToVideo.ImageToVideo") 

converter1.SetLogFile "log1.txt" 
converter2.SetLogFile "log2.txt" 

' 1st thread
converter1.AddImageFromFileName("slide1.jpg")
converter1.AddImageFromFileName("slide2.jpg")
converter1.AddImageFromFileName("slide3.jpg")

' 2nd thread
converter2.AddImageFromFileName("slide4.jpg")
converter2.AddImageFromFileName("slide5.jpg")
converter2.AddImageFromFileName("slide6.jpg")
    
Set slides1 = converter1.Slides
Set slides2 = converter2.Slides

slides1.GetSlide(0).Effect = 1
slides1.GetSlide(1).Effect = 1
slides1.GetSlide(2).Effect = 1


slides2.GetSlide(0).Effect = 1
slides2.GetSlide(1).Effect = 1
slides2.GetSlide(2).Effect = 1

' set output video filename for parts (WMV or AVI)
converter1.OutputVideoFileName = "part1.wmv"
converter2.OutputVideoFileName = "part2.wmv"

converter2.Run
converter1.Run

while converter1.IsRunning Or converter2.IsRunning
     WScript.Sleep 100
wend

' Join parts into the final video file (you may also use .JoinAVIFiles() to join AVI files)
converter1.JoinWMVFiles "part1.wmv", "part2.wmv", "Final.wmv"

MsgBox "All threads are done."

Set slide1 = Nothing
Set slides1 = Nothing
Set converter1 = Nothing

Set slide2 = Nothing
Set slides2 = Nothing
Set converter2 = Nothing


' Open the output file in default app
Set shell = CreateObject("WScript.Shell")
shell.Run "final.wmv", 1, false
Set shell = Nothing