dim msg, sapi
msg=inputbox("Masukkan Kata","Pembaca - belog.praba.web.id")
set sapi=createobject("sapi.spvoice")
sapi.speak msg
script ini dicopy ke notepad, kemudian disimpan dengan extensi vbs, misalnya katakan.vbs, ingat ketika menyimpan save as type gunakan All Files, sehingga extensinya tidak vbs.txt
script ini saya dapat dari echo.or.id
File jadinya ada DISINI
0 comments:
Post a Comment