clik start - Run - (tuliskan Notepad) - Notepad , copy paste kode ini :
Dim msg, sapi
msg = InputBox ( "Apa Yang Ingin kau katakan ?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Save file notepad tersebut dalam format ( .vbs ) caranya rubah (.txt) menjadi (.vbs)
selesai...
by: SURYA HADI