Open a Text File In Notepad And Write:
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Replace Red Area With "
Save the File With a (*.vbs) Extension
--------------------
Friday, January 9, 2009
Subscribe to:
Post Comments (Atom)
0 comments:
Post a Comment