1
2
3
4
| Dim Message, Speak Message=InputBox("Enter your text","Text to Speech") Set Speak=CreateObject("sapi.spvoice") Speak.Speak Message |
Just open notepad and copy this text. Save with whatever name you want, as long as it ends with the .vbs file extension. Then just double-click on the icon to open the program. The program gives you a text box where you can type what you want it to say.
No comments:
Post a Comment