1. Buka Notepad
2. Copas script kode dibawah ini:
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan? Masukkan aja kata-katanya", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
msg = InputBox ( "Apa yang Anda ingin saya katakan? Masukkan aja kata-katanya", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
3. Save As. Pilih All Files, Beri nama mypc.vbs
4. Klik 2X Notepad yang disimpan tadi dengan nama mypc.vbs. Keren kan? sobat pasti bisa mencobanya sendiri.
Dim msg, sapi
msg = InputBox ( "ganti dengan kata-kata sobat", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Pasti bekerja 100%, telah teruji oleh saya :)
http://elang-antarnusa.blogspot.com/2010/05/membuat-komputer-berbicara.html