1.Open notepad
2.copy this code and paste on your notepad
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
2.copy this code and paste on your notepad
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
3.now save the file with is name " sapi.vbs " on desktop.
4.go to desktop double click on the sapi.type your text and press ok.
then your computer will speak..
No comments:
Post a Comment