How To Convert Text Into Audio Using Notepad

How To Convert Text Into Audio Using Notepad:

just pest it in the notepad and
save it as anything.vbs

code:

Dim msg, sapi
msg=InputBox("ENTER THE TEXT�HACKPC0038.BLOGSPOT.COM","Text-To-Audio Converter by siddharth :)")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

.

Posted in: PC Tips n Tricks