Trik ini aku dapet dari forum sebelah... :D
Oke, langsung aja.
- Yang pertama kita buka dulu notepad
- Setelah itu copy code di bawah ini ke notepad tadi :
Dim pesan, sapi
pesan = InputBox ( "Apa yang Anda ingin saya katakan?", "Berbicaralah kepada-Ku")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak pesan
- Setelah itu "Save AS" dengan nama "speak" atau terserah teman teman asalkan harus diakhiri dengan .vbs. Misal, "Speak.vbs".
- Setelah itu klik dua kali untuk membuka file tadi, maka akan keluar jendela dialog box seperti ini :
- Nah, disitu saya menuliskan "hi, good morning" maka setelah klik tombol OK komputer akan mengatakan sesuai yang kita tuliskan tadi.
Semoga bermanfaat

*.:。✿ Don't forget to come back again ✿.。.:*

*.:。✿ Don't forget to come back again ✿.。.:*

Visit Wahyudi Blog !
Sumber : kaskus.us
Tidak ada komentar:
Posting Komentar
Plisss...
Jangan nyepam (spam), jangan promosi (apapun itu), jangan SARA, jangan OOT...
Mohon kerja samanya, berikan komentar yang berbobot dan bermanfaat bagi semua... ^^