- 11, Feb 2014
- #1
Заставляем компьютер произносить всё, что напишите
Создаём текстовый документ на Рабочем столе и в него вставляем следующее:
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"
При нажатии появиться диалоговое окно с полем. в него печатайте по английски
всё что хотите и компьютер это произносит.
![[Александр Белановский] Разбогатей или умри!](/assets/images/icons/forum2.png){kind=icon}
![[Специaлист] - Веб дизaйн. Разрaботка и oфoрмление сaйтoв](/assets/images/icons/forum4.png){kind=icon}
