Komputer Berbicara

Cara membuatnya gampang, pertama buka Notepad
Kemudian 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 beri nama mypc.vbs

Selesai

Coba sekarang anda dobel klik file tersebut apa katanya?  hehehe

Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik dua kali 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