Membuat komputer bicara

1. Pertama, buka notepad.
2. Copy-Paste script berikut :

Dim msg, sapi

msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")

Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg


3. Save as, kemudian pilih all files lalu kasih nama mypc.vbs
4. Selesai

Coba sekarang anda klik 2x..

Gimana?? keren kan??



Atau kalau yang tidak mau menggunakan InputBox (Jadi pas di klik 2x langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :



Dim msg, sapi

msg = "Ganti dengan kata-kata anda"

Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg



Tips ini sudah saya coba dan hasilnya : 100% Tested n Worked..!!