
1. Open Notepad and copy and paste the following code into it
Dim message, sapi
message=InputBox("What do you want me to say")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
2. Now save the notepad file with the extension .vbs for eg: speak.vbs
3. Now double click on speak.vbs,you can see a window as shown below,type in the box whatever you want your computer to speak for you.

Its really a nice trick to impress your friends...try this and enjoy.........
NOTE: You can change the message to whatever you like,that is inplace of "what do you want me to say",you can give your own message within the double quotes.
No comments:
Post a Comment