Membuat Komputer Berbicara Sesuai Dengan Kata Yang Kita Tulis

Copy Script Dibawah ini dan paste Di Notpade Anda

Dim message, sapi
message=InputBox("Monggo ngomong opo?","Ucapane kula")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message



Simpan dengan format *.vbs.
Lalu Buka File Tersebut