Kamis, 06 Oktober 2011

komputer berbicara

1.Buka notepad
2.Copy-paste script dibawah ini

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