Тема: AionPacketHack
Показать сообщение отдельно
Старый 03.12.2010, 10:25   #60
Новичок
 
Аватар для RayTraceR
 
Регистрация: 18.07.2008
Сообщений: 7
Сказал Спасибо: 7
Имеет 3 спасибок в 3 сообщенях
RayTraceR пока неопределено
По умолчанию

Цитата:
Сообщение от BioDread Посмотреть сообщение
Другой вопрос: как сделать так чтобы определённый пакет отправлялся череp время и каждый раз прибавлялось +1 к четвёртому байту
5d 5e 5f и т.д. пока не дойдёт до определённого значения и обратно 5d 5e 5f...
Я делаю примерно так, только задержка в виде delay, т.к. таймер со сквозным проходом вв новых версиях не работает:

var intbyte, tmpint: integer;

Процедура ТЕСТ
for i:=0 to Определенное_Значение do
begin
buf:='';
WriteC(tmpint+i);
intbyte:=copy(buf,1,(length(buf)));
buf:=HStr('5d5e5f') + HStr(intbyte);
SendToServer;
// А тут можеш поставить delay, но я НЕ РЕКОМЕНДУЮ.
end;
Конец процедуры


Условие прихода пакета 5d
tmpint:=ReadC(4);
Вызов процедуры TEST
Конец условия

Последний раз редактировалось RayTraceR, 03.12.2010 в 10:29.
RayTraceR вне форума   Ответить с цитированием