И так всем доброго времени суток это опять я Uz_R00T
Это моя 2-я статья и так давайте поиздеваемся над бедным ламером:
Вот код скрипта:
' Информация о персонажах:
' 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 и запускаем!
Можно Менять Текст на любой какой вы захотите!
Удачных экспериментов!