Исходники здесь
Вот такие скомпилированные версии есть у меня.
Ниже данные устарели.
Репозиторий находится тут (открывать через SVN клиент)
Удобный просмотр репозитория через браузер тут
Скомпилированные версии тут Пароль к архиву: coderx.ru
Есть ли предложения по модернизации существующего кода с описанием как должно и что хотелось бы заменить/добавить?
Дополнительные компоненты брать тут. (<-- TPerlRegEx есть только там)
/upd:
для компиляции последних ревизий понадобятся JCL, JVCL (ссылки выше) а так же:
jwapi2.2a, SyntEdit, TRichView.v11.0+ScaleRichView.v2.0, TsiLang (letitbit / upload.com.ua)
Немного подправленный FastScript искать в файловом архиве.
Последний раз редактировалось NLObP, 17.10.2016 в 00:02.
NLObP, куча замечаний нашел
во вкладке скрипто удаленный скрипт не надо давать редактировать , и сохранять по новой просто пусть весить до обновления. - это я сам сделаю
во вкладке пакетов, при очистке списка сбрасывается состояние фильтров как я долго мучался пока настраивал потом очистил список пакетов и ппц , кстати надо потыкать может еще когда скидывает он.
const{The name of the debug info support L2phx}
StartLocalServer = 'На %d зарегистрирован локальный сервер';
FailedLocalServer = 'Неудалось зарегистрировать локальный сервер на порте %d'+ #13#10+ 'Возможно этот порт занят другим приложением';
CreateNewConnect = 'Создано новое соединение - %d';
ConnectBreak = 'Соединение %d разорвано';
procedure TL2PacketHackMain.Log(var msg: TMessage);
var
p : Pchar;
beginmove(Pointer(MSG.lParam)^,P,SizeOf(PChar));
ListBox3.Lines.Add(p);
end;
procedure sendMSG (msg: string);
var
LogMsg: pchar;
begin
LogMsg:=PChar(msg);
SendMessage(L2PacketHackMain.Handle, WM_ListBox3_Log, 0, integer(@LogMsg));
end;
если в сообщении нет чисел, то все нормально, как только есть, то fastmm4 сообщает о небольшой утеке памяти
типа такого:
Код:
This application has leaked memory. The small block leaks are (excluding expected leaks registered by pointer):
13 - 20 bytes: AnsiString x 2
21 - 36 bytes: AnsiString x 2
37 - 52 bytes: AnsiString x 1
53 - 68 bytes: AnsiString x 2
85 - 100 bytes: AnsiString x 1
И ещё. Правильно ли закрываю хэндл потока?
delphi Код:
CloseHandle(SLH);
Добавлено через 3 минуты
Цитата:
Сообщение от wanick
во вкладке пакетов, при очистке списка сбрасывается состояние фильтров как я долго мучался пока настраивал потом очистил список пакетов и ппц , кстати надо потыкать может еще когда скидывает он.
const{The name of the debug info support L2phx}
StartLocalServer = 'На %d зарегистрирован локальный сервер';
FailedLocalServer = 'Неудалось зарегистрировать локальный сервер на порте %d'+ #13#10+ 'Возможно этот порт занят другим приложением';
CreateNewConnect = 'Создано новое соединение - %d';
ConnectBreak = 'Соединение %d разорвано';
procedure TL2PacketHackMain.Log(var msg: TMessage);
var
p : Pchar;
beginmove(Pointer(MSG.lParam)^,P,SizeOf(PChar));
ListBox3.Lines.Add(p);
end;
procedure sendMSG (msg: string);
var
LogMsg: pchar;
begin
LogMsg:=PChar(msg);
SendMessage(L2PacketHackMain.Handle, WM_ListBox3_Log, 0, integer(@LogMsg));
end;
если в сообщении нет чисел, то все нормально, как только есть, то fastmm4 сообщает о небольшой утеке памяти
типа такого:
Код:
This application has leaked memory. The small block leaks are (excluding expected leaks registered by pointer):
13 - 20 bytes: AnsiString x 2
21 - 36 bytes: AnsiString x 2
37 - 52 bytes: AnsiString x 1
53 - 68 bytes: AnsiString x 2
85 - 100 bytes: AnsiString x 1
И ещё. Правильно ли закрываю хэндл потока?
delphi Код:
CloseHandle(SLH);
Добавлено через 3 минуты
Я не все перенес из твоих исходников?
я так делаю
Код:
procedure TL2PacketHackMain.WmFinished(var msg: TMessage);
var h1:integer;
begin
h1:=msg.WParam; // хендел отработаного потока
CloseHandle(h1);
end;
Такс, буду делать для пакетхака SVN репозиторий, в связи с этим есть впросики:
- ктонить знает будет ли ругаться sourceforce.net если там сделать репозиторий?, ругаться может на то что в пакетхаке используется FastScript демоверсии с подавлением окна о том что это демоверсия (кстати тут надыбал исходники FastReport в комплет которых входят и исходники FastScript, комунить надо?)
- стоит ли создавать в категории пакетхака подкатегорию "Разработка", чтобы там все модификации выкладывать и обсуждать собсно разработку?
NLObP, сори что в твоей теме но поскольку твоя модификация на данный момент лучшая (и почти единственная) скоре всего её и сделаем основной версией, если ты не против конечно), а учитывая что ты выкладываеш сори я думаю ты не против)
__________________
Я здесь практически не появляюсь!, Skype - ikskor
NLObP, сори что в твоей теме но поскольку твоя модификация на данный момент лучшая (и почти единственная) скоре всего её и сделаем основной версией, если ты не против конечно), а учитывая что ты выкладываеш сори я думаю ты не против)
Я только за. Общими усилиями доведем до ума.
Добавлено через 1 минуту
Цитата:
Сообщение от xkor
кстати тут надыбал исходники FastReport в комплет которых входят и исходники FastScript, комунить надо?
Мне тоже давай.
Добавлено через 2 минуты
Цитата:
Сообщение от xkor
используется FastScript демоверсии с подавлением окна о том что это демоверсия
В исходниках это можно закомментить или удалить совсем. Кому надо поправят. А исполняемый файл на форуме выкладывать правленный.
PS: Еще бы пройтись по исходникам и поправить явные ляпы, которые я внес по незнанию. Заодно прокоментировать, чтобы больше так не делать.