Silahkan copas script berikut ke notepad :
Code:
Dim msg, sapi
msg=InputBox("Tulis kalimat dikolom, lalu klik OK","Dedicated For IF Members")
Set sapi=CreateObject("sapi.spvoic e")
sapi.Speak msg
lalu save as dalam bentuk .VBS
untuk mengetesnya, pertama2x nyalakan speaker , lalu ketik kalimat apa aja dikolom, lalu klik OK. Maka sesaat kemudian akan terdengar suara, persis seperti apa yg kita tulis kolom...
selamat mencoba...
Kumpulan Software2 gratis: www.software4.tk
Tidak ada komentar:
Posting Komentar
Silahkan posting komentar anda