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:
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