- 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/AVvXsEgxoVjwVd4SqgsHZks4W13wGQgTPFZdYruMPirYXsFLdKAlxm5kQ1a-NVmyGN4YlNQ9Zrn0y95b8FBl-1n3lm9Wyka_8TEcuok_n7V13ggjvbvJJlUxdunvKdSrWb8T5WiwtUlCl_8qEXuV/s400/save+as.jpg)
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZwLDZftMpo1o2rw7aF2SmH1OfXpGaoJVt_83FMiJOcM6x6_JGKeWAXRCeVt3CzD5wOi9iPFwVd71s3NnELRA9S6F7N_G6Oypgi6eH9qji9kWHoDcm-1SP_4HpvbeqaeWMhHtRVKSBlJpp/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
Sumber : http://www.remo-xp.com/2010/01/tips-membuat-komputer-kita-berbicara.html
Tidak ada komentar:
Posting Komentar
Jangan Lupa Tinggalkan KOMENTAR YA
Please FOLLOW