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

[supernewbie]

ну раньше я юзал "прослойку" ксора... но щас она не работает)

ну вот щас так (не робит) :

var
UNetworkHandlerNextHook : procedure(packet:pointer); stdcall;

procedure UNetworkHandlerCall(NetworkPacket: Pointer); stdcall;
asm
    mov     ecx, AddNetworkQueue_origAddr
    mov     esp, ebp
    pop     ebp
    call     [UNetworkHandlerNextHook]
end;

procedure UNetworkHandlerHookProc2(unh: Integer; np: PNetworkPacket); stdcall;
begin
  AddNetworkQueue_origAddr:=Pointer(unh);
  UNetworkHandlerCall(np);
end;

//адрес в таблице меняю на этот
procedure UNetworkHandler_AddNetworkQueue_hook(packet:pointer); stdcall;
asm
  push    ecx
  push    [ebp+8]
  push    ecx
  jmp    UNetworkHandlerHookProc2
  pop     ecx
end;