Saturday, July 21, 2012

Make Your Computer Speak


 
 Here is the awesome trick that make your computer speak
Copy and Paste the below code in notepad

Dim msg, sapi
msg=InputBox("Enter your text for conversion–www.techvorm.com","TechVorm Text-To-Audio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

and then save with anyname.vbs ( Here the extension should be VBS)
Make your that your filename.vbs should be in double quotes. like "filename.vbs"

Save and double click the file.

Just Type what you want and listen what your computer says... Enjoy

No comments:

Post a Comment