Step 1: Copy following code and paste in a notepad
CreateObject("SAPI.SpVoice").Speak"Type Your Text Here"
Change highlighted text as your wish
Step 2: Save notepad as test.vbs(Test can be any name but text file should have .vbs extension)
Click on test.vbs
Done
Note: Works on windows systems only.
Another script:
Dim message, sapi
Message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
Sapi.Speak message
Set sapi=CreateObject("sapi.spvoice")
Sapi.Speak message
No comments:
Post a Comment