Добавлен Van Damm,
опубликован
Добавление собственных Native функций
Содержание:
4.1 Достаточный минимум
Путем некоторых исследований, мной было установлено, что для простой подгрузки своих native-функций нет надобности возить за собой весь grimoire: достаточно минимального комплекта:
bin\<ваша библиотека>.dll
bin\japi.dll
bin\ongameload.dll
bin\exehack.exe
startwar3.bat
lua5.1.dll
findpath.lua
ongameload.lua
war3.lua
4.2 Код базовой библиотеки для Delphi
Благодаря AiwaDoter, теперь доступен код базовой библиотеки для добавления native функций для Delphi. Вот он:
unit jAPIDLL;
{ library by AiwaDoter }
{$DEFINE DYNAMIC} { закомментируйте эту директиву, чтобы реализовать статический импорт если он нужен }
interface
{$IFDEF DYNAMIC}
{ Объявления процедур
для динамического импорта }
procedure jStartAPI;
{$ELSE}
{ Объявления процедур для статического импорта }
{$ENDIF}
implementation
{$IFDEF DYNAMIC}
uses Windows; { библиотека Windows }
type
{ создание нестандартных типов и процедур библиотеки jAPI }
jString = longint;
jInt = longint;
jReal = longint;
AddNative = procedure(routine: Pointer; name: PChar; prototype: PChar); cdecl;
StrMap = function(const str: PChar): jString; cdecl;
StrGet = function(strid: jString): PChar; cdecl;
var
{ Логический номер модуля DLL }
LibInstance : HMODULE;
jAddNative: AddNative;
jStrMap: StrMap;
jStrGet: StrGet;
{ функция нативы которую хотим внедрить в процес }
function test: jString; stdcall;
begin
Result:= jStrMap('ZOMG TEH FUNC! - DELPHI');
end;
procedure jStartAPI;
begin
if(LibInstance = 0)then begin
{ если DLL еще не загружена,
попытаемся загрузить }
LibInstance := LoadLibrary('japi.dll');
{ Если LoadLibrary возвращает 0, произошла ошибка }
if(LibInstance = 0)then begin
MessageBox(0, 'Could not locate jAPI', 'Error',
MB_ICONEXCLAMATION or MB_OK);
exit;
end;
{ DLL загружена, теперь попытаемся найти функции }
jAddNative:= AddNative(GetProcAddress(LibInstance, 'jAddNative'));
if(Not Assigned(jAddNative))then
{ Если GetProcAddress возвращает Nil, возникли проблемы }
MessageBox(0, 'Could not find jAddNative', 'Error', MB_ICONEXCLAMATION or MB_OK);
jStrMap:= StrMap(GetProcAddress(LibInstance, 'jStrMap'));
if(Not Assigned(jStrMap))then
MessageBox(0, 'Could not find jStrMap', 'Error', MB_ICONEXCLAMATION or MB_OK);
jStrGet:= StrGet(GetProcAddress(LibInstance, 'jStrGet'));
if(Not Assigned(jStrGet))then
MessageBox(0, 'Could not find jStrGet', 'Error', MB_ICONEXCLAMATION or MB_OK);
end;
{ здесь передаем адрес функции "test" задаем имя нативы и ее параметры }
jAddNative(@test, 'test', '()S');
end;
initialization
LibInstance := 0;
jAddNative:=Nil;
jStrMap:=Nil;
jStrGet:=Nil;
finalization
{ Если DLL была загружена, ее обязательно нужно выгрузить }
if(LibInstance<>0)then begin
FreeLibrary(LibInstance);
LibInstance:= 0;
end;
end.
{$ELSE}
end.
{$ENDIF}
4.3 Избавление от придирок антивирусов
Используя небольшую хитрость, можно добиться отказа от использования exehack.exe, что положительно повлияет на весь комплект: именно этот файл антивирусы чаще всего считают вредным. Также использование этой хитрости позволяет запускать варкрафт с добавленными native функциями в linux (естественно, из-под wine).
Итак, порядок действий:
Итак, порядок действий:
- Скачать PEditor www.softpedia.com/get/Programming/File-Editors/PEditor.shtml
- Скопировать папку bin/ нашей сборки в PEditor/bin
- Скопировать lua5.1.dll в PEditor/
- Сделать резервную копию war3.exe
- PEditor -> открыть war3.exe -> directory -> imports, щелчок правой кнопкой add import: dll name = bin/ongameload.dll, func name = DllMain
- Нажать +, нажать OK, выйти из PEditor
Дело сделано! Теперь можно заменить оригинальный war3.exe в папке игры (не забудьте сделать резервную копию!) и наслаждаться. Этот метод позволяет исключить из списка возимых за собой файлов exehack.exe, startwar3.bat, findpath.lua и war3.lua.
Важно! При выполнении пункта 5, PEditor может выдать ошибку плана "Сan't find the "DllMain" function in the dll". Тогда вам нужно открыть ongameload.dll в любом просмотрщике ресурсов (рекомендую CFF Explorer — кстати в нем можно и импорт прописывать, даже удобнее: на PEditor антивирусы все еще могут ругнуться), найти таблицу экспорта и в ней посмотреть, имя какой функции содержит что-то, намекающее на загрузку ^_^ (в моем случае это было _Z16LoadLibraryAWrapPKc@4) — её и использовать в этом шаге.
Примечания
Внимание! Некоторые антивирусы могут ругаться на grimoire, а конкретно на файлы bin\exehack.exe, bin\ongameload.dll и bin\japi.dll, определяя в них троянов.Никакой опасности для вашего компьютера эти файлы не несут! Дело в том, что в них используется потенциально подозрительный код (для динамического изменения памяти процесса игры), на который и реагируют антивирусы. Просто добавьте их в исключения вашего антивируса.
Содержание
Комментарии пока отсутcтвуют.
Чтобы оставить комментарий, пожалуйста, войдите на сайт.