Учим компьютер разговаривать.

В операционную систему Windows XP встроен голосовой движок, преобразующий текст в голос. В принципе, не такая уж и необходимая функция, но если хотите подшутить над друзьями и сотрудниками, то это как раз то, что нужно. Правда, говорит он только на английском, но транслит еще никто не отменял, думаю, вас это не остановит.

Управление голосовым движком находится по адресу «Пуск» -> «Панель управления» -> «Речь». Здесь вы можете поупражняться, прослушать набранный вами текст, а также уменьшить и увеличить скорость произношения. Движок реагирует на знаки препинания – делает паузы перед точками и запятыми, а также меняет интонацию при восклицательных и вопросительных знаках.

Но для того, чтобы позабавиться над друзьями или сотрудниками этого мало – надо ведь заставить компьютер говорить в самый неожиданный момент. На самом деле все очень просто – создадим малюсенькую программку на Visual Basic. Для этого нужно открыть блокнот и вставить в него следующий текст:

Set sapi=CreateObject(«sapi.spvoice»)
sapi.Speak «»

Во второй строке между кавычек необходимо вписать фразу, которую компьютер должен произнести. Далее сохраняем файл с расширением vbs, например speak.vbs. Теперь при двойном щелчке на файле компьютер произнесет заданную фразу. Если во время запуска появляется ошибка – удалите и заново напишите кавычки – это проблема с конфликтом кодировок, поэтому советую не просто копировать текст программы с моего блога, а вписать вручную.

Ну а дальше можете вмонтировать эти файлы куда угодно – перетащить в автозапуск или изменить путь в свойствах ярлыка 1С или наиболее часто запускаемой программы, создать батник, который бы запускал этот файл, а только потом программу, которой этот ярлык предназначался. Ну или назначить задание в папке «Назначенные задания» на определенное время с запуском нашего файла («Пуск» -> «Назначенные задания»). Через назначенные задания можно создать через каждую минуту произношение различных файлов в виде диалога – главное, не повредить психику подопытных. В общем, способов замаскировать этот файл уйма и дальнейшее применение ограничивается лишь вашей фантазией.

Напоследок, выложу пару приколов, которыми уже не раз пугал сотрудников. Попробуйте вбить эти фразы, ну или предложите свои:

dududududududu
A. choovak, ty menya slisheesh’?
danger! danger! danger! virus attack! start self destruction! danger! danger!

Последний при многократном повторении вызывает жуткую панику и офис становится похож на тонущий корабль.

Поделиться в соц. сетях

Опубликовать в Google Buzz
Опубликовать в Google Plus
Опубликовать в LiveJournal
Опубликовать в Мой Мир
Опубликовать в Одноклассники
Популярное:



19 комментария(-ев) к статье “Учим компьютер разговаривать.”

  • Юрий:
    Цитировать

    Очень интересно!Только у меня ничего не получилось,- пишет…
    Сценарий… С\документ
    Строка…1
    Символ…38
    Ошибка…Предпологается наличие окончания инструкции
    Код…800А0401
    Источник…ошибка компиляции Microsoft VBScript

  • Александр:
    Цитировать

    Юрий, вы просто записали весь код в одну строку. Перенесите sapi.Speak «» на другую строчку и все получится. Ну и между кавычек вставьте нужную фразу на английском.

  • Юрий:
    Цитировать

    Сднем Победы! Александр. Спасибо за ответ.
    Проблемма была в том, что я занял текстом
    4 строки, сократил до двух и только тогда все получилось.
    Да как….приехал с работы жена говорит,твой компъютер(яз.модуль Аленка)- такое мне сказал…Она за весь день больше к нему
    так и не подходила, за это отдельное Спасибо!

  • Александр:
    Цитировать

    Красавчик.
    Языковой модуль где брал?
    И что за фразу компу задал, если не секрет?

  • Юрий:
    Цитировать

    Фраза:Опасность взрыва монитора,выключите
    компъютер.
    Яз модуль Аленка:http://nowostey.net/software/12378-aljonka-novyjj-russkijj-text-to-speech-modul-.html

  • Александр:
    Цитировать

    Да, представляю…
    За модуль — спасибо!

  • Юрий:
    Цитировать

    Да не за что, это Вам спасибо — за такое количество на сайте, полезной информации.

  • Татьяна:
    Цитировать

    Хвала сисадминам!Недавно так прикололась над родными,когда меня дома не было…они мне потом десять раз после этого звонили)))

  • Цитировать

    Кто нибудь знает как проделать подобную операцию на Basic.Мне для программы нужно.
    Заранее благодарю

  • admin:
    Цитировать

    Кто нибудь знает как проделать подобную операцию на Basic.Мне для программы нужно.
    Заранее благодарю

    Да хрен его знает, можно ли вообще… Вот тут есть, но это для VB — может наведет на верные мысли))

  • Цитировать

    Да,можно!!! Спасибо,там операция CmdSpeak.Но там разобраться в кое-чём надо.Но теперь у меня появился другой вопрос,не могу автоматизировать запуск этого файла,а то я добавляю в АВТОЗАГРУЗКУ,а у меня не получается.

  • Цитировать

    А как батником,так:
    @echo off
    Open что-то там
    Chcp 1251 Опа-на!
    Сам допер.

  • admin:
    Цитировать

    Опа-на!
    Сам допер.

    Это все целительная сила блога!))

  • Цитировать

    Блин!А где скачать этот Visual Basic скачать.Я хочу, но не могу.Киньте ссылку,плиз

  • Миша:
    Цитировать

    А на русском он не говориит((( как сделать, чтобы заговорил? помогитеее(

  • Pavel:
    Цитировать

    А можно тоже самое сделать на Windows 7 home Basic???

  • admin:
    Цитировать

    А на русском он не говориит((( как сделать, чтобы заговорил? помогитеее(

    Выше ссылку на Аленку давали.

    А можно тоже самое сделать на Windows 7 home Basic???

    Хз, с 7 не работаю.

  • Цитировать

    Какая прога нужна чтобы когда удаляешь с какие нибудь файлы он заговарил»ты точно хочешь удалить этот файл»

  • Цитировать

    Я в автозапуск кидаю, но при запуске всё равно не говорит :(

Оставить комментарий

Реклама
Подписка

 

Опрос

Как Вы относитесь к компьютерному пиратству?

Посмотреть результаты

Loading ... Loading ...
Облачко
Вас посчитали: