GeoString

Tuesday, June 15, 2010

Make ur pc talk...

Copy the following code in a notepad and save it as '.vbs' extension
Click on the saved file and type the word u want to hear from the PC!!
------------------------------------------------
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
------------------------------------------------

No comments:

Post a Comment