Oke, langsung aja...
Buka notepad dan copas kode berikut...
[code]
'========================================
Dim msg, jasakom
msg=InputBox("Masukkan Kalimat","Ngomong Dong")
Set jasakom=CreateObject("sapi.spvoice")
jasakom.Speak msg
'=========================================
[/code]
Nah simpan dengan nama Terserah.vbs dan jalankan...
Setelah itu masukkan atau ketik kata2 yang diinginkan...
Nyalakan speaker sekeras mungkin dan "ENTER"...
Semoga berguna...
from : http://cruzenaldo.blogspot.com
Tidak ada komentar:
Posting Komentar