etombiruodotcom

Langkah pertama, Buka notepad, dan copy-paste item di bawah ini.

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

2.  Save dengan menggunakan nama "Speak.vbs" dan tekan enter.

3. Tekan pada file "Speak.vbs" itu dan taipkan perkataan yang anda mahu. 

Selamat Mencuba.