Make your Computer Talk

1. Bukak Notepad dan salin ayat dibawah dan letakkan kedalam notepad.

Dim message, sapi

message=InputBox("What do you want me to say?","Speak to Me")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message

2. Simpan sebagai SpeakToMe.vbs

3. Klik fail berikut dan mulakan menaip.