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.
sumber :
http://theheatweb.com/
