Convert Text Ke Audio Dengan Notepad

Convert Text Ke Audio Dengan Notepad

Selamat Malam , di malam hari ini saya hanya akan sekedar berbagi tutorial sederhana yaitu Convert Text ke Audio, penasaran dengan cara nya ? simak artikel ini sampai habis

1.Siapkan Notepad
2.Buka Notepad
3.Copy Script nya

Dim message, sapi
 message = InputBox("Convert Text ke Audio"+vbcrlf+"Kunjungi - www.a666g.blogspot.com","Text to Audio converter")
 Set sapi = CreateObject("sapi.spvoice")
 sapi.Speak message

4.Lalu simpan dengan pengaturan All Files , lalu simpan script dengan ekstensi .vbs ( contoh.vbs )
5.Lalu ketikan kata-kata yang akan di buat menjadi Audio
6. klik "OK" untuk mengubah kata-kata yang tadi di ketika di Text Box
7.Setelah klik "OK" audio akan secara otomatis terputar