Bagaimana membuat komputer anda berbicara?

copykan kode dibawah ini kedalam notepad lalu save dengan nama computerspeak.vbs



Dim message, sapi

message=InputBox("apa yang kau ingin aku katakan?","Speak to Me")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message