ipaddrfilter.pas

大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.

unit IPaddrFilter;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmIPaddrFilter=class(TForm)
    GroupBoxActive: TGroupBox;
    ListBoxActiveList: TListBox;
    GroupBox1: TGroupBox;
    ListBoxTempList: TListBox;
    ListBoxBlockList: TListBox;
    LabelTempList: TLabel;
    Label1: TLabel;
    BlockListPopupMenu: TPopupMenu;
    TempBlockListPopupMenu: TPopupMenu;
    ActiveListPopupMenu: TPopupMenu;
    APOPMENU_SORT: TMenuItem;
    APOPMENU_ADDTEMPLIST: TMenuItem;
    APOPMENU_BLOCKLIST: TMenuItem;
    APOPMENU_KICK: TMenuItem;
    TPOPMENU_SORT: TMenuItem;
    TPOPMENU_BLOCKLIST: TMenuItem;
    TPOPMENU_DELETE: TMenuItem;
    BPOPMENU_ADDTEMPLIST: TMenuItem;
    BPOPMENU_SORT: TMenuItem;
    BPOPMENU_DELETE: TMenuItem;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    EditMaxConnect: TSpinEdit;
    Label3: TLabel;
    GroupBox3: TGroupBox;
    RadioAddBlockList: TRadioButton;
    RadioAddTempList: TRadioButton;
    RadioDisConnect: TRadioButton;
    APOPMENU_REFLIST: TMenuItem;
    ButtonOK: TButton;
    Label4: TLabel;
    TPOPMENU_REFLIST: TMenuItem;
    BPOPMENU_REFLIST: TMenuItem;
    TPOPMENU_ADD: TMenuItem;
    BPOPMENU_ADD: TMenuItem;
    CheckBoxLostLine: TCheckBox;
    GroupBox4: TGroupBox;
    Label5: TLabel;
    labIdLimitLevel: TLabel;
    CheckBoxLimitCreateNewId: TCheckBox;
    TrackBarIDLimitLevel: TTrackBar;
    GroupBox5: TGroupBox;
    ListBoxFilterText: TListBox;
    Label6: TLabel;
    ButtonMod: TButton;
    ButtonDel: TButton;
    ButtonAdd: TButton;
    CheckBoxGetMsg: TCheckBox;
    ButtonOKExClick: TButton;
    TPOPMENU_CLEAR: TMenuItem;
    BPOPMENU_CLEAR: TMenuItem;
    CheckBoxAnalyseMsg: TCheckBox;
    GroupBox6: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    TrackBar1: TTrackBar;
    CheckBoxCheckNewUserData: TCheckBox;
    procedure FormCreate(Sender : TObject);
    procedure ActiveListPopupMenuPopup(Sender : TObject);
    procedure APOPMENU_KICKClick(Sender : TObject);
    procedure APOPMENU_SORTClick(Sender : TObject);
    procedure APOPMENU_ADDTEMPLISTClick(Sender : TObject);
    procedure APOPMENU_BLOCKLISTClick(Sender : TObject);
    procedure TPOPMENU_SORTClick(Sender : TObject);
    procedure TPOPMENU_BLOCKLISTClick(Sender : TObject);
    procedure TPOPMENU_DELETEClick(Sender : TObject);
    procedure BPOPMENU_SORTClick(Sender : TObject);
    procedure BPOPMENU_ADDTEMPLISTClick(Sender : TObject);
    procedure BPOPMENU_DELETEClick(Sender : TObject);
    procedure TempBlockListPopupMenuPopup(Sender : TObject);
    procedure BlockListPopupMenuPopup(Sender : TObject);
    procedure EditMaxConnectChange(Sender : TObject);
    procedure RadioDisConnectClick(Sender : TObject);
    procedure RadioAddBlockListClick(Sender : TObject);
    procedure RadioAddTempListClick(Sender : TObject);
    procedure APOPMENU_REFLISTClick(Sender : TObject);
    procedure TPOPMENU_REFLISTClick(Sender : TObject);
    procedure BPOPMENU_REFLISTClick(Sender : TObject);
    procedure ButtonOKClick(Sender : TObject);
    procedure TPOPMENU_ADDClick(Sender : TObject);
    procedure BPOPMENU_ADDClick(Sender : TObject);
    procedure CheckBoxLostLineClick(Sender : TObject);
    procedure CheckBoxLimitCreateNewIdClick(Sender : TObject);
    procedure TrackBarIDLimitLevelChange(Sender : TObject);
    procedure ButtonAddClick(Sender : TObject);
    procedure ButtonDelClick(Sender : TObject);
    procedure ButtonModClick(Sender : TObject);
    procedure CheckBoxGetMsgClick(Sender : TObject);
    procedure ListBoxFilterTextClick(Sender : TObject);
    procedure ListBoxFilterTextDblClick(Sender : TObject);
    procedure TPOPMENU_CLEARClick(Sender : TObject);
    procedure BPOPMENU_CLEARClick(Sender : TObject);
    procedure CheckBoxAnalyseMsgClick(Sender : TObject);
    procedure TrackBar1Change(Sender : TObject);
    procedure CheckBoxCheckNewUserDataClick(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmIPaddrFilter: TfrmIPaddrFilter;

{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TfrmIPaddrFilter.FormCreate(Sender : TObject);
begin
(*
0046E300   53                     push    ebx
0046E301   8BD8                   mov     ebx, eax
0046E303   8B83FC020000           mov     eax, [ebx+$02FC]
0046E309   8B10                   mov     edx, [eax]
0046E30B   FF92D8000000           call    dword ptr [edx+$00D8]
0046E311   8B8304030000           mov     eax, [ebx+$0304]
0046E317   8B10                   mov     edx, [eax]
0046E319   FF92D8000000           call    dword ptr [edx+$00D8]
0046E31F   8B8308030000           mov     eax, [ebx+$0308]
0046E325   8B10                   mov     edx, [eax]
0046E327   FF92D8000000           call    dword ptr [edx+$00D8]
0046E32D   5B                     pop     ebx
0046E32E   C3                     ret

*)
end;

procedure TfrmIPaddrFilter.ActiveListPopupMenuPopup(Sender : TObject);
begin
(*
0046E330   53                     push    ebx
0046E331   56                     push    esi
0046E332   8BF0                   mov     esi, eax
0046E334   8B86FC020000           mov     eax, [esi+$02FC]
0046E33A   8B8018020000           mov     eax, [eax+$0218]
0046E340   8B10                   mov     edx, [eax]
0046E342   FF5214                 call    dword ptr [edx+$14]
0046E345   85C0                   test    eax, eax
0046E347   0F9FC2                 setnle  dl
0046E34A   8B8620030000           mov     eax, [esi+$0320]

* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0046E350   E80798FEFF             call    00457B5C
0046E355   8B86FC020000           mov     eax, [esi+$02FC]
0046E35B   8B10                   mov     edx, [eax]
0046E35D   FF92CC000000           call    dword ptr [edx+$00CC]
0046E363   85C0                   test    eax, eax
0046E365   7C25                   jl      0046E38C
0046E367   8B86FC020000           mov     eax, [esi+$02FC]
0046E36D   8B10                   mov     edx, [eax]
0046E36F   FF92CC000000           call    dword ptr [edx+$00CC]
0046E375   8BD8                   mov     ebx, eax
0046E377   8B86FC020000           mov     eax, [esi+$02FC]
0046E37D   8B8018020000           mov     eax, [eax+$0218]
0046E383   8B10                   mov     edx, [eax]
0046E385   FF5214                 call    dword ptr [edx+$14]
0046E388   3BD8                   cmp     ebx, eax
0046E38A   7C04                   jl      0046E390
0046E38C   33DB                   xor     ebx, ebx
0046E38E   EB02                   jmp     0046E392
0046E390   B301                   mov     bl, $01
0046E392   8BD3                   mov     edx, ebx
0046E394   8B8624030000           mov     eax, [esi+$0324]

* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0046E39A   E8BD97FEFF             call    00457B5C
0046E39F   8BD3                   mov     edx, ebx
0046E3A1   8B8628030000           mov     eax, [esi+$0328]

* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0046E3A7   E8B097FEFF             call    00457B5C
0046E3AC   8BD3                   mov     edx, ebx
0046E3AE   8B862C030000           mov     eax, [esi+$032C]

* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0046E3B4   E8A397FEFF             call    00457B5C
0046E3B9   5E                     pop     esi
0046E3BA   5B                     pop     ebx
0046E3BB   C3                     ret

*)
end;

procedure TfrmIPaddrFilter.APOPMENU_KICKClick(Sender : TObject);
begin
(*
0046E3BC   55                     push    ebp
0046E3BD   8BEC                   mov     ebp, esp
0046E3BF   6A00                   push    $00
0046E3C1   6A00                   push    $00
0046E3C3   53                     push    ebx
0046E3C4   56                     push    esi
0046E3C5   8BD8                   mov     ebx, eax
0046E3C7   33C0                   xor     eax, eax
0046E3C9   55                     push    ebp

* Possible String Reference to: '闄\