Учим компьютер разговаривать.
В операционную систему 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!
Последний при многократном повторении вызывает жуткую панику и офис становится похож на тонущий корабль.
Очень интересно!Только у меня ничего не получилось,- пишет…
Сценарий… С\документ
Строка…1
Символ…38
Ошибка…Предпологается наличие окончания инструкции
Код…800А0401
Источник…ошибка компиляции Microsoft VBScript
Юрий, вы просто записали весь код в одну строку. Перенесите sapi.Speak «» на другую строчку и все получится. Ну и между кавычек вставьте нужную фразу на английском.
Сднем Победы! Александр. Спасибо за ответ.
Проблемма была в том, что я занял текстом
4 строки, сократил до двух и только тогда все получилось.
Да как….приехал с работы жена говорит,твой компъютер(яз.модуль Аленка)- такое мне сказал…Она за весь день больше к нему
так и не подходила, за это отдельное Спасибо!
Красавчик.
Языковой модуль где брал?
И что за фразу компу задал, если не секрет?
Фраза:Опасность взрыва монитора,выключите
компъютер.
Яз модуль Аленка:http://nowostey.net/software/12378-aljonka-novyjj-russkijj-text-to-speech-modul-.html
Да, представляю…
За модуль — спасибо!
Да не за что, это Вам спасибо — за такое количество на сайте, полезной информации.
Хвала сисадминам!Недавно так прикололась над родными,когда меня дома не было…они мне потом десять раз после этого звонили)))
Кто нибудь знает как проделать подобную операцию на Basic.Мне для программы нужно.
Заранее благодарю
Да хрен его знает, можно ли вообще… Вот тут есть, но это для VB — может наведет на верные мысли))
Да,можно!!! Спасибо,там операция CmdSpeak.Но там разобраться в кое-чём надо.Но теперь у меня появился другой вопрос,не могу автоматизировать запуск этого файла,а то я добавляю в АВТОЗАГРУЗКУ,а у меня не получается.
А как батником,так:
@echo off
Open что-то там
Chcp 1251 Опа-на!
Сам допер.
Это все целительная сила блога!))
Блин!А где скачать этот Visual Basic скачать.Я хочу, но не могу.Киньте ссылку,плиз
А на русском он не говориит((( как сделать, чтобы заговорил? помогитеее(
А можно тоже самое сделать на Windows 7 home Basic???
Выше ссылку на Аленку давали.
Хз, с 7 не работаю.
Какая прога нужна чтобы когда удаляешь с какие нибудь файлы он заговарил»ты точно хочешь удалить этот файл»
Я в автозапуск кидаю, но при запуске всё равно не говорит