Как заставить компьютер говорить с тобой
Тот самый текст: Dim message, sapi
message=InputBox("Что сказать?","Поговори со мной")
Set itube=CreateObject("sapi.spvoice")
itube.Speak message
Сохранить как: speak.vbs
Тот самый текст: Dim message, sapi
message=InputBox("Что сказать?","Поговори со мной")
Set itube=CreateObject("sapi.spvoice")
itube.Speak message
Сохранить как: speak.vbs