Minggu, 22 Mei 2011

Komputer ku Bisa Bicara ? hah ?

Langsung aja ikuti langkah2 berikut ini : (tancap gas)
1. 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 beri nama mypc.vbs
4. Selesai

coba sekarang kamu klik 2 kali,, keren gk?? wkwkwkwkk....

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

Hebatkan komputerku bisa bicara hehehehe...

2 komentar: