Guest Book

Kamis, 20 Mei 2010

Buat Komputer kamu bicara

Buka notepad dan copas kode berikut...

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... Kedip
Setelah itu masukkan atau ketik kata2 yang diinginkan... Kedip
Nyalakan speaker sekeras mungkin dan "ENTER"... Terkejut

Semoga berguna... Senyum

0 komentar:

Posting Komentar