📄 gateset.pas
字号:
unit GateSet;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmGateSetting=class(TForm)
BtnOk: TBitBtn;
BtnClose: TBitBtn;
GroupBox1: TGroupBox;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
CkGate1: TCheckBox;
EdGate1: TEdit;
CkGate2: TCheckBox;
EdGate2: TEdit;
CkGate3: TCheckBox;
EdGate3: TEdit;
CkGate4: TCheckBox;
EdGate4: TEdit;
CkGate5: TCheckBox;
EdGate5: TEdit;
CkGate6: TCheckBox;
EdGate6: TEdit;
CkGate7: TCheckBox;
EdGate7: TEdit;
CkGate8: TCheckBox;
EdGate8: TEdit;
CkGate9: TCheckBox;
EdGate9: TEdit;
CkGate10: TCheckBox;
EdGate10: TEdit;
GroupBox2: TGroupBox;
EdPublicAddr: TEdit;
Label4: TLabel;
Label3: TLabel;
EdPrivateAddr: TEdit;
GroupBox3: TGroupBox;
CbGateList: TComboBox;
Label2: TLabel;
Label1: TLabel;
CbServerList: TComboBox;
EdTitle: TEdit;
BtnChangeTitle: TSpeedButton;
Label19: TLabel;
procedure FormCreate(Sender : TObject);
procedure CbGateListChange(Sender : TObject);
procedure BtnOkClick(Sender : TObject);
procedure BtnChangeTitleClick(Sender : TObject);
procedure CbServerListChange(Sender : TObject);
procedure BtnCloseClick(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmGateSetting: TFrmGateSetting;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmGateSetting.FormCreate(Sender : TObject);
begin
(*
00470138 8B9040030000 mov edx, [eax+$0340]
0047013E 8990C0030000 mov [eax+$03C0], edx
00470144 8B9048030000 mov edx, [eax+$0348]
0047014A 8990C4030000 mov [eax+$03C4], edx
00470150 8B9050030000 mov edx, [eax+$0350]
00470156 8990C8030000 mov [eax+$03C8], edx
0047015C 8B9058030000 mov edx, [eax+$0358]
00470162 8990CC030000 mov [eax+$03CC], edx
00470168 8B9060030000 mov edx, [eax+$0360]
0047016E 8990D0030000 mov [eax+$03D0], edx
00470174 8B9068030000 mov edx, [eax+$0368]
0047017A 8990D4030000 mov [eax+$03D4], edx
00470180 8B9070030000 mov edx, [eax+$0370]
00470186 8990D8030000 mov [eax+$03D8], edx
0047018C 8B9078030000 mov edx, [eax+$0378]
00470192 8990DC030000 mov [eax+$03DC], edx
00470198 8B9080030000 mov edx, [eax+$0380]
0047019E 8990E0030000 mov [eax+$03E0], edx
004701A4 8B9088030000 mov edx, [eax+$0388]
004701AA 8990E4030000 mov [eax+$03E4], edx
004701B0 8B903C030000 mov edx, [eax+$033C]
004701B6 8990E8030000 mov [eax+$03E8], edx
004701BC 8B9044030000 mov edx, [eax+$0344]
004701C2 8990EC030000 mov [eax+$03EC], edx
004701C8 8B904C030000 mov edx, [eax+$034C]
004701CE 8990F0030000 mov [eax+$03F0], edx
004701D4 8B9054030000 mov edx, [eax+$0354]
004701DA 8990F4030000 mov [eax+$03F4], edx
004701E0 8B905C030000 mov edx, [eax+$035C]
004701E6 8990F8030000 mov [eax+$03F8], edx
004701EC 8B9064030000 mov edx, [eax+$0364]
004701F2 8990FC030000 mov [eax+$03FC], edx
004701F8 8B906C030000 mov edx, [eax+$036C]
004701FE 899000040000 mov [eax+$0400], edx
00470204 8B9074030000 mov edx, [eax+$0374]
0047020A 899004040000 mov [eax+$0404], edx
00470210 8B907C030000 mov edx, [eax+$037C]
00470216 899008040000 mov [eax+$0408], edx
0047021C 8B9084030000 mov edx, [eax+$0384]
00470222 89900C040000 mov [eax+$040C], edx
00470228 C3 ret
*)
end;
procedure TFrmGateSetting.CbGateListChange(Sender : TObject);
begin
(*
0047022C 55 push ebp
0047022D 8BEC mov ebp, esp
0047022F 33C9 xor ecx, ecx
00470231 51 push ecx
00470232 51 push ecx
00470233 51 push ecx
00470234 51 push ecx
00470235 51 push ecx
00470236 51 push ecx
00470237 53 push ebx
00470238 56 push esi
00470239 57 push edi
0047023A 8945FC mov [ebp-$04], eax
0047023D 33C0 xor eax, eax
0047023F 55 push ebp
00470240 68FE034700 push $004703FE
***** TRY
|
00470245 64FF30 push dword ptr fs:[eax]
00470248 648920 mov fs:[eax], esp
0047024B A1800F4900 mov eax, dword ptr [$00490F80]
00470250 8945F0 mov [ebp-$10], eax
00470253 8B45FC mov eax, [ebp-$04]
00470256 8B80B0030000 mov eax, [eax+$03B0]
0047025C 8B10 mov edx, [eax]
0047025E FF92CC000000 call dword ptr [edx+$00CC]
00470264 8BD8 mov ebx, eax
00470266 85DB test ebx, ebx
00470268 0F8C68010000 jl 004703D6
0047026E 8D4DF4 lea ecx, [ebp-$0C]
00470271 8B45FC mov eax, [ebp-$04]
00470274 8B80B0030000 mov eax, [eax+$03B0]
0047027A 8B803C020000 mov eax, [eax+$023C]
00470280 8BD3 mov edx, ebx
00470282 8B18 mov ebx, [eax]
00470284 FF530C call dword ptr [ebx+$0C]
00470287 8B45FC mov eax, [ebp-$04]
0047028A 8B80A4030000 mov eax, [eax+$03A4]
00470290 8B10 mov edx, [eax]
00470292 FF92CC000000 call dword ptr [edx+$00CC]
00470298 8BD8 mov ebx, eax
0047029A 85DB test ebx, ebx
0047029C 0F8C34010000 jl 004703D6
004702A2 8D4DF8 lea ecx, [ebp-$08]
004702A5 8B45FC mov eax, [ebp-$04]
004702A8 8B80A4030000 mov eax, [eax+$03A4]
004702AE 8B803C020000 mov eax, [eax+$023C]
004702B4 8BD3 mov edx, ebx
004702B6 8B18 mov ebx, [eax]
004702B8 FF530C call dword ptr [ebx+$0C]
004702BB 8B45FC mov eax, [ebp-$04]
004702BE 8B80B4030000 mov eax, [eax+$03B4]
004702C4 8B55F8 mov edx, [ebp-$08]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004702C7 E8CC96FDFF call 00449998
004702CC 83CEFF or esi, -$01
004702CF 33DB xor ebx, ebx
004702D1 6BC323 imul eax, ebx, $23
004702D4 8B55F0 mov edx, [ebp-$10]
004702D7 8B848273020000 mov eax, [edx+eax*4+$0273]
004702DE 8B55F8 mov edx, [ebp-$08]
* Reference to: System.@LStrCmp;
|
004702E1 E88E4EF9FF call 00405174
004702E6 7504 jnz 004702EC
004702E8 8BF3 mov esi, ebx
004702EA EB06 jmp 004702F2
004702EC 43 inc ebx
004702ED 83FB3C cmp ebx, +$3C
004702F0 75DF jnz 004702D1
004702F2 85F6 test esi, esi
004702F4 0F8CDC000000 jl 004703D6
004702FA 6BDE23 imul ebx, esi, $23
004702FD 8B45F0 mov eax, [ebp-$10]
00470300 8B949877020000 mov edx, [eax+ebx*4+$0277]
00470307 8B45FC mov eax, [ebp-$04]
0047030A 8B809C030000 mov eax, [eax+$039C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00470310 E88396FDFF call 00449998
00470315 8B45F0 mov eax, [ebp-$10]
00470318 8B94987B020000 mov edx, [eax+ebx*4+$027B]
0047031F 8B45FC mov eax, [ebp-$04]
00470322 8B8090030000 mov eax, [eax+$0390]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00470328 E86B96FDFF call 00449998
0047032D 33DB xor ebx, ebx
0047032F 6BC623 imul eax, esi, $23
00470332 8B55F0 mov edx, [ebp-$10]
00470335 8D0482 lea eax, [edx+eax*4]
00470338 8D3C5B lea edi, [ebx+ebx*2]
0047033B 83BCB88302000000 cmp dword ptr [eax+edi*4+$0283], +$00
00470343 7454 jz 00470399
00470345 6BC623 imul eax, esi, $23
00470348 8B55F0 mov edx, [ebp-$10]
0047034B 8D0482 lea eax, [edx+eax*4]
0047034E 8D145B lea edx, [ebx+ebx*2]
00470351 FFB49083020000 push dword ptr [eax+edx*4+$0283]
00470358 6814044700 push $00470414
0047035D 6BC623 imul eax, esi, $23
00470360 8B55F0 mov edx, [ebp-$10]
00470363 8D0482 lea eax, [edx+eax*4]
00470366 8B84B887020000 mov eax, [eax+edi*4+$0287]
0047036D 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
00470370 E83FA7F9FF call 0040AAB4
00470375 FF75E8 push dword ptr [ebp-$18]
00470378 8D45EC lea eax, [ebp-$14]
0047037B BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00470380 E8634DF9FF call 004050E8
00470385 8B55EC mov edx, [ebp-$14]
00470388 8B45FC mov eax, [ebp-$04]
0047038B 8B8498C0030000 mov eax, [eax+ebx*4+$03C0]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00470392 E80196FDFF call 00449998
00470397 EB11 jmp 004703AA
00470399 8B45FC mov eax, [ebp-$04]
0047039C 8B8498C0030000 mov eax, [eax+ebx*4+$03C0]
004703A3 33D2 xor edx, edx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004703A5 E8EE95FDFF call 00449998
004703AA 6BC623 imul eax, esi, $23
004703AD 8B55F0 mov edx, [ebp-$10]
004703B0 8D0482 lea eax, [edx+eax*4]
004703B3 8A94B88B020000 mov dl, byte ptr [eax+edi*4+$028B]
004703BA 8B45FC mov eax, [ebp-$04]
004703BD 8B8498E8030000 mov eax, [eax+ebx*4+$03E8]
004703C4 8B08 mov ecx, [eax]
004703C6 FF91CC000000 call dword ptr [ecx+$00CC]
004703CC 43 inc ebx
004703CD 83FB0A cmp ebx, +$0A
004703D0 0F8C59FFFFFF jl 0047032F
004703D6 33C0 xor eax, eax
004703D8 5A pop edx
004703D9 59 pop ecx
004703DA 59 pop ecx
004703DB 648910 mov fs:[eax], edx
****** FINALLY
|
004703DE 6805044700 push $00470405
004703E3 8D45E8 lea eax, [ebp-$18]
004703E6 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
004703EB E89C49F9FF call 00404D8C
004703F0 8D45F4 lea eax, [ebp-$0C]
004703F3 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
004703F8 E88F49F9FF call 00404D8C
004703FD C3 ret
* Reference to: System.@HandleFinally;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -