L2PacketHack 3.5.x

[Grinch]

вот начал изучать "плагинописание" и встал вопрос о том как организовать такую вещь которая в скриптах стало такой привычной константы типа Name. пришла идея в самом пнх на вкладке плагин там где идёт описание плгина сделать активную зону где можно будет вводить эти константы а так же сохранять/загружать в файл.
///////////////////////////////////////////////////////////////
ответ xkor'a:
в плагине после компиляции имён переменных нету
исполняемый файл только с указателями и регистрами работает...
////////////////////////////////////////////////////////////////
Дык народ кто что придумает оригинальное и функциональное что реально организовать.

[wanick]

Grinch, а зачем вообще нужен Name, вот пример с авто-HP явно показывает что и без него можно обойтись.

[Grinch]

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

Grinch, а зачем вообще нужен Name, вот пример с авто-HP явно показывает что и без него можно обойтись.

ну тут спорно конечно, допустим в пати 2 ше в плагине всё расписано и чё каждое окно зайти написать там чёта потом в другое и т.д. не спорю баферов можно организовать и без ников, а вот пла допустим я обычно играю как бд офф пати вписываю ник пла в скрипт к бд так бд может запустить кто угодно из моего клана главное в скрипте ник перебить. спросишь для чего это надо ну допустим машина не тянет 5-6 окон и ботом не охота играть вот и приходиться извращаться имхо нужно как то организовать ввод констант типа Name либо из файла либо с панели плагина или пакет хака.

[xkor]

Grinch, а как на счет ввода констант через HTML диалог прямо в игре?), можно даж в самом пакетхаке сделать встроенные функции для формирования таких диалогов, хотя это и так просто
ИМХО это самое рациональной на мой взгляд решение
ещё можно сделать возможность указывать для включаемого плагина "соединение по умолчанию" или даже выполнять его только для этого соединения

Добавлено через 5 часов 11 минут
Ревизия: 48
Автор: xkor
Дата: 00:50:00, 15 октября 2008 г.
[+] В контекстном меню иконки программы появились подменю "Скрипты" и "Плагины" в которых можно включить/выключить их не открывая окно программы;[*] FastMM4 настроен так чтобы плагины и программа были совместимы не зависимо от режима компиляции;

[PanAm]

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

встал вопрос о том как организовать такую вещь которая в скриптах стало такой привычной константы типа Name.

тут у меня две мысли -
1. Требуется дороботка ПакетХака - добавить в планины необязательные функции, которые будут вызыватся из контекстного меню в списке плагинов. как минимум для настройки и расширенной информации о плагине.
2. не требует дороботки ПХ и может быть дополнением к первому - обработка в плагине чат-строк типа "-myplugin -settings"
Далее станет вопрос сохранения и загрузка настроек, и тут опять есть два варианта -
1. возложить это полностью на автора плагина - он сам будет выбирать куда и как сохранять / грузить настройки- в реестр, INI-файл или в скрытый сектор диска с ключем шифрования на сьемном насителе.
2. Сделать анологично FAR - работать с настройками через API пакетхака.

Добавлено через 2 минуты
И есть еще пожелание - для ПХ свернутого в трей, дороботать меню - добавить подменю "Скрипты" и "Плагины" с динамическим списком и возможностью в щелчек влючать и выключать их.

[Гост]

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

тут у меня две мысли -
1. Требуется дороботка ПакетХака - добавить в планины необязательные функции, которые будут вызыватся из контекстного меню в списке плагинов. как минимум для настройки и расширенной информации о плагине.
2. не требует дороботки ПХ и может быть дополнением к первому - обработка в плагине чат-строк типа "-myplugin -settings"
Далее станет вопрос сохранения и загрузка настроек, и тут опять есть два варианта -
1. возложить это полностью на автора плагина - он сам будет выбирать куда и как сохранять / грузить настройки- в реестр, INI-файл или в скрытый сектор диска с ключем шифрования на сьемном насителе.
2. Сделать анологично FAR - работать с настройками через API пакетхака.

Добавлено через 2 минуты
И есть еще пожелание - для ПХ свернутого в трей, дороботать меню - добавить подменю "Скрипты" и "Плагины" с динамическим списком и возможностью в щелчек влючать и выключать их.

Еще надо добавить меню для моего холодильника, чтобы он заказывал мне пиво через l2phx/ O_o
Народ, вы подождите сейчас пройдет осень, и вас отпустит ...

[Breadfan]

или в скрытый сектор диска с ключем шифрования на сьемном насителе

- это как раз то, что я искал )))

[Argot]

А задуматься что вы тут делаете ? ))

except
    //добавил для исключения утечки памяти, NLObP
    FreeMem(OldFunction, 255);
    Exit;
  end;
  //добавил для исключения утечки памяти, NLObP
  FreeMem(OldFunction, 255);

[xkor]

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

А задуматься что вы тут делаете ? ))

except
    //добавил для исключения утечки памяти, NLObP
    FreeMem(OldFunction, 255);
    Exit;
  end;
  //добавил для исключения утечки памяти, NLObP
  FreeMem(OldFunction, 255);

а я то думал почему ShowMessage не работает...

Добавлено через 1 минуту
NLObP, освобождать надо то что больше НЕ будет использоваться...

Добавлено через 1 минуту
небольшая утечка лучше чем освобождение ещё используемой памяти...

[NLObP]

Вот вся функция

function HookCode(TargetProc, NewProc: pointer; var OldProc: pointer): boolean;
var
  Address: dword;
  OldProtect: dword;
  OldFunction: pointer;
  Proc: pointer;
begin
  Result := False;
  try
    Proc := TargetProc;
    //вычисляем адрес относительного (jmp near) перехода на новую функцию   
    Address := dword(NewProc) - dword(Proc) - 5;
    VirtualProtect(Proc, 5, PAGE_EXECUTE_READWRITE, OldProtect);
    //создаем буффер для true функции 
    GetMem(OldFunction, 255);
    //копируем первые 4 байта функции 
    dword(OldFunction^) := dword(Proc);
    byte(pointer(dword(OldFunction) + 4)^) := SaveOldFunction(Proc, pointer(dword(OldFunction) + 5));
    //byte(pointer(dword(OldFunction) + 4)^) - длина сохраненного участка
    byte(Proc^) := $e9; //устанавливаем переход 
    dword(pointer(dword(Proc) + 1)^) := Address;
    VirtualProtect(Proc, 5, OldProtect, OldProtect);
    OldProc := pointer(dword(OldFunction) + 5);
  except
    Exit;
  end;
  Result := True;
end;

Покажи, где надо освободить память? В except ... end; лишнее?