Buat Komputer Berbicara (100% Jalan)

ni tutorial boleh nemu pas gua jalan2 ke kaskus kayaknya bagus buat dishare..cara membuat komputer bicara sendiri
ikuti langkah2 berikut :
1) BUKA notePad.

2) COPY CODE DI BAWAH INI Pada Notepad

Dim pesan, sapi
pesan = InputBox ( "Apa yang Anda ingin saya katakan?", "Berbicaralah kepada-Ku")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak pesan


3) Simpan dengan nama apapun dengan akhiran .vbs


4) INGAT UNTUK SAVE THE FILE AS. VBS


5) Double klik file tersebut.


6) SEKARANG tulis apapun textbox dan tekan ok



7) KOMPUTER ANDA AKAN BERBICARA APA YANG ANDA TELAH TERTULIS DALAM TEKS BOX ANDA !!!!!!!!