cum sati faci calculatoru sa vorbeasca :D

Dim message, sapi
message=InputBox ("Type In Whatever You Like", "Speak This")
Set sapi=CreateObject ("sapi.spvoice")
sapi.Speak message

copiati codu acela^ si bagatil in notepad unde il salvati ca talk.vbs, nu conteaza ce nume dar trenuie sa fie cu .vbs la sfarsit