Blog

Думаю, не многие знают возможностей такого ActiveX компонента, как Agent.Control.2, который входит в состав обычной Windows. А зря, потому что этот ActiveX может помочь в разработке удобного интерфейса для программ, а также просто создать какую-то пркиольную программу с его использованием. Возможности этого компонента довольно широкие; в частности - это text-to-speech engine, который позволяет персонажу проговаривать текст. К примеру, кто пользуется mIRC может включить поддержку Agent для чтения приватных сообщений и тд. Но для этого нужно скачать некоторые модули. Что нужно. Подробная информация о агенте тут: Внимание! У вас нет прав, для просмотра скрытого текста. Для моей Windows XP SP2 хватило скачать DLL-библиотеки для поддержки русского языка и сам text-to-speech engine. Также на это странице есть 4 персонажа, которые можно загрузить и Speech API который может понадобиться для более ранних версий Windows (в XP он уже есть :)). Качаем: Внимание! У вас нет прав, для просмотра скрытого текста. Не знаю почему, но само звучание и перевод в речь английского текста сделан намного лучше, чем русского (видно денег не хватило у микрософта ;)) Вот простой скрипт который показывает некоторые возможности Agent`a. `vbs set Agent = CreateObject("Agent.Control.2") Agent.Connected = True Agent.Characters.Load "Default" ` <------ или acs файл персонажа (см. %windir%msagentchars) Set Character = Agent.Characters("Default") Character.LanguageID = &H409 ` англ язык. уберите строчку если нужно использовать русский. ` если не установлен text-to-speech для данного языка, то ` agent текст произносить не будет Character.Show Character.Play "Greet" Character.Speak "Hello. I am your Microsoft Agent!" Character.Speak "These are some of my animations i can do" Character.MoveTo 400,400 WScript.Sleep 1000*5 For Each an In Character.AnimationNames Character.Play an WScript.Sleep 1000*4 Character.Stop Character.Speak an Next WScript.Sleep 1000*60*3 Его можно скачать тут: Внимание! У вас нет прав, для просмотра скрытого текста.