Minggu, 04 September 2011

KOMPUTER NGOMONGG ??

Halo temen-temen semuanya... kabar baik kann??
Masih dalam suasana hari raya idul Fitri ni,, Mohon Maaf Lahir Batin ya... kalau aqU ada salah mohon di maafkan..

Kali ini aqU mau sharing supaya si kompi mau ngomong, hehehe cara ini aqU dapet dari kaskus gan,, okelah cekibrut aja caranya...

Langkah2 nya :
1. buka Notepad
2.Copy paste script berikut :
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

3. Save As kemudian pilih all files lalu beri nama ajja kom.vbs
4. Selesai

Coba sekarang kamu klik 2 kali,, keren gk?? bisa ngomong kan ?? wkwkwkwkk....

Oh iya atau kamu gk maw menggunakan inputbox (pas di klik 2 kali langsung ngomong) scriptnya seperti ini :
Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg