- Pertama, buka notepad.
- Copy-Paste script berikut : Dim msg, sapi msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata") Set sapi = CreateObject ( "sapi.spvoice") sapi.Speak msg
- Save as, kemudian pilih all files lalu kasih nama mypc.vbs
- Selesai
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgE82FnKaeyFluA6O-fKsPF8FUnB4SCoRlVHh2xPuJsI6gnHGqGQLH6D-30QV_IprHQyehF9N6yu0XG-nSivD4B9Vk_Bsn0_xHQ8vKlx82ExLWAxj0ewcX4wKzqasWDWIuBjabUKaJFeDhG/s400/save+as.jpg)
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiiYVx2hYYoE9sbWswj0FscPbjw4bLxQ6_VuMavhgavkNYs9z6POYFGhSDZn20o7N6RSg82w8zJ436zWtzml3F1RXCaKZ0cu0gnxsZ8iq8QayAd6mqmDMTOEaq0ad3kOpl2HvONzpFeAWli/s400/InputBox.jpg)
Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik 2x langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :
Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Tips ini sudah saya coba dan hasilnya : 100% Tested n Worked..!!
Selamat Mencoba
post by www.remo-xp.com
Tidak ada komentar:
Posting Komentar