1. Open notepad
2. Copy and Paste the following code:
and instead of xxxxx enter your name
the code:
------------------------------------------------------------------------------------------------------------
Dim msg, sapi
msg=InputBox("Enter your text for Conversation | Tool by xxxxx","Text-To-Audio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
------------------------------------------------------------------------------------------------------------
3.save at .text_audio.vbs

4. Run it everything u will type in it. it will convert that text into audio
2. Copy and Paste the following code:
and instead of xxxxx enter your name
the code:
------------------------------------------------------------------------------------------------------------
Dim msg, sapi
msg=InputBox("Enter your text for Conversation | Tool by xxxxx","Text-To-Audio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
------------------------------------------------------------------------------------------------------------
3.save at .text_audio.vbs

4. Run it everything u will type in it. it will convert that text into audio
No comments:
Post a Comment