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;
    GroupBoxNullConnect: TGroupBox;
    Label6: TLabel;
    EditMaxSize: TSpinEdit;
    TPOPMENU_ADD: TMenuItem;
    BPOPMENU_ADD: TMenuItem;
    EditMaxClientMsgCount: TSpinEdit;
    Label8: TLabel;
    CheckBoxLostLine: TCheckBox;
    Label9: TLabel;
    EditClientTimeOutTime: TSpinEdit;
    Label10: TLabel;
    EditNomSize: TSpinEdit;
    Label5: TLabel;
    CheckBoxNullConnect: TCheckBox;
    GroupBox5: TGroupBox;
    Label7: TLabel;
    ListBoxFilterText: TListBox;
    ButtonMod: TButton;
    ButtonDel: TButton;
    ButtonAdd: TButton;
    ButtonOKExClick: TButton;
    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 EditMaxSizeChange(Sender : TObject);
    procedure TPOPMENU_ADDClick(Sender : TObject);
    procedure BPOPMENU_ADDClick(Sender : TObject);
    procedure EditMaxClientMsgCountChange(Sender : TObject);
    procedure CheckBoxLostLineClick(Sender : TObject);
    procedure EditClientTimeOutTimeChange(Sender : TObject);
    procedure EditNomSizeChange(Sender : TObject);
    procedure CheckBoxNullConnectClick(Sender : TObject);
    procedure ListBoxFilterTextClick(Sender : TObject);
    procedure ListBoxFilterTextDblClick(Sender : TObject);
    procedure ButtonAddClick(Sender : TObject);
    procedure ButtonDelClick(Sender : TObject);
    procedure ButtonModClick(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
(*
004861F4   53                     push    ebx
004861F5   8BD8                   mov     ebx, eax
004861F7   8B83FC020000           mov     eax, [ebx+$02FC]
004861FD   8B10                   mov     edx, [eax]
004861FF   FF92D8000000           call    dword ptr [edx+$00D8]
00486205   8B8304030000           mov     eax, [ebx+$0304]
0048620B   8B10                   mov     edx, [eax]
0048620D   FF92D8000000           call    dword ptr [edx+$00D8]
00486213   8B8308030000           mov     eax, [ebx+$0308]
00486219   8B10                   mov     edx, [eax]
0048621B   FF92D8000000           call    dword ptr [edx+$00D8]
00486221   5B                     pop     ebx
00486222   C3                     ret

*)
end;

procedure TfrmIPaddrFilter.ActiveListPopupMenuPopup(Sender : TObject);
begin
(*
00486224   53                     push    ebx
00486225   56                     push    esi
00486226   8BF0                   mov     esi, eax
00486228   8B86FC020000           mov     eax, [esi+$02FC]
0048622E   8B8018020000           mov     eax, [eax+$0218]
00486234   8B10                   mov     edx, [eax]
00486236   FF5214                 call    dword ptr [edx+$14]
00486239   85C0                   test    eax, eax
0048623B   0F9FC2                 setnle  dl
0048623E   8B8620030000           mov     eax, [esi+$0320]

* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
00486244   E8FB31FDFF             call    00459444
00486249   8B86FC020000           mov     eax, [esi+$02FC]
0048624F   8B10                   mov     edx, [eax]
00486251   FF92CC000000           call    dword ptr [edx+$00CC]
00486257   85C0                   test    eax, eax
00486259   7C25                   jl      00486280
0048625B   8B86FC020000           mov     eax, [esi+$02FC]
00486261   8B10                   mov     edx, [eax]
00486263   FF92CC000000           call    dword ptr [edx+$00CC]
00486269   8BD8                   mov     ebx, eax
0048626B   8B86FC020000           mov     eax, [esi+$02FC]
00486271   8B8018020000           mov     eax, [eax+$0218]
00486277   8B10                   mov     edx, [eax]
00486279   FF5214                 call    dword ptr [edx+$14]
0048627C   3BD8                   cmp     ebx, eax
0048627E   7C04                   jl      00486284
00486280   33DB                   xor     ebx, ebx
00486282   EB02                   jmp     00486286
00486284   B301                   mov     bl, $01
00486286   8BD3                   mov     edx, ebx
00486288   8B8624030000           mov     eax, [esi+$0324]

* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0048628E   E8B131FDFF             call    00459444
00486293   8BD3                   mov     edx, ebx
00486295   8B8628030000           mov     eax, [esi+$0328]

* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0048629B   E8A431FDFF             call    00459444
004862A0   8BD3                   mov     edx, ebx
004862A2   8B862C030000           mov     eax, [esi+$032C]

* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
004862A8   E89731FDFF             call    00459444
004862AD   5E                     pop     esi
004862AE   5B                     pop     ebx
004862AF   C3                     ret

*)
end;

procedure TfrmIPaddrFilter.APOPMENU_KICKClick(Sender : TObject);
begin
(*
004862B0   55                     push    ebp
004862B1   8BEC                   mov     ebp, esp
004862B3   6A00                   push    $00
004862B5   6A00                   push    $00
004862B7   53                     push    ebx
004862B8   56                     push    esi
004862B9   8BD8                   mov     ebx, eax
004862BB   33C0                   xor     eax, eax
004862BD   55                     push    ebp

* Possible String Reference to: '檩埙