- Open New Notpad In Desktop And Paste Following Code in It -
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice") sapi.Speak message
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice") sapi.Speak message
- Now Save Your Notpad With Any Name With .vbs extenion. Example – Speak.vbs
- Now Double Click On Your Saved File. New Box Is Opened Type Whatever You Want Your Computer To Speak And Click Ok.
It Is Very Impressive And Funny Trick. Enjoy !!
- Now Double Click On Your Saved File. New Box Is Opened Type Whatever You Want Your Computer To Speak And Click Ok.
It Is Very Impressive And Funny Trick. Enjoy !!
No comments:
Post a Comment