Let your computer speaks whatever you type:

. Let your computer speaks whatever you type: 

Folks, with this cool trick you create a small tool where you can type and convert in to voice. The process is very easy. All you have to do is : 

1) Open notepad and paste the following code 

Dim message, sapi

message=InputBox("hello from pctrick.com, Do you want your computer to speak?","for more tricks visit pctrick.com")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message

2)  Then click file, then click save as and choose any name and .vbs extension. For notepad the usual extension is .txt , so you have to change .txt extension to .vbs. For example  ,  Pctrick.vbs 

3) Thats it! Double click on the icon and box will pop up. Type whatever you want listen and click ok. The computer will speak the sentence you type in the box.