- 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/forum3.png){kind=icon}
