Make your computer speak what you type

December 18, 2010

One of my friend has send me this nice code to make your computer speak what you type.

1. copy the below written code...

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

2. Open a notepad in desktop
3. Paste this code
4. Save the notepad as "speak.vbs"(dont forget to give "" while giving name)

5.Close the notepad
6.Double click on speak.vbs

You Might Also Like