1. Buka Notepad dan copas aja code dibawah ini
Dim message, sapi
message=InputBox(“What do you want me to say?”,”Speak to Me”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message
message=InputBox(“What do you want me to say?”,”Speak to Me”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message
2. Save notepad itu dengan nama Voice.vbs setelah itu double klik file itu
3. ketik terserah yang kamu mau agar komputermu ngomong lalu OK