Oke, langsung aja…
Buka notepad dan copas kode berikut…
Code:
Dim msg, jasakom
msg=InputBox("Masukkan Kalimat","Ngomong Dong")
Set jasakom=CreateObject("sapi.spvoice")
jasakom.Speak msg
Nah simpan dengan nama Terserah.vbs dan jalankan…
Setelah itu masukkan atau ketik kata2 yang diinginkan…
Nyalakan speaker sekeras mungkin dan “ENTER”…
Semoga berguna…
1 Comment:
kalo ane gini gan scriptnya
Dim msg, sapi
msg = "Masukan kata disini"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg