> Open Notepad.
> Copy the following VB script.
> Save it as (any name).vbs [Eg : audio.vbs ]
1. Dim msg, sapi
2. msg=InputBox("Enter your Text here to Speak it","Text-To-Audio Converter")
3. Set sa=CreateObject ("sapi.spvoice")
4. sa.Speak msg
> How it Works?
> Create two variables for Dimentions i.e Dim [ used for declearing variables ]
> Here i have Decleared two variables msg and sapi.
> To Display a Input Message Box use a method known InputBox("Here type your own content to display","Here type the content to set as Title").
> Pass the typed text to a variable msg.
> Set an Object variable as sa and Create an Object "sapi.spvoice" ,here spvoice has been called by variable sapi.
> Call Speak using an Object sa and pass Text holding value msg variable.
> Now itz completed.
> Copy the following VB script.
> Save it as (any name).vbs [Eg : audio.vbs ]
1. Dim msg, sapi
2. msg=InputBox("Enter your Text here to Speak it","Text-To-Audio Converter")
3. Set sa=CreateObject ("sapi.spvoice")
4. sa.Speak msg
> How it Works?
> Create two variables for Dimentions i.e Dim [ used for declearing variables ]
> Here i have Decleared two variables msg and sapi.
> To Display a Input Message Box use a method known InputBox("Here type your own content to display","Here type the content to set as Title").
> Pass the typed text to a variable msg.
> Set an Object variable as sa and Create an Object "sapi.spvoice" ,here spvoice has been called by variable sapi.
> Call Speak using an Object sa and pass Text holding value msg variable.
> Now itz completed.
No comments:
Post a Comment