Как заставить компьютер говорить с вами? 1. Скопируйте этот текст в блокнот Dim message, sapi message=InputBox("Что сказать?","Поговори со мной") Set itube=CreateObject("sapi.spvoice") itube.Speak message 2. Сохраните файл как speak.vbs 3. Запустите файл. Все что вы напишете в строке, компьютер попытается произнести после нажатия ОК.