EbGetExecutingProj - кто-нибудь сталкивался?

[arthur2]

Как её использовать? Ссылку на какой именно объект она даёт?

[alibek]

Никак. Эти функции не для использования программистами.

[Andrey Fedorov]

Никак. Эти функции не для использования программистами.

Ну почему не для использования? Используют...

[alibek]

Ну разве что в VBA.

[Хакер]

Используют...

В чём смысл самодельного неполноценного аналога AddressOf?

Ссылку на какой именно объект она даёт?

Указатель на экземпляр соотв. сишного класса. И класс не COM-ный. И связывание статическое, раннее, пожалуй. Понимаешь, о чём я?

[arthur2]

Я понимаю, что её нельзя использовать в скомпилированном экзешнике. Но ведь можно как-то в проекте?

Мне нужно из внешней библиотеки ActiveX, подключенной к проекту, получить ссылку на этот проект. Какой-то объект я даже получаю, но не понятно, какой
В библиотеке такой код:

Код: Выделить всё

Option Explicit
Private Declare Function GetCurrentVbaProject Lib "vba6.dll" Alias "EbGetExecutingProj" (hProject As Any) As Long

Private Sub Class_Initialize()
   Dim ln As Long

   Dim obj As Object
   ln = GetCurrentVbaProject(obj)
   MsgBox ObjPtr(obj) & " " & ln

   Dim vbPr As VBProject
   ln = GetCurrentVbaProject(vbPr)
   MsgBox ObjPtr(vbPr) & " " & ln
'оба варианта срабатывают и циферки совпадают - какой-то объект я таки получил

   MsgBox vbPr.FileName 'но не этот :( На этой строке бейсик дохнет
End Sub



[alibek]

В чём смысл самодельного неполноценного аналога AddressOf?

В том, что AddressOf отсутствует.

[Хакер]

Ещё раз. С чего ты взял, что Project Object это COM-объект?

[Хакер]

В том, что AddressOf отсутствует.

В VB5?

[arthur2]

И класс не COM-ный

На сколько я понял, проблема в этом? Но может через этот некомный класс можно как-то добраться до комного класса проекта?

[Хакер]

Как-нибудь можно наверняка. Но, не зная, что там, никто не скажет, как.

Кстати, я советую проверить, вдруг он всё-таки комный.

[arthur2]

А как проверить? Ведь в переменную, объявленную как object, что-то загружается Или это ни о чем не говорит?

[Хакер]

Ни о чём не говорит.

Проверить можно двумя способами:
1) Если возвращается указатель на интерфейс, значит первым dword-ом по этому указателю будет лежать адрес vtable. В vtable три первых dword-а, если это COM-объект, должны быть указателями на QueryInterace, AddRef, Release. Собственно, в отладчике надо посмотреть, на какой код указывают эти три указателя. Вдуматься в смысл кода. Даже у очень разных классов реализация IUnknown будет «очень одинаковой». Если что-то из описанного не соблюдается (например если там, где предполагаемо находится vtable, находятся числа, не похожие (например отрицательные) на указатели на код), это не COM.

2) Объявить не как x As Any, а как ByRef pUnk As IUnknown.
В спецификации написано, что «QueryInterface must be reflexive». Это значит, что если через IUnknown::QueryInterface запросить IUnknown, то должна возвратиться та же самая интерфейсная ссылка. Если что-то не так (а в этом случае, скорее всего, будет крах), то это не COM-объект.

[arthur2]

Объявил As IUnknown Загрузился!!!

Код: Выделить всё

Option Explicit
Private Declare Function GetCurrentVbaProject Lib "vba6.dll" Alias "EbGetExecutingProj" (hProject As IUnknown) As Long
Private Sub Class_Initialize()
    Dim ln As Long
    Dim obj As IUnknown

    ln = GetCurrentVbaProject(obj)
    MsgBox ObjPtr(obj) & " " & ln

End Sub


Куда теперь дальше копать?

[Andrey Fedorov]

В том, что AddressOf отсутствует.

В VB5?

В VBA.

[Хакер]

Продолжим?

[arthur2]

В смысле - вернёмся в эту тему? Давай

[Хакер]

Проверил сам. Это COM-объект. Так что тебе повезло, а я ошибся.

ADDED:
И он не поддерживает IDispatch. Так что поработать с ним через ссылку, объяленную As Object никак не получится.

И интерфейс VBProject он тоже не поддерживает.

[arthur2]

Так что тебе повезло

Так что поработать с ним через ссылку, объяленную As Object никак не получится.

В чём же тогда повезло? И как им тогда вообще попользоваться?

А можно через него как-то добраться-таки до объекта-проекта, с которым можно было бы работать привычным способом?

[Хакер]

В чём же тогда повезло?

Потому что могло оказаться, что это это не COM-объект. А обычный сишный класс. И связывание по-сишнему раннее. И методы — cdecl-ные. Вот тогда бы тебе не повезло.

Да и когда я это писал, я ещё не знал о том, поддерживает ли он IDispatch и VBProject. Так что была какая-то надежда. Если бы это был не COM-объект, подобных надежд бы не было.

Кстати, ITypeInfo тоже не поддерживается, так что вторую тему можно смело закрывать.

[arthur2]

так что вторую тему можно смело закрывать.

А эту тему - тоже? Я так понимаю - безнадёга? Ну хоть что-то хоть как-то можно от этого объекта получить? А то даже обидно

[Хакер]

Сволочизм. OllyDbg виснет при попытке поотлаживать VBIDE. Пришлось действовать вручную.

Посмотрел в vtable адрес QueryInterface, перечислил базы загруженных модулей. Вобщем, реализация метода IUnknown::QueryInterface так же находится в vba6.dll по смещению 0xF785.
Дизассмнул, посмотрел на код.

Вобщем, этот объект поддерживает всего лишь два интерфейса:

• {00000000-0000-0000-C000-000000000046} (это IUnknown)
• {FD040200-0000-0000-C000-000000000046} (это хз что, надо искать)

[arthur2]

Ну, в реестре нет (чего и следовало ожидать)

В общем, кажется, я сдаюсь
Мы забрались в такие дебри, что даже если ты чего и откопаешь, я вряд ли пойму, как этим воспользоваться

Но в любом случае - Спасибо!

[Хакер]

Можно поизучать vtable этого X-интерфейса, посмотреть на код методов, отловить их вызов, посмотреть сколько и чего передаётся в качестве аргументов. Обратный инжиниринг то есть.

[arthur2]

Изначально я думал, что это какой-то из объектов типа VBProject. А с этим Х-интерфейсом всё равно не понятно, что можно делать Да и изучать на таком уровне я всё равно не умею

[Хакер]

Вот нет в тебе хакерской натуры Поковырял бы, может быть, добрался бы до чего-нибудь интересного.

[arthur2]

Да может и есть... Знал бы ты, как я минут, наверное, тридцать "отлаживал" ИДЕ с помощью WinDbg Ну, то есть пошагово чего-то там наблюдал и пытался хоть что-то понять. Очень сложно делать что-то, абсолютно не понимая, что именно делаешь... Хотя иногда у меня это даже получается

[__Sergey__]

Вот мое, маленькое исследование. Два тлб в архиве и еще надо прикрутить olelib.tlb Edanmo`s OLE Interfaces & functions v 1.81

[arthur2]

__Sergey__ Здорово! Сижу разбираюсь...

Слушай, раз уж ты vba6.dll исследовал, может вот здесь что-нибудь подскажешь? viewtopic.php?f=51&t=39461&start=0&st=0&sk=t&sd=a