Search This Blog

Monday, 17 September 2012

CONVERT TEXT INTO AUDIO USING NOTEPAD



CONVERT TEXT INTO AUDIO USING NOTEPAD

Dim msg, sapi
msg=InputBox("Enter your text for conversion–www.techvorm.com","TechVorm Text-To-Audio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

Save this file with any name with PANKAJ.vbs as extension. For eg. Text-To-Audio.vbs


:- PANKAJ TIWARI

No comments:

Post a Comment