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.
я сделал такой скрипт сейчас увидел эту тему вот только пару раз покупаю 95 Д шмоток, бю их на кристы всё, опять покупаю, бю... и гдето после 3-7 раза такого повторения отваливаеться коиент
итак начну по -порядкусорь если тупые вопросы, потому что в языках не шарю, но нужен хелп)
1)сделать цикл скрипта бесконечным
2) как сделать, чтобы после выхода клиента главным был L2phx
то есть понимаю, что надо послать самому себе пакет на логофф и включить функцию , а как скрипт написать незнаю =(
напишите пример плз,что бы понять как правильно внедрить эту функцию
ув.Xkor упоминал про нее, но не написал формы, как сделать
3) как выглядет скрипт для того, чтобы при приходе пакета начинающегося на, допустим b0, начинал работать скрипт, который мог выделить интересующие меня цифры, для дальнейшей работы с ними
xx xx xx xx xx xx xx xx xx.... допустим эти. плз скажите, как , я думаю это не трудно просто не могу въехать, сорри мне просто лучше на примерах =*(
пока всё, заране спс
Последний раз редактировалось cepreu, 11.01.2009 в 23:43.
cepreu,
1. Бесконечные циклы в скриптах не айс. скрипт выполняется на каждый приход/уход пакета - тут нечего зацикливать.
2. Разбирайся ))) мороки много объяснять, главное - L2phx после выхода излинейки L2phx должен будет имитировать клиент, а это довольно сложно сделать.
3. полно примеров, типа
delphi Код:
var
i : integer:
beginif FromServer and(pck[1]=#$B0)then
i := WriteD(2);
end.
var
i : integer:
beginif FromServer and(pck[1]=#$B0)then
i := WriteD(2);
end.
это осилил
1. Бесконечные циклы в скриптах не айс. скрипт выполняется на каждый приход/уход пакета - тут нечего зацикливать.
просто мне нужен цикл повтора пакетов, не знаю какой даже пример привести. Например, вот писать в титуле O_o затем о_О (тупой пример, но все же)
2. Разбирайся ))) мороки много объяснять, главное - L2phx после выхода излинейки L2phx должен будет имитировать клиент, а это довольно сложно сделать.
разобрался, но не понял тебя =(
вот что пишет xkor :
Пример вызова функций из системных библиотек:
delphi Код:
var
lib,Lib1:Integer;
Res:variant;
ar:arrayofvariant;
begin
lib := loadLibrary('User32.dll');
lib1 := loadLibrary('GDI32.dll');
Res := CallFunction(lib,'MessageBoxW',4,[nil,'Text1','text2',0]);
Res := CallFunction(lib,'GetDC',1,[0]);
CallFunction(lib1,'LineTo',3,[Res,100,100]);
CallFunction(lib,'ReleaseDC',2,[0,Res]);
FreeLibrary(lib);
FreeLibrary(lib1);
end.
а вот функции:
Цитата:
Доступные функции:
........ NoFreeOnClientDisconnect - запрещает закрытие соединения при дисконекте клиента (v. 3.1.9+)
NoFreeOnServerDisconnect - запрещает закрытие соединения при дисконекте сервера (v. 3.1.9+)
YesFreeOnClientDisconnect - разрешает закрытие соединения при дисконекте клиента (v. 3.1.9+)
YesFreeOnServerDisconnect - разрешает закрытие соединения при дисконекте сервера (v. 3.1.9+)
(по умолчанию закрытия разрешены)
DisconnectServer - закрывает соединение с сервером (v. 3.2.0+) DisconnectClient - закрывает соединение с клиентом (v. 3.2.0+)
я правильно понял, так реализовать? заранее спс
Добавлено через 5 минут
сорь, еще )
if FromServer and (pck[1]=#$B0) then
а как написать, если мне надо такое условие, что если нет такого пакета выполнять некий алгоритм? Оффтоп
if FromServer and no (pck[1]=#$B0) then так?)
Последний раз редактировалось cepreu, 12.01.2009 в 19:16.
Причина: Добавлено сообщение
чет все повымирали( немного разобрался, вопрос очень важный!
Есть ли команда что бы из декса в хекс и на оборот.?
2)какую использовать команду, чтобы алгоритм между begin и and выполнялся единожды и больше никогда,?