Komputer kita bisa bicara

ternyata komputer kita bisa bicara lo,mo tau caranya ikuti langkah2 berikut:

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

#Save as, kemudian pilih all files lalu kasih nama mypc.vbs

Selesai

Coba sekarang anda klik 2x.. Gimana? keren kan

#Atau kalau yang nggak 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

100% berhasil coba saja…