Изоляция MS Agent 2.0

@Argus19 · Регистрация: 24.09.2017

Студворк — интернет-сервис помощи студентам

Написал тестовую программу:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim CharPath As String
Dim Voice As SpVoice
Dim Token As ISpeechObjectToken
Dim Character As IAgentCtlCharacterEx
 
Private Sub Form_Load()
CharPath = App.Path & "\MSAgent\chars\girlsa.acs"
    Set Voice = New SpVoice
    Set Voice = CreateObject("sapi.spvoice")
 
 Agent1.Characters.Load "CharacterID", CharPath
       Set Character = Agent1.Characters("CharacterID")
   Character.Show
   Sleep (2000)
        Voice.Speak "Hello!"
        Character.Hide
 
End Sub

Разместил папку с файлами MS Agent 2.0 в папке с программой. За образец взял файл манифеста от The Trick для dx8vb.dll. Для работы требуется AgentCtl.dll, т.к. при пробном запуске на Win10, требуется именно она. Нашёд только два из требуемых трёх идентификаторов. Получилось так:

XML
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
    <assemblyIdentity
        version="1.0.0.0"
        name="3DFirTree"
        type="win32"
    />
    <description>3DFirTree by the trick</description>
   
 
    <file name="dx8vb.dll">
        <comClass 
             clsid="{D45FD31B-5C6E-11D1-9EC1-00C04FD7081F}" 
             threadingModel="Both"                   
             tlbid="{AABFB2BB-49A2-4C39-8622-0DBE16C4161B}"   
             progid="DIRECT.DirectX8.0"                   
        />
        <typelib 
             tlbid="{F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}" 
             version="1.0"
         helpdir=""         
        />
 
    </file>
 
    <!-- UAC privileges -->
 
    <trustInfo>
        <security>
            <requestedPrivileges>
                <requestedExecutionLevel
                    level="asInvoker"
                    uiAccess="false"
                />
            </requestedPrivileges>
        </security>
    </trustInfo>
 
</assembly>

Не понимаю, где взять значение tlbid= и progid?

Добавлено через 4 часа 9 минут
Использовал программу:
https://github.com/froque/Make-My-Manifest
Получил папку со своей программой и нужными для её работы библиотеками. Запустил программу на другом компьютере и получил сообщение "File not found!" без указания имени отсутствующего файла.

@Argus19 · 31.01.2021, 00:44 **[ТС]**

Для сокращения объёма изображений конвертировал их в формат .jpeg. Как оказалось, этот формат имеет собственное представление о зелёном цвете. Пришлось конвертировать в .gif.
Чтобы не производить сложения изображений в процессе выполнения анимации, как следует из поста №35, написал программу сложения двух изображений. После запуска загрузить первое изображение, затем то, которое будет накладываться. При записи файла будет использовано именно второе имя.
Программу легко переделать.

Dragokas · 02.02.2021, 02:09

Сообщение от Argus19

File not found!

Есть отличная софтина - ProcMon, ставишь фильтр на свой процесс + фильтр Operation Is Not Success, и получаешь все обращения с ошибками, смотришь на путь, делаешь выводы.
Это я так, на будущее.

@Argus19 · 02.02.2021, 11:53 **[ТС]**

Сообщение от Dragokas

на будущее.

Спасибо. Надо попробовать.
Пока по совету коллег, удаётся сделать ещё проще.

@Argus19 · 07.02.2021, 21:02 **[ТС]**

Возникло два вопроса:
1). Правильно ли использовать для метода Form.Move Screen.TwipsPerPixelX и Screen.TwipsPerPixelY ?
2). Написать последовательность действий для одной задачи не проблема. Интересно сделать файл-сценарий и использовать его. Например, есть набросок кода:

Visual Basic
1
2
3
4
5
6
7
8
9
    Call Play(Show1())
    Sleep (500)
          Call Play(Acknowledge())
          Sleep (100)
              Call Play(Love())
                   Call Play(Announce())
                        Call Play(Alert())
                            Call MovePlay(MoveLeft(), MoveLeftReturn(), Form1.Left - 170 * Screen.TwipsPerPixelX, Form1.Top)
     Call Play(Hide1())

Это только последовательность анимаций без реакции на действия пользователя и они могут идти в разной последовательности. Это надо преобразовать в файл сценария. При запуске программы считывать из него последовательность действий и выполнять. Пока в голову ничего разумного не пришло.

@Argus19 · 11.02.2021, 20:20 **[ТС]**

Извлёк несколько анимаций "Мэрлин".

Новые блоги и статьи Все статьи Все блоги /
Транслитерация текста с кириллицы на латиницу (вариант №2) Maks 13.11.2026 Обновленная версия ранее созданной обработки. Добавлено: - Проверка исходного текста на кириллицу, через обращение к стандартной функции "ТолькоКириллицаВСтроке" из общего модуля. . .	Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .
Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .	Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .