Buka Notepad Lalu Copas ( Copy-Paste ) code ini :
Dim msg, sapi
msg = InputBox ( "Tulis lalu dengarkan", "Tulis Kalimat/kata2/huruf")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
lalu save dengan nama : Nama.vbs
yang berwarna merah bisa diganti
yang berwarna biru tidak boleh diganti
Tidak ada komentar:
Posting Komentar