fachrur's blog...

Pertama-tama buka dulu editor-na....
hehehheee...
terserah mo pake note pad, wordpad, notepad++ ato apalah....
trus ketik code di bawah ini.....

___________
Dim msg, jasakom
msg=InputBox("Masukin kalimat rur","Fachrur ngomong ma komputer")
Set jasakom=CreateObject("sapi.spvoice")
jasakom.Speak msg
__________________

trus jgn lupa di save pake ext. vbs
n......ding dong......
jadi dech...........
(nama file-na terserah kamu, lebih afdol klo dikasih nama "fachrurcool")
hehehehe...

Met mencoba...!!! jgn lupa dibuka file-na, trus.....tulis dech apa yang pingin kamu dengar dari kompi-mu

kalimat-na jgn trlalu bnyk, ntar kdenger-na mbulet.....alias mbwuuulet....heheheheh....


sumber:cruzen

Share