Icon`s Tips and Trick

penasaran...???


langsung Pratkik...

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
   
   
   selesai

coba sekarang di KLIK 2x........
gimana........?????

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


Tested 100% worked