?? ipaddrfilter.pas
字號:
unit IPaddrFilter;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmIPaddrFilter=class(TForm)
BlockListPopupMenu: TPopupMenu;
BPOPMENU_REFLIST: TMenuItem;
BPOPMENU_SORT: TMenuItem;
BPOPMENU_ADD: TMenuItem;
BPOPMENU_ADDTEMPLIST: TMenuItem;
BPOPMENU_DELETE: TMenuItem;
BPOPMENU_CLEAR: TMenuItem;
TempBlockListPopupMenu: TPopupMenu;
TPOPMENU_REFLIST: TMenuItem;
TPOPMENU_SORT: TMenuItem;
TPOPMENU_ADD: TMenuItem;
TPOPMENU_BLOCKLIST: TMenuItem;
TPOPMENU_DELETE: TMenuItem;
TPOPMENU_CLEAR: TMenuItem;
ActiveListPopupMenu: TPopupMenu;
APOPMENU_REFLIST: TMenuItem;
APOPMENU_SORT: TMenuItem;
APOPMENU_ADDTEMPLIST: TMenuItem;
APOPMENU_BLOCKLIST: TMenuItem;
APOPMENU_KICK: TMenuItem;
GroupBox5: TGroupBox;
ListBoxFilterText: TListBox;
ButtonMod: TButton;
ButtonDel: TButton;
ButtonAdd: TButton;
ButtonOKExClick: TButton;
ButtonOK: TButton;
GroupBox2: TGroupBox;
Label2: TLabel;
Label3: TLabel;
EditMaxConnect: TSpinEdit;
GroupBox4: TGroupBox;
Label5: TLabel;
labIdLimitLevel: TLabel;
CheckBoxLimitCreateNewId: TCheckBox;
TrackBarIDLimitLevel: TTrackBar;
GroupBox1: TGroupBox;
ListBoxTempList: TListBox;
GroupBoxActive: TGroupBox;
ListBoxActiveList: TListBox;
GroupBox6: TGroupBox;
GroupBox7: TGroupBox;
ListBoxCharNameFiltList: TListBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
GroupBox3: TGroupBox;
RadioAddBlockList: TRadioButton;
RadioAddTempList: TRadioButton;
RadioDisConnect: TRadioButton;
CheckBoxLostLine: TCheckBox;
CheckBoxGetMsg: TCheckBox;
CheckBoxAnalyseMsg: TCheckBox;
Label7: TLabel;
ListBoxIPAreaFiltList: TListBox;
GroupBox8: TGroupBox;
ListBoxBlockList: TListBox;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
CheckBoxIPAreaFilter: 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 ListBoxCharNameFiltListClick(Sender : TObject);
procedure Button3Click(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure ListBoxCharNameFiltListDblClick(Sender : TObject);
procedure ListBoxIPAreaFiltListClick(Sender : TObject);
procedure Button5Click(Sender : TObject);
procedure Button6Click(Sender : TObject);
procedure Button7Click(Sender : TObject);
procedure ListBoxIPAreaFiltListDblClick(Sender : TObject);
procedure CheckBoxIPAreaFilterClick(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
(*
0046A8BC 53 push ebx
0046A8BD 8BD8 mov ebx, eax
0046A8BF 8B8394030000 mov eax, [ebx+$0394]
0046A8C5 8B10 mov edx, [eax]
0046A8C7 FF92D8000000 call dword ptr [edx+$00D8]
0046A8CD 8B838C030000 mov eax, [ebx+$038C]
0046A8D3 8B10 mov edx, [eax]
0046A8D5 FF92D8000000 call dword ptr [edx+$00D8]
0046A8DB 8B83DC030000 mov eax, [ebx+$03DC]
0046A8E1 8B10 mov edx, [eax]
0046A8E3 FF92D8000000 call dword ptr [edx+$00D8]
0046A8E9 8B834C030000 mov eax, [ebx+$034C]
0046A8EF 8B10 mov edx, [eax]
0046A8F1 FF92D8000000 call dword ptr [edx+$00D8]
0046A8F7 8B83A0030000 mov eax, [ebx+$03A0]
0046A8FD 8B10 mov edx, [eax]
0046A8FF FF92D8000000 call dword ptr [edx+$00D8]
0046A905 8B83D4030000 mov eax, [ebx+$03D4]
0046A90B 8B10 mov edx, [eax]
0046A90D FF92D8000000 call dword ptr [edx+$00D8]
0046A913 5B pop ebx
0046A914 C3 ret
*)
end;
procedure TfrmIPaddrFilter.ActiveListPopupMenuPopup(Sender : TObject);
begin
(*
0046A918 53 push ebx
0046A919 56 push esi
0046A91A 8BF0 mov esi, eax
0046A91C 8B8694030000 mov eax, [esi+$0394]
0046A922 8B8018020000 mov eax, [eax+$0218]
0046A928 8B10 mov edx, [eax]
0046A92A FF5214 call dword ptr [edx+$14]
0046A92D 85C0 test eax, eax
0046A92F 0F9FC2 setnle dl
0046A932 8B8638030000 mov eax, [esi+$0338]
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0046A938 E82B98FEFF call 00454168
0046A93D 8B8694030000 mov eax, [esi+$0394]
0046A943 8B10 mov edx, [eax]
0046A945 FF92CC000000 call dword ptr [edx+$00CC]
0046A94B 85C0 test eax, eax
0046A94D 7C25 jl 0046A974
0046A94F 8B8694030000 mov eax, [esi+$0394]
0046A955 8B10 mov edx, [eax]
0046A957 FF92CC000000 call dword ptr [edx+$00CC]
0046A95D 8BD8 mov ebx, eax
0046A95F 8B8694030000 mov eax, [esi+$0394]
0046A965 8B8018020000 mov eax, [eax+$0218]
0046A96B 8B10 mov edx, [eax]
0046A96D FF5214 call dword ptr [edx+$14]
0046A970 3BD8 cmp ebx, eax
0046A972 7C04 jl 0046A978
0046A974 33DB xor ebx, ebx
0046A976 EB02 jmp 0046A97A
0046A978 B301 mov bl, $01
0046A97A 8BD3 mov edx, ebx
0046A97C 8B863C030000 mov eax, [esi+$033C]
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0046A982 E8E197FEFF call 00454168
0046A987 8BD3 mov edx, ebx
0046A989 8B8640030000 mov eax, [esi+$0340]
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0046A98F E8D497FEFF call 00454168
0046A994 8BD3 mov edx, ebx
0046A996 8B8644030000 mov eax, [esi+$0344]
* Reference to: Menus.TMenuItem.SetEnabled(TMenuItem;Boolean);
|
0046A99C E8C797FEFF call 00454168
0046A9A1 5E pop esi
0046A9A2 5B pop ebx
0046A9A3 C3 ret
*)
end;
procedure TfrmIPaddrFilter.APOPMENU_KICKClick(Sender : TObject);
begin
(*
0046A9A4 55 push ebp
0046A9A5 8BEC mov ebp, esp
0046A9A7 6A00 push $00
0046A9A9 6A00 push $00
0046A9AB 53 push ebx
0046A9AC 56 push esi
0046A9AD 8BD8 mov ebx, eax
0046A9AF 33C0 xor eax, eax
0046A9B1 55 push ebp
* Possible String Reference to: '轤桖?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -