Make your computer to speak what ever you type


Just copy the code below and save it in the notepad as anyname.vbs.
Then double click on the file you see a textbox like this

Then type what ever you want and click ok button.....
copy the code below:

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



0 Response to Make your computer to speak what ever you type

Post a Comment