Ｂｌａｃｋ Ｂａｔｉｘ Ｓｑｕａｄ

Nih Tutor.a Gan
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 anda tulis apapun textbox dan tekan Ok !!
Di Jamin Bisa Berbicara
Selamat mencoba ^_^
Credit By:-Oktri N3XSIT0 And Me