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