delphi Код:
// если у нас для этого пакета имеетса обработчик то выполняем
if assigned(phTable[ppacket.id]) then if (ppacket.id<>$1F) then begin
// копируем пакет и его содержимое в буффер
ntb:=@ntbuffer;
pdata:=pointer(DWORD(ntb)+sizeof(TNetworkPacket));
ntb^:=ppacket^;
CopyMemory(pdata,ppacket.data,ppacket.size);
ntb.data:=nil;
// сохраняем содержимое буффера в очередь пакетов
if not TL2C.nhandler.netbuffer.Write(ntb,sizeof(TNetworkPacket)+ ppacket.size)then begin
transmessage('netbuffer overflow');
end;
end;
все что делаетса в хуке адднетворка.
Добавлено через 56 секунд
Е*УЧИЕ ТЕГИ ФОРУМА о5 ЧЕРЕЗ жопу. лано итак понятно