Open Notepad file on your Windows PC.
Copy and paste the below mentioned code :
Copy and paste the below mentioned code :
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 .vbs as extension. For eg. Text-To-Audio.vbs
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 .vbs as extension. For eg. Text-To-Audio.vbs
Thats it ! Your Text to Audio converter is ready to be used. Now open the saved file and key in the text you want to convert and click OK. If you find any difficulties in using this code, let me know via comments section.
.png)
0 comments:
Post a Comment