Make Your Computer Speak Anything

Now this is a really cool trick if you really want to impress your friends. In fact it is so easy that you can make this in front of them show them your programming skills. This works on all Microsoft operating systems. Follow the steps below and create your own Text To Voice software:

• Open Notepad.

•  Paste the following code into it:


Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
         

• Save the Notepad file with the name speak.vbs

• Now double-click on  it and type in the box whatever you want the computer to say.

It is really fun to do this in front of your friends. Have fun!