Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Пакеты
Войти через OpenID

Пакеты Форум о форматах отдельных пакетов или групп пакетов

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 13.08.2009, 11:29   #1
Новичок
 
Регистрация: 13.08.2009
Сообщений: 4
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
ruslan пока неопределено
По умолчанию задержка пакета

Здраствуйте, хотел бы узнать возможно ли задержать пакет, т.е чтобы пакет доходил до сервера к примеру через 10-15 сек после его отправки ? и как бы это сделать, пакет вот такой 19 92 F1 10 40 00 00 00 00
всем заранее спс.
ruslan вне форума   Ответить с цитированием
Старый 13.08.2009, 12:24   #2
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

Цитата:
Сообщение от ruslan Посмотреть сообщение
мм... возможно дадите ссылочку где можно почитать и понять как это сделать ?
а поиск на что
хотя бы это
объясните новичку
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
TAMBIK вне форума   Ответить с цитированием
Старый 13.08.2009, 12:42   #3
Новичок
 
Регистрация: 13.08.2009
Сообщений: 4
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
ruslan пока неопределено
По умолчанию

Цитата:
Сообщение от Grinch Посмотреть сообщение
как остроумно , эмм... ну а все же ?

Добавлено через 1 минуту
Цитата:
Сообщение от TAMBIK Посмотреть сообщение
а поиск на что
хотя бы это
объясните новичку
омг, сори искал скал не нашол а в шапку не глянул xDDD

Добавлено через 14 минут
эмм.... порылся нашол, и попытался подсроить под себя вот что получилось

const
Name='nick';
var timer:TTimer;
phase:integer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=100;
timer.OnTimer:=@fireTimer;
timer.enabled:=Free;
end;

begin
if FromClient and (ConnectName=Name) and (pck = HStr(19 92 F1 10 40 00 00 00 00)) then begin
timer.enabled:=true;
end;

вобщем мне нада чтобы было к премеру так что я посылаю пакет далее идет задержка N сек поистечении которых сервер получает этот пакет, посмотрите пожалуст соответствует ли этот скрипт тому что я написал ?

Последний раз редактировалось ruslan, 13.08.2009 в 12:42. Причина: Добавлено сообщение
ruslan вне форума   Ответить с цитированием
Старый 13.08.2009, 12:50   #4
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

Цитата:
Сообщение от ruslan Посмотреть сообщение
Здраствуйте, хотел бы узнать возможно ли задержать пакет, т.е чтобы пакет доходил до сервера к примеру через 10-15 сек после его отправки ? и как бы это сделать, пакет вот такой 19 92 F1 10 40 00 00 00 00
всем заранее спс.
10-15 сек
это
timer.interval:=10000-15000;
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
TAMBIK вне форума   Ответить с цитированием
Старый 13.08.2009, 12:54   #5
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

ага и типа пакет который надо задержать лучше запомнить убить что бы он не ушёл, а потом включить таймер и отправить. в твоём варианте пакет будет улетать и таймер включатся, что в целом не имеет смысла
Grinch вне форума   Ответить с цитированием
Старый 13.08.2009, 13:07   #6
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

вроде так
Код:
 var
   Timer01: TTimer;

  procedure OnTimer01(Sender: TObject);
  begin

    buf:=hstr('19 92 F1 10 40 00 00 00 00'); //отсылаем пакет
    SendToServer;               // на сервер
    Timer01.enabled:=false;  //останавливаем таймер

  end;

  procedure Init;
  begin
   Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
   Timer01.enabled:=false; //начальное положение включен/выключен
   Timer01.interval:=10000; //интервал
  end;
  procedure Free; 
  begin
  timer01.free;
  end;

  begin

  if FromClient and (pck = HStr('19 92 F1 10 40 00 00 00 00')) then begin

   Timer01.enabled:=true;

   pck:=''; 

   end;
end.
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать

Последний раз редактировалось TAMBIK, 13.08.2009 в 17:31.
TAMBIK вне форума   Ответить с цитированием
Старый 13.08.2009, 15:28   #7
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Стоит изменить процедуру OnTimer1 так:
Код:
  procedure OnTimer01(Sender: TObject);
  begin
    buf:=hstr('19 92 F1 10 40 00 00 00 00');
    SendToServer;               //отсылаем пакет на сервер
    Timer01.enabled:=false;  //останавливаем таймер
  end;
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
Старый 13.08.2009, 16:49   #8
Новичок
 
Регистрация: 13.08.2009
Сообщений: 4
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
ruslan пока неопределено
По умолчанию

не запускается пишет ошбка BEGIN на

Timer01: TTimer;

rocedure OnTimer01(Sender: TObject);
begin
ruslan вне форума   Ответить с цитированием
Старый 13.08.2009, 17:34   #9
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

Цитата:
Сообщение от NLObP Посмотреть сообщение
Стоит изменить процедуру OnTimer1 так:
Код:
  procedure OnTimer01(Sender: TObject);
  begin
    buf:=hstr('19 92 F1 10 40 00 00 00 00');
    SendToServer;               //отсылаем пакет на сервер
    Timer01.enabled:=false;  //останавливаем таймер
  end;
да забыл отослать
и таймер остоновить
поправил

Добавлено через 4 минуты
Цитата:
Сообщение от ruslan Посмотреть сообщение
не запускается пишет ошбка BEGIN на

Timer01: TTimer;

rocedure OnTimer01(Sender: TObject);
begin
нету ошибки !!!
скопировал полностью ?
впечетление нехватает var в начале
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать

Последний раз редактировалось TAMBIK, 13.08.2009 в 17:39. Причина: Добавлено сообщение
TAMBIK вне форума   Ответить с цитированием
Старый 13.08.2009, 18:19   #10
Новичок
 
Регистрация: 13.08.2009
Сообщений: 4
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
ruslan пока неопределено
По умолчанию

Цитата:
Сообщение от TAMBIK Посмотреть сообщение
да забыл отослать
и таймер остоновить
поправил

Добавлено через 4 минуты


нету ошибки !!!
скопировал полностью ?
впечетление нехватает var в начале
действительно, спасиб.
ruslan вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Пакеты



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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:20.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!