speaks





Dim message, sapi
message=InputBox("Mit olvassak fel?","speaks")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

Copy-Paste txt - save as ****.vbs

0 megjegyzés: