L2PacketHackФорум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела!
Категорически запрещено:
* Просить пакеты/скрипты на шмот/адену/другие вещи;
* Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
* Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
* Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
* Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
* Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
* Данные запреты неподлежат обсуждению.
Всем доброе утро. Давно хотелось написать скрипт, который бы отправлял 3 пакета с задержкой между каждым 1 секунда, и скрипт повторял ето делать каждые 6 минут. Нашел пример скрипта, который будет отправлять пакеты каждые 1 сек, но нужно прикрутить таймер, который бы приводил скрипт в действие каждые 6 минут. Особо благодарен всем, кто хотябы попытается помоч. Вот пример.
Код:
const
nik='ник';
var
timer : TTimer;
packet:array of string;
i,j:integer;
procedure OnTimer(Sender: TObject);
begin
for i:=1 to 999 do begin //сколько раз отправлять пакеты
for j:=1 to length(packet) do begin
buf:=packet[j];
sendtoserverex(nik);
end;
end;
end;
procedure Init;
begin
packet[1]:=Hstr('D0 0F 00 D3 04 00 00 91 01 00 00'); // 1 пакет
packet[2]:=Hstr('D0 0F 00 D3 04 00 00 92 01 00 00'); // 2 пакет
packet[3]:=Hstr('D0 00 00 00 00 00'); // 3 пакет.
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
timer.interval:=1000; //время задержки между отправкой пакетов.
j:=1;
i:=1;
end;
procedure Free;
begin
timer.free;
end;
begin
end.
Добавлено через 26 минут
Извини, но ругается на этот участок кода
procedure OnTimer2(Sender: TObject);
begin
timer1.enabled:=true;
timer2.enabled:=false;
end
Добавлено через 3 минуты
Починил, у тебя в коде в первом случае timer=true а тут timer1=true. стер единичку и все заработало Но теперь он отпарвляет ети пакеты лиш 1 раз, а через заданное время во втором таймере он не отпарвляет.
Последний раз редактировалось afonbka, 19.03.2011 в 13:05.
Причина: Добавлено сообщение
Добавлено через 4 минуты
а нет, все работает.. спасибо)) только отсылает он не через 15 секунд как я указал, а рандомно както (
Добавлено через 2 минуты
указал отсылать с задержкой между пакетами 1.5 сек и повторять эту процедуру каждые 15 сек. он повторил её через 1 - 1.5 минуты.
Последний раз редактировалось afonbka, 19.03.2011 в 13:23.
Причина: Добавлено сообщение
afonbka, Хм эта странно)) Когда тестируешь нада по меньше числа указывать)) Ну мб ща кто-нить зайдет и напишет нам как написать в 1 таймер и чтоб без погрешности)))