Membuat Komputer Bersuara

Pasti kamu pernah mencoba menggunakan Speech dalam komputer kamu kan? Nah, script ini berfungsi hampir sama. Script ini menggunakan sistem suara yang memang sudah ada dalam Windows. Berikut bentuk Scriptnya :

Dim msg, suara

msg=InputBox("Masukkan Kalimat","Bersuara")

Set suara=CreateObject("sapi.spvoice")

suara.Speak msg

Copy dan paste script diatas pada notepad, kemudian save dengan ekstensi .vbs, misal ngomong.vbs.

Selamat mencoba..