Вопрос по плагинам

[Lumen]

Всем привет!
Давненько меня здесь не было...
Вопрос собственно такой: делаю в программе поддержку плагинов.
Каждый плагин экспортирует функцию LoadDll() которая возвращает строку с названием плагина. Вызываю эту функцию спомощью связки LoadLibrary - GetProcAddress - CallWindowProc. Хотел узнать, как можно узнать имя этого плагина?

Заодно второй вопрос. Тоже по плагинам. Почему некоторые плагины (плагины от PEiD) нельзя вызвать с помощью способа указанного выше? Не получается вызвать плагины Crypto Analyzer и Generic OEP Finder...

Спасибо за помощь.

[Хакер]

Каждый плагин экспортирует функцию LoadDll() которая возвращает строку с названием плагина. Вызываю эту функцию спомощью связки LoadLibrary - GetProcAddress - CallWindowProc. Хотел узнать, как можно узнать имя этого плагина?

Странный пост. Сначало ответ на вопрос, потом сам вопрос.

Теперь выстроем в правильной последовательности и получим:

Хотел узнать, как можно узнать имя этого плагина?

Каждый плагин экспортирует функцию LoadDll() которая возвращает строку с названием плагина.

[Lumen]

Хакер
Ты наверное не понял. Я не могу разобраться с такой вещью. CallWindowProc возвращает long, а имя плагина - string. Как мне этот string получить?

[Хакер]

Этот Лонг (при условии, что библа написана правильно) является указателем на Стринг. Т.е. можно попробовать CopyMemory например.

[Lumen]

А как тогда узнать длину стринга?

[Хакер]

Очень рекоммендую сделать так, чтобы функция LoadDll ничего не возвращала, а имела аргумент LPSTR, в который ты передаёшь пустую 255-символьную строку, а функция записывала бы туда строку, с названием плагина.

Т.е. после вызова функции, ты бы получал имя плагинка как

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

PluginName = Left(retPName, InStr(1,retPName, vbNullChar) -1 )


соотв, перед вызывом функции, надо делать

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

retPName = String(255,0)


[Lumen]

Хакер
Спасибо конечно за помощь, но

плагины от PEiD

Если бы я разрабатывал формат плагинов для PEiD, я бы именно так и сделал. Но это только если бы...

[Хакер]

Если так, то тут нужно знать - что именно возвращается. Ну т.е. примерно разница такая же, как между VarPtr и StrPtr.

В любом случае проблема решается экспериментами. Пробуй и действую

[tyomitch]

Получение строки по указателю (в т.ч. без CopyMemory) в деталях расписано в этой статье: http://vbstreets.ru/VB/Articles/66364.aspx

[Lumen]

tyomitch
Прочитал статью и, если честно, ничего не понял.
Не пинайте плз, просто я с этим никогда не сталкивался... Помогите разобраться пожалуйста.

[tyomitch]

тогда ищи по форуму по слову SysAllocString

[Lumen]

tyomitch
Спасибо нашел.
ЗЫ: Не могу не процитировать одного форумчанина, столкнувшегося с похожей проблемой. Он прямо мои мысли прочитал:

А, As Long! Да еще и ByVal! Да еще и sz! А в API-Viewer'е ByRef pOleChar As Byte Спасибо!

[Lumen]

Сорри, похоже я совсем отупел:
Вот функция, которая возвращает имя плагина:

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

Public Function GetPluginName(plPath As String) As String
Dim hLib As Long, hProc As Long, stext As Long
hLib = LoadLibrary(plPath)
hProc = GetProcAddress(hLib, "LoadDll")
stext = CallWindowProc(hProc, Form1.hwnd, "", 0, 0)
GetPluginName = StrConv(SysAllocString(ByVal stext), vbFromUnicode)
End Function


Плиз, объясните, что я не так делаю...

[GSerg]

Плиз, объясните, что я не так делаю...

Библиотеку не выгружаешь.
Параметры функции передаёшь.
Вызываешь SysAllocString, не зная, является ли возвращённый из LoadDLL указатель LPSTR (тогда SysAllocStringByteLen) или же LPWSTR.
Конвертируешь его потом зачем-то.

[Lumen]

GSerg
Добавил FreeLibrary.
В Plugins SDK написано, что указатель LPSTR.
Тогда как правильно?

[GSerg]

Мне кажется, как правильно, было сказано выше.

Private Declare Function SysAllocStringByteLen Lib "oleaut32.dll" (ByRef m_pBase As Any, ByVal uint As Long) As String

MsgBox SysAllocStringByteLen(stext, lstrlen(stext))

[Lumen]

Уже лучше (потому что теперь возвращает что-то, отличное от пустой строки)
Возвращает моя функция что-то вроде этого
Œ`TÎT
Что теперь не так?
Чё-та у меня вообще какой-то ступор...
на всякий случай вот код функции немного исправленный:

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

Public Function GetPluginName(plPath As String) As String
Dim hLib As Long, hProc As Long, stext As Long
hLib = LoadLibrary(plPath)
hProc = GetProcAddress(hLib, "LoadDll")
stext = CallWindowProc(hProc, 0, "", 0, 0)
GetPluginName = SysAllocStringByteLen(stext, lstrlen(stext))
FreeLibrary hLib
End Function


[GSerg]

Что за забавные параметры у callwindowproc?
И, конечно, byval stext, если в декларации byref as any.

[Lumen]

Большое спасибо. Вроде разобрался.

[Lumen]

А по второй части вопроса никто не подскажет?

Всем привет!
Заодно второй вопрос. Тоже по плагинам. Почему некоторые плагины (плагины от PEiD) нельзя вызвать с помощью способа указанного выше? Не получается вызвать плагины Crypto Analyzer и Generic OEP Finder...
Спасибо за помощь.

[Lumen]

Сорри за некрофилию, но...
В общем такая история: довёл наконец до ума получение имени плагина, всё прекрасно работало до одного "прекрасного" дня, когда я решил переустановить систему. Переустановил. На новой системе запускаю свою программу, а имена плагинов опять некорректно отображаются. Точнее не все. Некоторые нормально, а от имен других осталась только одна буква... Система осталась той же (SP2). Что это может быть? Подскажите, пожалуйста, буду благодарен за любую информацию...