Wednesday 7 March 2012

Make a "Text to speech converter"

Open notepad.
Copy and paste following code and save it as "speak.vbs":

Dim userinputuserinput

userinputuserinput = inputbox("Type below to hear your computer speak")
set sapi = wscript.createobject("SAPI.Spvoice")
Sapi.speak userinputuserinput
 


Double click on speak.vbs. A dialog box will be opened like:

No comments:

Post a Comment