IndeksCalendarFAQPencarianAnggotaGroupPendaftaranLogin

Share | 
 

 Rpe Filter DS

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Admin
Arc'Bishop
Arc'Bishop


Jumlah posting : 55
Points : 2198
Reputation : 37
Join date : 07.05.11

PostSubyek: Rpe Filter DS   Sun Sep 30, 2012 9:46 am

Laporkan bila tidak work . . .

gw bagi" biar Guard gw laku . . . .

copy code di bawah ini terus paste ke filter

Code:
library rPE_ex;

uses
  windows,
  Winsock2,
  winsock,
  rpefuncs;

function Send_WS1(s: TSocket; var Buf : PChar; len, flags: Integer; pSendWs1, pRecvWs1, pSendWs2, pRecvWs2: Pointer; var IsWorking : Boolean):Integer; stdcall;
var
  CurHex: string;
  i : integer;
begin
  CurHex := GetBufferAsHex(buf, len);
  if (pos('002E00',CurHex) <> 0) and (pos('002E00',CurHex) <> 0) then
  begin
    @Send_Callback := pSendWs1;
    for i := 1000 to 1100 do // the number how often this packet should be send
    begin
      sleep(0);    // delay you can chhose however you like (time in ms)
      SendPacket(s,CurHex);
    end;
  end;
  result := 0;
end;

procedure DLL_Load;
begin
 IntLog('c:\rpe_log.log');
end;

procedure DLL_UnLoad;
begin
 Running := false;
 EndLog;
end;

procedure DLLMain(dwR: integer);
begin
  case dwR of
    DLL_PROCESS_ATTACH:
      DLL_Load;
    DLL_PROCESS_DETACH:
      DLL_UnLoad;
  end;
end;

exports
 Send_WS1;
begin
  Running := true;
  DLLProc := @DLLMain;
  DLLMain(DLL_PROCESS_ATTACH);
end.

_________________
Segala permasalahan caci maki / ga work dan lain sebagainya ... kritik dan saran ane terima buat kemajuan forum ini .... asd



Kembali Ke Atas Go down
Lihat profil user http://nebula-cyber.indonesianforum.net
 
Rpe Filter DS
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
NebuLa Cyber :: Indonesia Game Online :: LYTO :: Ragnarok-
Navigasi: