Make your XP system Talk
Sunday, May 17, 2009
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Copy the code in Red to a file in Notepad
Save it with any name with .vbs extension and Enjoy!!!!!
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Copy the code in Red to a file in Notepad
Save it with any name with .vbs extension and Enjoy!!!!!
Post a Comment