notepad trick

This is the trick with notepad you can do. But remember you need Speaker or Headphone for this trick.

Let’s start open a notepad file. And write this:-

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

Save this file with name “Speak.vbs”
And now open it and write something in it and hit Enter.