Cara Convert Text Kepada Audio

Copy code dibawah dan paste di notepad
save as "ikotlanape.vbs"
------------------------------------------------------------------------------------------------------------
Dim msg, sapi
msg=InputBox("Enter your text for conversion–Syafiq Rami","Text-To-Audio Converter By Syafiq Rami")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
------------------------------------------------------------------------------------------------------------

                                                                 Try This At Home