Заставляем компьютер произносить всё, что напишите Создаём текстовый документ на Рабочем столе и в него вставляем следующее: Dim msg, sapi msg=InputBox("Что я должен произнести?","Talk it") Set sapi=CreateObject("sapi.spvoice") sapi.Speak msg Закрываем - Сохранить - Да Переименовываем удаляем название файла полностью с расширением и вставляем "Скажи компьютер.vbs" При нажатии появиться диалоговое окно с полем. в него печатайте по английски всё что хотите и компьютер это произносит.
Всё работает, после сохранения блокнота, на рабочем столе другой файл появляется, его открываешь и пишешь любой текст по английски. Читай внимательнее.