Mau komputer anda dapat bicara sesuai apa yang anda tuliskan, berikut ini ada trik sederhana untuk mewujudkannya. Trik ini saya temukan dari sebuah thread kaskus sebagai berikut :
1) BUKA notePad.
2) COPY CODE DI BAWAH INI Pada Notepad
Dim pesan, sapi
pesan = InputBox ( "Apa yang Anda ingin saya katakan?", "Berbicaralah kepada-Ku")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak pesan
3) Simpan dengan nama apapun dengan akhiran .vbs
4) INGAT UNTUK SAVE THE FILE AS. VBS
5) Double klik file tersebut.
6) SEKARANG tulis apapun textbox dan tekan ok
7) KOMPUTER ANDA AKAN BERBICARA APA YANG ANDA TELAH TERTULIS DALAM TEKS BOX ANDA !!!!!!!!
Selamat mencoba!
Tidak ada komentar:
Posting Komentar