📄 humaninfo.pas
字号:
unit HumanInfo;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmHumanInfo=class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
EditName: TEdit;
EditMap: TEdit;
EditXY: TEdit;
EditAccount: TEdit;
EditIPaddr: TEdit;
EditLogonTime: TEdit;
EditLogonLong: TEdit;
GroupBox2: TGroupBox;
Label12: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
EditLevel: TSpinEdit;
EditGold: TSpinEdit;
EditPKPoint: TSpinEdit;
EditExp: TSpinEdit;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
Timer: TTimer;
GroupBox4: TGroupBox;
CheckBoxMonitor: TCheckBox;
GroupBox6: TGroupBox;
CheckBoxGameMaster: TCheckBox;
CheckBoxSuperMan: TCheckBox;
CheckBoxObserver: TCheckBox;
ButtonKick: TButton;
GroupBox7: TGroupBox;
GridUserItem: TStringGrid;
GroupBox8: TGroupBox;
GridBagItem: TStringGrid;
GroupBox10: TGroupBox;
GridStorageItem: TStringGrid;
EditHumanStatus: TEdit;
ButtonSave: TButton;
Label21: TLabel;
Label29: TLabel;
Label28: TLabel;
Label27: TLabel;
Label26: TLabel;
Label19: TLabel;
EditGamePoint: TSpinEdit;
EditGameGold: TSpinEdit;
EditEditBonusPointUsed: TSpinEdit;
EditCreditPoint: TSpinEdit;
EditBonusPoint: TSpinEdit;
GroupBox3: TGroupBox;
Label11: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
EditAC: TEdit;
EditMAC: TEdit;
EditDC: TEdit;
EditMC: TEdit;
EditSC: TEdit;
EditHP: TEdit;
EditMP: TEdit;
EditHeroName: TEdit;
Label20: TLabel;
EditIPLocal: TEdit;
Label22: TLabel;
EditLevelShow: TEdit;
Label23: TLabel;
EditMaxExpShow: TEdit;
Label24: TLabel;
procedure TimerTimer(Sender : TObject);
procedure CheckBoxMonitorClick(Sender : TObject);
procedure ButtonKickClick(Sender : TObject);
procedure ButtonSaveClick(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure _PROC_0053FF4D(Sender : TObject);
procedure _PROC_0053FFAC(Sender : TObject);
procedure _PROC_00541EB8(Sender : TObject);
procedure _PROC_00541EC5(Sender : TObject);
procedure _PROC_00541F01(Sender : TObject);
procedure _PROC_00541F30(Sender : TObject);
procedure _PROC_00541F38(Sender : TObject);
procedure _PROC_00541FC2(Sender : TObject);
procedure _PROC_00542036(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmHumanInfo: TfrmHumanInfo;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmHumanInfo.TimerTimer(Sender : TObject);
begin
(*
00541ABC 55 push ebp
00541ABD 8BEC mov ebp, esp
00541ABF 83C4F8 add esp, -$08
00541AC2 8955F8 mov [ebp-$08], edx
00541AC5 8945FC mov [ebp-$04], eax
00541AC8 8B45FC mov eax, [ebp-$04]
00541ACB 83B83804000000 cmp dword ptr [eax+$0438], +$00
00541AD2 7443 jz 00541B17
00541AD4 8B45FC mov eax, [ebp-$04]
00541AD7 8B8038040000 mov eax, [eax+$0438]
00541ADD 80B85007000000 cmp byte ptr [eax+$0750], $00
00541AE4 7420 jz 00541B06
* Possible String Reference to: '已经下线'
|
00541AE6 BA241B5400 mov edx, $00541B24
00541AEB 8B45FC mov eax, [ebp-$04]
00541AEE 8B80A8030000 mov eax, [eax+$03A8]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00541AF4 E87F75F2FF call 00469078
00541AF9 8B45FC mov eax, [ebp-$04]
00541AFC 33D2 xor edx, edx
00541AFE 899038040000 mov [eax+$0438], edx
00541B04 EB11 jmp 00541B17
00541B06 803D189F650000 cmp byte ptr [$00659F18], $00
00541B0D 7408 jz 00541B17
00541B0F 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmHumanInfo._PROC_0053FFAC()
|
00541B12 E895E4FFFF call 0053FFAC
00541B17 59 pop ecx
00541B18 59 pop ecx
00541B19 5D pop ebp
00541B1A C3 ret
*)
end;
procedure TfrmHumanInfo.CheckBoxMonitorClick(Sender : TObject);
begin
(*
00541B30 55 push ebp
00541B31 8BEC mov ebp, esp
00541B33 83C4F8 add esp, -$08
00541B36 8955F8 mov [ebp-$08], edx
00541B39 8945FC mov [ebp-$04], eax
00541B3C 8B45FC mov eax, [ebp-$04]
00541B3F 8B8078030000 mov eax, [eax+$0378]
00541B45 8B10 mov edx, [eax]
00541B47 FF92C8000000 call dword ptr [edx+$00C8]
00541B4D A2189F6500 mov byte ptr [$00659F18], al
00541B52 8A15189F6500 mov dl, byte ptr [$00659F18]
00541B58 80F201 xor dl, $01
00541B5B 8B45FC mov eax, [ebp-$04]
00541B5E 8B80AC030000 mov eax, [eax+$03AC]
00541B64 8B08 mov ecx, [eax]
00541B66 FF5164 call dword ptr [ecx+$64]
00541B69 59 pop ecx
00541B6A 59 pop ecx
00541B6B 5D pop ebp
00541B6C C3 ret
*)
end;
procedure TfrmHumanInfo.ButtonKickClick(Sender : TObject);
begin
(*
00541B70 55 push ebp
00541B71 8BEC mov ebp, esp
00541B73 83C4F8 add esp, -$08
00541B76 8955F8 mov [ebp-$08], edx
00541B79 8945FC mov [ebp-$04], eax
00541B7C 8B45FC mov eax, [ebp-$04]
00541B7F 83B83804000000 cmp dword ptr [eax+$0438], +$00
00541B86 7444 jz 00541BCC
00541B88 8B45FC mov eax, [ebp-$04]
00541B8B 8B8038040000 mov eax, [eax+$0438]
00541B91 80B87206000001 cmp byte ptr [eax+$0672], $01
00541B98 7512 jnz 00541BAC
00541B9A 8B45FC mov eax, [ebp-$04]
00541B9D 8B8038040000 mov eax, [eax+$0438]
00541BA3 C680DC0B000001 mov byte ptr [eax+$0BDC], $01
00541BAA EB10 jmp 00541BBC
00541BAC 8B45FC mov eax, [ebp-$04]
00541BAF 8B8038040000 mov eax, [eax+$0438]
00541BB5 C6805007000001 mov byte ptr [eax+$0750], $01
00541BBC 33D2 xor edx, edx
00541BBE 8B45FC mov eax, [ebp-$04]
00541BC1 8B808C030000 mov eax, [eax+$038C]
00541BC7 8B08 mov ecx, [eax]
00541BC9 FF5164 call dword ptr [ecx+$64]
00541BCC 59 pop ecx
00541BCD 59 pop ecx
00541BCE 5D pop ebp
00541BCF C3 ret
*)
end;
procedure TfrmHumanInfo.ButtonSaveClick(Sender : TObject);
begin
(*
00541BD0 55 push ebp
00541BD1 8BEC mov ebp, esp
00541BD3 83C4D4 add esp, -$2C
00541BD6 33C9 xor ecx, ecx
00541BD8 894DD4 mov [ebp-$2C], ecx
00541BDB 8955D8 mov [ebp-$28], edx
00541BDE 8945FC mov [ebp-$04], eax
00541BE1 33C0 xor eax, eax
00541BE3 55 push ebp
* Possible String Reference to: '槠*⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -