L2PacketHack 3.5.x

[NLObP]

Исходники здесь
Вот такие скомпилированные версии есть у меня.

Ниже данные устарели.
Репозиторий находится тут (открывать через SVN клиент)
Удобный просмотр репозитория через браузер тут
Скомпилированные версии тут Пароль к архиву: coderx.ru

Есть ли предложения по модернизации существующего кода с описанием как должно и что хотелось бы заменить/добавить?

Программа пишется в среде Delphi 2007 и Delphi 7 с использованием следующих дополнительных библиотек компонентов:
- FastScript (http://fast-report.com/ru/products/fast-script.html)
- JCL (http://sourceforge.net/projects/jcl/)
- JVCL (http://sourceforge.net/projects/jvcl/)

Дополнительные компоненты брать тут. (<-- TPerlRegEx есть только там)

/upd:
для компиляции последних ревизий понадобятся JCL, JVCL (ссылки выше) а так же:
jwapi2.2a, SyntEdit, TRichView.v11.0+ScaleRichView.v2.0, TsiLang (letitbit / upload.com.ua)
Немного подправленный FastScript искать в файловом архиве.

[ratvier]

1. Что такое Cardinal?
2. Как насчёт возврата из GetPluginInfo юникод строки?

[xkor]

RoZ, ну раз нашлось решение проблемы то не буду)

ratvier, 1. Cardinal это беззнаковое целое размером 4 байта, DWORD короче...
2. а смысл?

[xkor]

Ревизия: 44
Автор: xkor
Дата: 21:00:00, 10 октября 2008 г.
[ + ] Добавлен вывод подробной информации об ошибках в случае их возникновения;
[ * ] Релиз поддержки плагинов, теперь всё работает как планировалось, подробности в описании;

PS подробное описание системы плагинов выложу чуть поже, когда напишу)

[Grinch]

ура xkor, ток плиз с примерами и если возможно темку полезные функции переделать под плагины. имхо я основы разобрал тока на теме полезные функции

[xkor]

в соседней теме выложил основные сведения по плагинам, с примерам и полезными функциями к плагинам придётся немного подождать...

[Breadfan]

Кстати: возможно ли сделать опции выключения компа по команде, и при обрыве всех соединений ?

[Grinch]

Breadfan, думаю можно имхо длл это самостоятельная программа с доступам к системным функциям, в общем хз я б не стал так экспериментировать

[xkor]

Ревизия: 46
Автор: xkor
Дата: 19:10:00, 12 октября 2008 г.
[+] Из плагинов теперь можно добавлять в скрипты свои функции, для этого в плагине должны быть две функции: OnCallMethod и OnRefreshPrecompile;
[!] Внимание! Для корректной работы плагинов они должны быть скомпилированны в том же режиме что и L2PacketHack, тоесть если пакетхак скомпилирован с директивой Relise, то и плагины должны быть скомпилированными с ней же, в противном случае возможны конфликты в модуле FastMM4;

[xkor]

PS всё время забываю указывать лог ревизии и никак не могу понять как сделать чтоб его можно было менять поже, так что об изменениях можно почитать в change.log...

[Argot]

Ну исправте вы строчку

    while not Thread[id].Connect do Sleep(1);

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

procedure Server(Param: Pointer);
 ................
 ................
 Thread[id].ConnectEvent:= CreateEvent(nil, true,false, PChar(NameEvent));
 Thread[id].CH:=BeginThread(nil, 0, @Client, Param, 0, Thread[id].CTH);
 ...............
 if WaitForSingleObject(Thread[id].ConnectEvet, TimeOut)<>0 then
 begin
   TerminateThread(Thread[id].CH,0); 
   ExitThread(0);
 end;
 .............
 .............
end;

procedure Client(Param: Pointer);
 ..........
 ..........
 PulseEvent(Thread[id].ConnectEvent);
 ..........
 ..........
end;

дальше сами разберетесь ))