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 искать в файловом архиве.

[alexteam]

readmask так же сломан.
хех.

[Shizo]

немагу скрипт запустить!

вылетает ошибка постоянно!

Access violation at address 0066584D in module 'l2ph.exe'. Read of address 00000014.

[alexteam]

а где все остальное ?

[Shizo]

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

а где все остальное ?

это чтоли?

Variant or safe array index out of bounds.

Exception class: EVariantBadIndexError
Exception message: Variant or safe array index out of bounds.
Exception address: 00415A10
------------------------------------------------------------------------------
Stack list, generated 15.09.2009 18:24:31
(00014A0B){l2ph.exe    } [00415A0B] SysUtils.Finalization + $17
(00014B58){l2ph.exe    } [00415B58] SysUtils.Finalization + $164
(0001BF5D){l2ph.exe    } [0041CF5D] Variants.NullCompare + $65
(00132ECC){l2ph.exe    } [00533ECC] OleCtnrs.TOleForm.GetBorder + $4C
(00130920){l2ph.exe    } [00531920] advApiHook.ProcessRelocs (Line 1032, "units\advApiHook.pas" + 6) + $2
(00131DF5){l2ph.exe    } [00532DF5] siLangCombo.TsiLangCombo.DrawItem + $A5
(00131D11){l2ph.exe    } [00532D11] siLangCombo.TsiLangCombo.Destroy + $1
(0013229E){l2ph.exe    } [0053329E] siLangCombo.TsiLangCombo.UpdateInfo + $1DA
(00131D11){l2ph.exe    } [00532D11] siLangCombo.TsiLangCombo.Destroy + $1
(0012EA67){l2ph.exe    } [0052FA67] JvExComCtrls.TJvExPageControl.WndProc + $10B
(0013334E){l2ph.exe    } [0053434E] OleCtnrs.TOleForm.ClearBorderSpace + $2E
(00257D2B){l2ph.exe    } [00658D2B] fs_iinterpreter.TfsScript.Create (Line 2070, "fs_iinterpreter.pas" + 4) + $7
(000A9AEC){l2ph.exe    } [004AAAEC] Controls.TDockTree.RemoveControl + $0
(00086E30){l2ph.exe    } [00487E30] Forms.TCustomForm.AlignControls + $44
(00086EB5){l2ph.exe    } [00487EB5] Forms.TCustomForm.CMBiDiModeChanged + $5D
(00086E0B){l2ph.exe    } [00487E0B] Forms.TCustomForm.AlignControls + $1F
(00087009){l2ph.exe    } [00488009] Forms.TCustomForm.GetBorderIconStyles + $25
(000A9954){l2ph.exe    } [004AA954] Controls.TDockTree.PositionDockRect + $74
(000AC9B3){l2ph.exe    } [004AD9B3] Themes.TThemeServices.GetElementDetails + $17F
(00086954){l2ph.exe    } [00487954] Forms.TCustomForm.WndProc + $33C
(000A9724){l2ph.exe    } [004AA724] Controls.TDockTree.PaintDockFrame + $CC
(000ACAEB){l2ph.exe    } [004ADAEB] Themes.TThemeServices.GetElementDetails + $2B7
(000AD143){l2ph.exe    } [004AE143] ImgList.TCustomImageList.Initialize + $37
(000A9954){l2ph.exe    } [004AA954] Controls.TDockTree.PositionDockRect + $74
(000AC9B3){l2ph.exe    } [004AD9B3] Themes.TThemeServices.GetElementDetails + $17F
(00023844){l2ph.exe    } [00424844] Classes.TRegGroups.GetClass + $3C
(00037858){l2ph.exe    } [00438858] JclRegistry.RelativeKey + $1C4
(000AC630){l2ph.exe    } [004AD630] Themes.TThemeServices.GetElementDetails + $BC
(000AC9B3){l2ph.exe    } [004AD9B3] Themes.TThemeServices.GetElementDetails + $17F
(000AC630){l2ph.exe    } [004AD630] Themes.TThemeServices.GetElementDetails + $BC
(00030454){l2ph.exe    } [00431454] Classes.ConvertValue + $3E0
(000ACA97){l2ph.exe    } [004ADA97] Themes.TThemeServices.GetElementDetails + $263

[Shizo]

