
-Pertama, buka Notepad.
-Copy-Paste script berikut ke Notepad:
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
-Save as, kemudian pilih "All Files",...