Dim message,sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
just copy and paste in notepad and save as something.vbs and just double click on it
make your computer speak
Dim message,sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
just copy and paste in notepad and save as something.vbs and just double click on it
0 comments:
Post a Comment
Write your views in comment....