Kode:
Dim msg, r00t
msg=InputBox("Masukkan Kalimat","Ngomong Dong")
Set r00t=CreateObject("sapi.spvoice")
r00t.Speak msg
Nah abis itu simpan dengan nama Terserah.vbs dan jalankan...

Setelah itu masukkan atau ketik kata2 yang diinginkan...

Nyalakan speaker sekeras mungkin dan "ENTER"...

Semoga berguna...


0 komentar:
Posting Komentar