Techie Weblog for Geeks
Welcome Cosmo Cyber Check out Weblinks Page for Great stuff

Friday, January 1, 2010

[W] Make your XP Talk

Make your XP Talk



Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg



Copy the above code & Paste in Notepad.
Save the file with a (*.vbs) extension, it will create a VBScript File.
Execute it (Double click on it).
It will prompt you for a text, input the text & press Ok.


~

No comments:

Post a Comment