L2PacketHackФорум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела!
Категорически запрещено:
* Просить пакеты/скрипты на шмот/адену/другие вещи;
* Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
* Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
* Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
* Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
* Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
* Данные запреты неподлежат обсуждению.
//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.
Код:
const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.
где я ошибся?
Последний раз редактировалось QaK, 30.08.2010 в 18:56.
В делфи, по умолчанию, String обрабатывается как AnsiString. Но он может быть обработан как ShortString, если директива компилятора $LongStrings установлена в Off (по умолчанию установлена в On).
AnsiChar может содержать любое число символов, ограниченное только памятью. А вот ShortString имеет фиксированый размер FixedSize (до 255 символов).
Но следует учитывать что Delphi и FS (скриптовый движок пакетхака) разные вещи. В FS вообще нету такой вещи как строки, даже если написать var s:string; данные будут хранится в типе variant, максимальный размер которого ограничивается доступной памятью.
__________________
В любом из нас спит гений. И с каждым днем все крепче.
Объясню конкретнее.... Мне Memo нужен для отправки письма. Соответственно в Memo у меня будет текст письма. Тексты будут достаточно обширные. А еще учитывая что текст этот юникодовский, т.е. это WideString, то каждый символ будет занимать 2 байта.
Вот прям сейчас набросал типичное письмо, которое мне нужно посылать и оно уже получилось почти 400 байт. Так что нет, не поместится
//Breadfan: Откуда инфа про 255 байт-то?
Добавлено через 2 часа 32 минуты
В обычный тип string помещается только 255 (или 256...) байт текста, не больше. По крайней мере это и в делфе и в обычном пасе. Может быть в FastScript по другому, но я так не думаю... В общем, решение я нашел. Вот, может кому пригодиться:
Код:
procedure WriteMemo(M_Buf : TMemo);
var i : integer;
begin
for i := 0 to M_Buf.Lines.Count-1 do
begin
WriteS(M_Buf.Lines.Strings[i]);
Delete(buf, length(buf) - 1, 2);
buf := buf + #$0D#$00#$0A#$00;
end;
WriteS(M_Buf.Lines.Strings[M_Buf.Lines.Count]);
Delete(buf, length(buf) - 1, 2);
buf := buf + #$00#$00;
end;
Добавлено через 16 минут
У меня есть еще вопрос
Какой пакет отвечает за список членов клана? Ну и вообще за информацию о клане.
есть ещё Memo1.Lines.Text
__________________ Начало.
За это сообщение supernewbie нажился спасибкой от:
я так понимаю щас на многих серверах стоит защита..( обход которой негде не написан)(через CFF не виден проклятый файл nophx.)c заменой чистой системы тоже не катит..
ну вобщем нашел простой сервер./la2cryx.ru.
заходу.l2ph заходит. покеты побежали.. но как тока я пытаюсь что то отослать. то сразу обрыв связи...
подскажите что это может быть или что я делаю не так
//J-Fobos: если вас интересует подключение пакетхака к серверу, то вам в другую тему. А по поводу обрыва связи: либо неверный пакет, либо нарушается цепочка пакетов (а это уже может быть неправильное декодирование трафика).
Последний раз редактировалось J-Fobos, 17.05.2011 в 00:03.
Народ помогите хоть кто нибудь... Блин уже достало, уже 3 ночи юзаю поиск скачиваю разные версии пакетхака ничего не помогает... Проблема!
Открываю ПХ захожу на сервак, воожу логин пароль, залетаю на сервак, скрипты не пашут.... открываю лог пакетов вообще ничего , ниодного пакета не видно.... Сервак лажа полная с онлайном 100 человек (не может там стоять супер пупер защиты) хроники Фрея... помогите очень прошу... Зайдите кто нибудь попробуйте хоть что нить сделать... вот ссыль на сервак Оффтоп
http://l2ifrit.ru/
//J-Fobos: проблемы с подключениям к серверам решаются в соседней теме.
Последний раз редактировалось J-Fobos, 17.05.2011 в 21:05.
День добрый, у меня вот какая проблема, не срабатывает процедура старта скрипта procedure Init; так и процедура окончания скрипта procedure Free; при этом основной код скрипта работает как надо, компилируется все без ошибок. Пробовал множество скриптов во всех такая же проблема. Часть кода из моего скрипта:
Код:
procedure Init; //Вызывается при включении скрипта
begin
SendMsc('Скрипт стартовал');
UseForConnectName:=Name;
timer:=TTimer.Create(nil);
timer.interval:=5;
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
end;
Версия пакетхака 3.5.33.166 скачана с этого сайта
//J-Fobos: приведите еще код процедуры/функции SendMsc
Последний раз редактировалось J-Fobos, 17.05.2011 в 21:06.