buat agan-agan yang pengen notepadnya berbicara
copy-paste aja tulisan ini ke notepad
setelah itu save dengan dot(.)msg
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
wass.
Tidak ada komentar:
Posting Komentar