Для просмотра всех возможностей сайта, вам необходимо пройти процедуру регистрации, либо войти в свой аккаунт.* *Форма входа и регистрация пользователя, располагается в шапке сайта, либо в блоке "Профиль" на страницах типа "Главная". |
|
|
|
|
|
Всего: Новых за месяц: 0 Новых за неделю: 0 Новых вчера: 0 Новых сегодня: 0
Онлайн всего: 1 Гостей: 1 Пользователей: 0
|
|
|
| Просмотров данной публикации: 1266 | | Комментариев к данной публикации: (0) |
Вот код скрипта: ' Информация о персонажах: ' C:WINDOWSsystem32oobeimagesqmark.acs (круг с вопросом внутри) ' C:WINDOWSsrchasstcharscourtney.acs (бабка на машине) ' C:WINDOWSsrchasstcharsearl.acs (уродец на серфе) ' C:WINDOWSsrchasstcharsrover.acs (песик как в поиске) ' C:WINDOWSmsagentcharsmerlin.acs (маг) ' C:Program FilesMicrosoft OfficeOFFICE11CLIPPIT.ACS (скрепка) ' C:Program FilesMicrosoft OfficeOFFICE11DOT.ACS (красный колобок) ' C:Program FilesMicrosoft OfficeOFFICE11F1.ACS (двуногий робот) ' C:Program FilesMicrosoft OfficeOFFICE11LOGO.ACS (логотип офиса) ' C:Program FilesMicrosoft OfficeOFFICE11MNATURE.ACS (земной шар) ' C:Program FilesMicrosoft OfficeOFFICE11OFFCAT.ACS (котенок) ' C:Program FilesMicrosoft OfficeOFFICE11ROCKY.ACS (собака)
' Наименование используемого персонажа Microsoft Agent strCharacter = "merlin"
Set objMicrosoftAgent = CreateObject("Agent.Control.1") objMicrosoftAgent.Connected = True objMicrosoftAgent.Characters.Load strCharacter, strCharacter & ".acs" Set objCharacter = objMicrosoftAgent.Characters(strCharacter) With objCharacter .Top = 200 .Left = 600 .LanguageID = &h409 .Show Wscript.Sleep 1000 'Здороваемся с пользователем. .Play "Greet" .Play "RestPose" .Play "Read" .Think "Привет! Как дела это я Федя если не узнала!" 'Завершаем чтение информации .Play "ReadReturn" 'Прощаемся с пользователем. .Play "Wave" End With
' Синхронизируем анимацию со скриптом и завершаемся. Set objCharacterRequest = objCharacter.Hide
Do Until objCharacterRequest.Status = 0 ' Complete = 0 Wscript.Sleep 100 Loop Set objCharacter = Nothing
objMicrosoftAgent.Characters.Unload strCharacter
Конец кода Сохраняем в формате .VBS и запускаем! Можно Менять Текст на любой какой вы захотите! Удачных экспериментов!
|
|
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
|
|
|
|