cara komputer berbicara

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 beri nama 'mypc.vbs' (tanpa tanda kutip).

-Cari file tadi dan klik 2 kali, lalu ketikkan kata-kata yang ingin diucapkan komputer.

Atau kalau ingin komputer langsung bicara begitu diklik, copy dan paste script ini ke Notepad:

Dim msg, sapi

msg = 'Hi, how are you doing?'

Set sapi = CreateObject ( 'sapi.spvoice')

sapi.Speak msg

Ganti tulisan merah dengan kata-kata Anda sendiri, lalu Save as, dan beri nama 'mypc.vbs'.

ketik run-gepedit.msc dan seteusnya

Selamat mencoba...