Membuat Komputer Kita Berbicara

Pada bungung ya liat judulnya..? ato ni udah jadul bagi anda..?
buat yang udh pernah coba script ini, lebih baik jangan di baca lagi.. hehehe :D
dari pada bingung bagi yang belom tau langsung ke TKP aja....

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 mypc.vbs
4.Selesai Coba sekarang anda klik 2x.. Gimana?? keren kan?? hehe

Atau kalau yang nggak mau menggunakan InputBox seperti script yang diatas (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..!!