Komputer berbicara

Komputer anda ingin bisa berbicar nih saya punya ...
Caranya :
1. Buka notepad, Start --> All Programs -->Accessories --> Notepad, atau masuk di RUN lalu ketik notepad dan Enter.

Dim msg, sapi
msg = InputBox ( "Apa Yang Anda Ingin Saya Katakan?", "Masukan Kata-Katanya Disini !!")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

2. trus save dengan nama apa aja terserah kamu yang penting harus ber-exstensi .vbs
contoh : speak.vbs jangan lupa save as type nya kamu pilih yang all files.

3. klik 2 kali pada file .vbs yang kamu save tadi.

4. ketikkan kata2 yang mau di ucapkan oleh komputer kamu pada kotak dialog yang muncul,
trus klik OK.

5. Dan dengarkan suara yang keluar dari komputer kamu...

Atau misalnya kamu mau yang langsung berbicara tanpa harus mengetikkan kata2 nya terlebih dahulu, kamu bisa menggunakan script yang di bawah ini.

Dim msg, sapi
msg = "Welcome To My blog !!"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak ms