📄 viewonlinehuman.pas
字号:
unit ViewOnlineHuman;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmViewOnlineHuman=class(TForm)
PanelStatus: TPanel;
GridHuman: TStringGrid;
Timer: TTimer;
Panel1: TPanel;
ButtonRefGrid: TButton;
ButtonView: TButton;
ButtonSearch: TButton;
EditSearchName: TEdit;
ComboBoxSort: TComboBox;
Label1: TLabel;
ButtonKickOffLinPlayer: TButton;
EditLevelMIN: TSpinEdit;
EditLevelMAX: TSpinEdit;
Label2: TLabel;
CheckBoxHero: TCheckBox;
ButtonKickSpecPlayer: TButton;
EditSpecCharName: TEdit;
Label3: TLabel;
procedure FormCreate(Sender : TObject);
procedure ButtonRefGridClick(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure ComboBoxSortClick(Sender : TObject);
procedure GridHumanDblClick(Sender : TObject);
procedure TimerTimer(Sender : TObject);
procedure ButtonSearchClick(Sender : TObject);
procedure ButtonViewClick(Sender : TObject);
procedure EditSearchNameKeyPress(Sender : TObject);
procedure ButtonKickOffLinPlayerClick(Sender : TObject);
procedure EditLevelMAXChange(Sender : TObject);
procedure EditLevelMINChange(Sender : TObject);
procedure EditLevelMINEnter(Sender : TObject);
procedure EditLevelMAXEnter(Sender : TObject);
procedure CheckBoxHeroClick(Sender : TObject);
procedure ButtonKickSpecPlayerClick(Sender : TObject);
procedure _PROC_00542454(Sender : TObject);
procedure _PROC_00542614(Sender : TObject);
procedure _PROC_00542F9C(Sender : TObject);
procedure _PROC_005435EC(Sender : TObject);
procedure _PROC_00543607(Sender : TObject);
procedure _PROC_00543648(Sender : TObject);
procedure _PROC_00543E1B(Sender : TObject);
procedure _PROC_00543E7D(Sender : TObject);
procedure _PROC_00543EAC(Sender : TObject);
procedure _PROC_00543EB4(Sender : TObject);
procedure _PROC_00543F3E(Sender : TObject);
procedure _PROC_00543FB2(Sender : TObject);
procedure _PROC_005440F1(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmViewOnlineHuman: TfrmViewOnlineHuman;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmViewOnlineHuman.FormCreate(Sender : TObject);
begin
(*
00542C5C 55 push ebp
00542C5D 8BEC mov ebp, esp
00542C5F 83C4F8 add esp, -$08
00542C62 8955F8 mov [ebp-$08], edx
00542C65 8945FC mov [ebp-$04], eax
00542C68 B201 mov dl, $01
00542C6A A1F4CF4100 mov eax, dword ptr [$0041CFF4]
* Reference to: InStack.TInStack.Create(TInStack;boolean);
| or: System.TObject.Create(TObject;Boolean);
|
00542C6F E82C15ECFF call 004041A0
00542C74 8B55FC mov edx, [ebp-$04]
00542C77 898244030000 mov [edx+$0344], eax
* Possible String Reference to: '序号'
|
00542C7D 68242E5400 push $00542E24
00542C82 33C9 xor ecx, ecx
00542C84 33D2 xor edx, edx
00542C86 8B45FC mov eax, [ebp-$04]
00542C89 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00542C8F E8D441FDFF call 00516E68
* Possible String Reference to: '人物名称'
|
00542C94 68342E5400 push $00542E34
00542C99 33C9 xor ecx, ecx
00542C9B BA01000000 mov edx, $00000001
00542CA0 8B45FC mov eax, [ebp-$04]
00542CA3 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00542CA9 E8BA41FDFF call 00516E68
* Possible String Reference to: '性别'
|
00542CAE 68482E5400 push $00542E48
00542CB3 33C9 xor ecx, ecx
00542CB5 BA02000000 mov edx, $00000002
00542CBA 8B45FC mov eax, [ebp-$04]
00542CBD 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00542CC3 E8A041FDFF call 00516E68
* Possible String Reference to: '职业'
|
00542CC8 68582E5400 push $00542E58
00542CCD 33C9 xor ecx, ecx
00542CCF BA03000000 mov edx, $00000003
00542CD4 8B45FC mov eax, [ebp-$04]
00542CD7 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00542CDD E88641FDFF call 00516E68
* Possible String Reference to: '等级'
|
00542CE2 68682E5400 push $00542E68
00542CE7 33C9 xor ecx, ecx
00542CE9 BA04000000 mov edx, $00000004
00542CEE 8B45FC mov eax, [ebp-$04]
00542CF1 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00542CF7 E86C41FDFF call 00516E68
* Possible String Reference to: '地图'
|
00542CFC 68782E5400 push $00542E78
00542D01 33C9 xor ecx, ecx
00542D03 BA05000000 mov edx, $00000005
00542D08 8B45FC mov eax, [ebp-$04]
00542D0B 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00542D11 E85241FDFF call 00516E68
* Possible String Reference to: '座标'
|
00542D16 68882E5400 push $00542E88
00542D1B 33C9 xor ecx, ecx
00542D1D BA06000000 mov edx, $00000006
00542D22 8B45FC mov eax, [ebp-$04]
00542D25 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00542D2B E83841FDFF call 00516E68
* Possible String Reference to: '登录帐号'
|
00542D30 68982E5400 push $00542E98
00542D35 33C9 xor ecx, ecx
00542D37 BA07000000 mov edx, $00000007
00542D3C 8B45FC mov eax, [ebp-$04]
00542D3F 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00542D45 E81E41FDFF call 00516E68
* Possible String Reference to: '登录IP'
|
00542D4A 68AC2E5400 push $00542EAC
00542D4F 33C9 xor ecx, ecx
00542D51 BA08000000 mov edx, $00000008
00542D56 8B45FC mov eax, [ebp-$04]
00542D59 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00542D5F E80441FDFF call 00516E68
* Possible String Reference to: '权限'
|
00542D64 68BC2E5400 push $00542EBC
00542D69 33C9 xor ecx, ecx
00542D6B BA09000000 mov edx, $00000009
00542D70 8B45FC mov eax, [ebp-$04]
00542D73 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00542D79 E8EA40FDFF call 00516E68
* Possible String Reference to: '所在地区'
|
00542D7E 68CC2E5400 push $00542ECC
00542D83 33C9 xor ecx, ecx
00542D85 BA0A000000 mov edx, $0000000A
00542D8A 8B45FC mov eax, [ebp-$04]
00542D8D 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00542D93 E8D040FDFF call 00516E68
00542D98 A1A4B56500 mov eax, dword ptr [$0065B5A4]
00542D9D 8B802F010000 mov eax, [eax+$012F]
00542DA3 50 push eax
00542DA4 33C9 xor ecx, ecx
00542DA6 BA0B000000 mov edx, $0000000B
00542DAB 8B45FC mov eax, [ebp-$04]
00542DAE 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
00542DB4 E8AF40FDFF call 00516E68
00542DB9 A1A4B56500 mov eax, dword ptr [$0065B5A4]
00542DBE 8B8033010000 mov eax, [eax+$0133]
00542DC4 50 push eax
00542DC5 33C9 xor ecx, ecx
00542DC7 BA0C000000 mov edx, $0000000C
00542DCC 8B45FC mov eax, [ebp-$04]
00542DCF 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -