for supernewbie (логово извращенцев)

supernewbie · 05.02.2011, 07:02

помогите(

Добавлено через 50 минут
да помогите же кто-нибудь

Добавлено через 27 минут
попалил как делал голд финч, он почему-то сначала вызывал оригинальную, а потом палил по адресу пакет, сделал также но че-то опять муть какая-то

delphi Код:

procedure DispatchNetworkQueue_Parsing(np:PNetworkPacket); stdcall;
begin
if np=nil then Exit;
WriteLn(inttohex(np.id,2));
exit;
end;

procedure DispatchNetworkQueue_Hook(np:pointer); stdcall;
asm
push np
call [DispatchNetworkQueue_Original]
pushad
push [np]
call DispatchNetworkQueue_Parsing
popad
end;

Добавлено через 3 минуты
да помогите мать вашу, че за гавно творится то я не понимаю((

Добавлено через 14 минут
а всё, разобрался...

Добавлено через 6 минут
с горем попалам получилось так

delphi Код:

procedure DispatchNetworkQueue_Parsing(p1:pointer); stdcall;
var
  np:PNetworkPacket;
  p:pointer;
begin
p:=pointer(p1^);
if (p=nil) or (last<>nil) and (last=p) then Exit;
last:=p;
np:=PNetworkPacket(p);
WriteLn(inttohex(np.id,2));
exit;
end;

procedure DispatchNetworkQueue_Hook(np:pointer); stdcall;
asm
push np
call [DispatchNetworkQueue_Original]
pushad
push np
call DispatchNetworkQueue_Parsing
popad
end;

Добавлено через 2 часа 45 минут
всё, сделал парсинг параметров СендПакета и ДиспатчНетворкКверти, по факту имею траффик с сервера\клиента

поехали дальше, надо сделать форму так, чтобы она не исчезала...