?? ipaddrfilter.pas
字號:
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: '檁塤?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -