How to make your computer speak whatever you type:

1. Open Notepad and copy-paste the following code into it.

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

2. Save it with the name speak.vbs and click Enter.


3. Double click the saved file and Speak to Me application will open. Type in the box all the things you want your computer to say and then click OK.

-------------------------------------------------------------------------
Thanks to : http://theheatweb.com
-------------------------------------------------------------------------