(000A9EF4){l2ph.exe    } [004AAEF4] Controls.WriteControlName + $0
(002684CD){l2ph.exe    } [006694CD] LSPInstalation.savereg (Line 50, "LSPInstalation.pas" + 0) + $35
(000A9954){l2ph.exe    } [004AA954] Controls.TDockTree.PositionDockRect + $74
(000AC9B3){l2ph.exe    } [004AD9B3] Themes.TThemeServices.GetElementDetails + $17F
(000AC7DB){l2ph.exe    } [004AD7DB] Themes.TThemeServices.GetElementDetails + $B7
(000AC9B3){l2ph.exe    } [004AD9B3] Themes.TThemeServices.GetElementDetails + $17F
(00086954){l2ph.exe    } [00487954] Forms.TCustomForm.WndProc + $33C
(000AC630){l2ph.exe    } [004AD630] Themes.TThemeServices.GetElementDetails + $BC
(00030454){l2ph.exe    } [00431454] Classes.ConvertValue + $3E0
(0003B9CE){l2ph.exe    } [0043C9CE] IniFiles.TStringHash.HashOf + $22
(00098EEB){l2ph.exe    } [00499EEB] Controls..TControl + $217
(00098F22){l2ph.exe    } [00499F22] Controls..TControl + $24E
(00099142){l2ph.exe    } [0049A142] Controls..TControl + $46E
(0028566C){l2ph.exe    } [0068666C] uVisualContainer.TfVisual.SavePacketLog (Line 414, "units\uVisualContainer.pas" + 27) + $C

[alexteam]

410  	115  	alexteam  	 i := 1;
411 		alexteam 	while i <= Length(charname) do
412 		alexteam 	begin
413 		alexteam 	if pos(lowercase(charname[i]), 'qwertyuiopasdfghjklzxcvbnm1234567890.') > 0 then
414 		alexteam 	inc(i)
415 		alexteam 	else
416 		alexteam 	delete(charname,i,1);
417 		alexteam 	end;

я принципиально не вижу здесь ошибки.
что за скрипт и ГДЕ ты пытаешься его запустить ?

Добавлено через 2 минуты
и вообще.. какойто бредовый репорт... ассорти чемто напоминает

упоминание одновременно о куче юнитов без какойто логической цепочки....

[Sashafaq]

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

[alexteam]

от последней версии онли.
при чем действитлельно последняя есть только у мну и у тех кто апдейтиццо и компилит для себя.

Добавлено через 4 минуты
Shizo, вот такая вот ошибка ?


тебе сразу бан выдать за то что отнимаешь время на себя дезинформируя разрабов ? или дать время найти на этом форуме мануал для последней версии где описание этой вкладочки есть а так же формы в которой скрипты нужно запускать на самом деле ?

Добавлено через 3 часа 39 минут

l2phx.3.4.1.83
исправте PacketsT1
alexteam
Код:

11=ItemList:h(ShowWindow)h(ListSize:Loop.01.0021)h (ItemType1)

все с ошибкой лежит

поправил.. но это капля в море... во всяком случае на т1.

Поправил обратно на 22.
могу привести пакет итемлиста при котором без последнего д в лоопе все едет.

[alexteam]

это вопрос ?

[pascalpwnz]

По поводу стабильности пх.
Раньше использовал для мини задач, вылеты были достаточно частые, но не всегда. Недавно попробовал использовать как фильтр кривых пакетов для небольшой бот пати, итог - стабильно вылетает после 10-60 минут работы (часто по тихому, даже винда не всегда сообщает о закрытии пх из-за ошибки), а error.log при этом остается пустой.
Во время работы (в 128) постоянно появляются ошибки чтения из памяти(без деталей), которые, если их не трогать, не мешали дальнейшей работе пх, но после его окончательной кончины и этих ошибок нет в error.log.
Хотя 141 смог записать одну такую ошибку, не знаю только стала ли она причиной вылета или была до нее. (Первая в файле)

Вобщем вопрос: чем воспользоваться, чтобы диагностировать причину вылета?
PS Подобное наблюдаю на двух разных машинах и системах.
PSS В 141 появилась ошибка интерфейса, которая возникает при попытке его закрыть. Приходиться убивать через диспетчер. (Вторая в файле)