Главная страница
Главная страница
Поиск по сайту
Каталог файлов
Гостевая книга
Новости сайта
Лента новостей
Для просмотра всех возможностей сайта, вам необходимо пройти процедуру регистрации, либо войти в свой аккаунт.*
*Форма входа и регистрация пользователя, располагается в шапке сайта, либо в блоке "Профиль" на страницах типа "Главная".
Поиск по сайту  RSS канал 
Меню
Мини чат
Реклама


VIP Партнеры


Кланы и Команды



Статистика

Статистика пользователей

   Всего:
   Новых за месяц: 0
   Новых за неделю: 0
   Новых вчера: 0
   Новых сегодня: 0


Счетчик стран

Страны

Счетчики

  
  

Посетители

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Просмотров: 1266 Просмотров данной публикации: 1266 Комментарии: 0 Комментариев к данной публикации: (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 и запускаем!
Можно Менять Текст на любой какой вы захотите!
Удачных экспериментов!
Добавил: Win_ExcelПубликацию добавил: Win_Excel Дата: 03.02.2012Дата добавления публикации: 03.02.2012


Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Профиль


Top 5
    TOP Пользователей
    vasiliy_petrov245
    Сообщений: 433
    Комментариев: 0
    stepakov
    Сообщений: 428
    Комментариев: 0
    HACKERus
    Сообщений: 95
    Комментариев: 0
    vaskas122
    Сообщений: 79
    Комментариев: 0
    www1
    Сообщений: 63
    Комментариев: 0