Thursday, 8 November 2012

Make Your Computer Speak Whatever You Type

                                               
Steps
1. Open the Notepad.
2.Copy/Write the code as given below into the notepad.
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
3. Save the file with any name with an extension .vbs
4. Run the file, type anything you want in the textbox and press OK.
5. Enjoy !

                      

No comments:

Post a Comment