MEMBUAT KOMPUTER BICARA

code:
Dim message, sapi
message= (“selamat datang haposan hutabarat”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message


ktik code diatas di notepad
sesudah itu beri nama extensi *.vbs contoh pos.vbs


*slamat mencobat*