Cara Membuat Sofware 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? … 





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

Sumber