Tips Membuat Komputer Kita Berbicara

Ini ide muncul saat temen gue mau nembak cewek tetapi gak berani, nah... ntah dapet ilham dari mana... Gue saranin ide untuk nembak lewat komputer, temen gue lantas bingung... Emang komputer bisa berbicara?? Dibilang nggak ya nggak dibilang bisa ya bisa, aduhhh, gimana sih?? Gue juga bingung, hahahaha......
Penasaran nggak sob dengan judul "Tips Membuat Komputer Kita Berbicara" hmm... pasti penasaran kan??  Oke, kalau penasaran mendingan kita coba praktikan aja, biar lebih paham. Let's begin,,, Hehehe ....

1. Pertama, buka notepad.
2. 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
3. Save as, kemudian pilih all files lalu kasih nama Speak.vbs
 
4. Selesai

Coba sekarang anda klik 2x.. Gimana?? keren kan?? hehe


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..!!

Download script yang sudah jadi



Password : www.info-spy.co.cc