.

nih we kasih bocoran supaya komputer anda berbicara sesuai dengan kata² yang anda tuliskan. dan jangan lupa siapkan speaker untuk outputnya !

1. pada desktop klik kanan trus klik new>cari tulisan text documen/notepad
2. copy kode yang aku kasih ini ke notepad tersebut

kode pertama :

Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

3. trus klik file > save as...>beri nama dile tersebut ALLWORLD.vbs.

KODE OTOMATIS

1. pada desktop klik kanan trus klik new>cari tulisan text documen/notepad
2. copy kode yang aku kasih ini ke notepad tersebut

kode kedua

Dim msg, sapi
msg = "Silahkan Kunjungi yuniorishandsome.blogspot.com{ganti dengan kata² anda disini}"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

3. trus klik file > save as...>beri nama dile tersebut ALLWORLD.vbs

Gampangkan.... Silakan Dicoba !!!