Make your computer speak

Hey guyz in this post i will show you how to make your computer speak with the help of a notepad.
Just copy the below code and paste it in notepad.
Save the file with whatever name yo wamt but with extension .vbs (for eg : speaking.vbs)
Code start:-


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

Code end:-
Now start asking your computer to speak what ever you want.
If you have any query about this post do reply....