2. tulis kode kode ini.. atau bisa di kopi paste aja...
Dim msg, idgs
msg=InputBox("Masukkan Kalimat","==Komputer_berbicara==")
Set idgs=CreateObject("sapi.spvoice")
idgs.Speak msg
3. save dengan ekstensi .vbs
caranya...
klik save as...
tulis namanya di kotak file name... misal "ganteng.vbs" (tanpa kutip)
di kotak save type... ganti ke all files jangan "txt"
lalu... jalanin de...
nb : kalau kamu pake vista... caranya klik kanan... open with... pilih yang
"microsoft (R) windows based script host"
enjoy :D
credit :
suhu bloodiez
Tidak ada komentar:
Posting Komentar