Dim msg, sapi msg=InputBox("Enter your text","Talk it") Set sapi=CreateObject("sapi.spvoice") sapi.Speak msg |
Copy the above code & Paste in Notepad.
Save the file with a (*.vbs) extension, it will create a VBScript File.
Execute it (Double click on it).
It will prompt you for a text, input the text & press Ok.
~
No comments:
Post a Comment