script iseng-iseng bikin komputer bicara

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

Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik 2x langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :
1.Pertama, buka notepad.
2.Copy-Paste script berikut :

Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

3.Save as, kemudian pilih all files lalu kasih nama mypc.vbs

Tips ini sudah ane coba dan hasilnya 100% Tested and Worked..!!