Apakah Komputer Bisa Bicara??

Apakah Komputer Bisa Bicara??

Pertama, buka notepad.

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

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

Coba sekarang anda klik 2x.. Gimana?? keren kan?? hehe                                                                                  sekian tips nya :D