Making the computer talk

Заставляем компьютер произносить всё, что напишите


Создаём текстовый документ на Рабочем столе и в него вставляем следующее:


Dim msg, sapi


msg=InputBox("Что я должен произнести?","Talk it")


Set sapi=CreateObject("sapi.spvoice")


sapi.Speak msg


Закрываем - Сохранить - Да


Переименовываем удаляем название файла полностью с расширением


и вставляем "Скажи компьютер.vbs"


При нажатии появиться диалоговое окно с полем. в него печатайте по английски


всё что хотите и компьютер это произносит.

​