Converting Text to Speech Using Notepad.
 |
Just copy and paste the code down below into notepad and save as a .vbs file. When you play it, you’ll get a dialog box asking what you want the computer to say. Have fun.
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
0 comments:
Post a Comment