1) Copy the following code into the Notepad.
Dim msg, sapi
msg=InputBox("Enter your text for conversion","Chetan malabade-Text-To-Audio
Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
2) Save this as Convert.vbs. and see the results.
No comments:
Post a Comment