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*