📄 speedtest.pas
字号:
unit SpeedTest;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmPing=class(TForm)
ListView1: TListView;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Timer1: TTimer;
OFFS_02F4: N.A.;
OFFS_02F5: N.A.;
OFFS_02F8: N.A.;
OFFS_02E4: N.A.;
OFFS_02FC: N.A.;
OFFS_0300: N.A.;
procedure FormCreate(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure FormCloseQuery(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure _PROC_006128C8(Sender : TObject);
procedure _PROC_00612948(Sender : TObject);
procedure _PROC_006129A9(Sender : TObject);
procedure _PROC_00612C51(Sender : TObject);
procedure _PROC_00612F04(Sender : TObject);
procedure _PROC_00612F74(Sender : TObject);
procedure _PROC_0061303E(Sender : TObject);
procedure _PROC_006130BB(Sender : TObject);
procedure _PROC_0061310C(Sender : TObject);
procedure _PROC_006133CC(Sender : TObject);
procedure _PROC_006133FC(Sender : TObject);
procedure Proc_006130B4(Sender : TObject);
procedure Proc_00612C50(Sender : TObject);
procedure Proc_00612874(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmPing: TfrmPing;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmPing.FormCreate(Sender : TObject);
begin
(*
00612ECC 53 push ebx
00612ECD 8BD8 mov ebx, eax
* Reference to field TfrmPing.OFFS_02F4 : Byte
|
00612ECF C683F402000001 mov byte ptr [ebx+$02F4], $01
00612ED6 33C0 xor eax, eax
* Reference to field TfrmPing.OFFS_02F0
|
00612ED8 8983F0020000 mov [ebx+$02F0], eax
00612EDE 33C0 xor eax, eax
* Reference to field TfrmPing.OFFS_02EC
|
00612EE0 8983EC020000 mov [ebx+$02EC], eax
* Reference to field TfrmPing.OFFS_02F5 : Byte
|
00612EE6 C683F502000000 mov byte ptr [ebx+$02F5], $00
00612EED B201 mov dl, $01
* Reference to class TList
|
00612EEF A150234100 mov eax, dword ptr [$00412350]
* Reference to: system.TObject.Create(TObject;Boolean);
|
00612EF4 E8A303DFFF call 0040329C
* Reference to field TfrmPing.OFFS_02F8 : TList
|
00612EF9 8983F8020000 mov [ebx+$02F8], eax
00612EFF 5B pop ebx
00612F00 C3 ret
*)
end;
procedure TfrmPing.Button2Click(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
00613094 E82330E4FF call 004560BC
00613099 C3 ret
*)
end;
procedure TfrmPing.Button1Click(Sender : TObject);
begin
(*
* Reference to field TfrmPing.OFFS_02F5 : Byte
|
0061309C 80B8F502000000 cmp byte ptr [eax+$02F5], $00
006130A3 7506 jnz 006130AB
* Reference to : TfrmPing._PROC_00612F74()
|
006130A5 E8CAFEFFFF call 00612F74
006130AA C3 ret
* Reference to : TfrmPing.Proc_006130B4()
|
006130AB E804000000 call 006130B4
006130B0 C3 ret
*)
end;
procedure TfrmPing.FormDestroy(Sender : TObject);
begin
(*
0061333C 53 push ebx
0061333D 8BD8 mov ebx, eax
* Reference to field TfrmPing.OFFS_02F0
|
0061333F 8B83F0020000 mov eax, [ebx+$02F0]
00613345 85C0 test eax, eax
00613347 7405 jz 0061334E
* Reference to: system.@FreeMem;
|
00613349 E832F5DEFF call 00402880
* Reference to field TfrmPing.OFFS_02E4 : TStringList
|
0061334E 8B83E4020000 mov eax, [ebx+$02E4]
* Reference to: system.TObject.Free(TObject);
|
00613354 E873FFDEFF call 004032CC
* Reference to field TfrmPing.OFFS_02F8 : TList
|
00613359 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: system.TObject.Free(TObject);
|
0061335F E868FFDEFF call 004032CC
00613364 5B pop ebx
00613365 C3 ret
*)
end;
procedure TfrmPing.FormCloseQuery(Sender : TObject);
begin
(*
00613368 53 push ebx
00613369 56 push esi
0061336A 8BF1 mov esi, ecx
0061336C 8BD8 mov ebx, eax
0061336E 8BC3 mov eax, ebx
* Reference to : TfrmPing.Proc_006130B4()
|
00613370 E83FFDFFFF call 006130B4
* Reference to field TfrmPing.OFFS_02EC
|
00613375 83BBEC02000000 cmp dword ptr [ebx+$02EC], +$00
0061337C 7403 jz 00613381
0061337E C60600 mov byte ptr [esi], $00
00613381 5E pop esi
00613382 5B pop ebx
00613383 C3 ret
*)
end;
procedure TfrmPing.Timer1Timer(Sender : TObject);
begin
(*
00613384 53 push ebx
00613385 8BD8 mov ebx, eax
00613387 33D2 xor edx, edx
* Reference to control TfrmPing.Timer1 : TTimer
|
00613389 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
0061338F E83CC1E4FF call 0045F4D0
* Reference to control TfrmPing.Button1 : TButton
|
00613394 8B83D4020000 mov eax, [ebx+$02D4]
* Possible reference to dynamic method TButton.OFFS_FFEC
|
0061339A 66BBECFF mov bx, $FFEC
* Reference to: system.@CallDynaInst;
|
0061339E E80501DFFF call 004034A8
006133A3 5B pop ebx
006133A4 C3 ret
*)
end;
procedure TfrmPing.FormShow(Sender : TObject);
begin
(*
006133A8 53 push ebx
006133A9 8BD8 mov ebx, eax
* Reference to field TfrmPing.OFFS_02F4 : Byte
|
006133AB 80BBF402000000 cmp byte ptr [ebx+$02F4], $00
006133B2 7414 jz 006133C8
006133B4 B201 mov dl, $01
* Reference to control TfrmPing.Timer1 : TTimer
|
006133B6 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
006133BC E80FC1E4FF call 0045F4D0
* Reference to field TfrmPing.OFFS_02F4 : Byte
|
006133C1 C683F402000000 mov byte ptr [ebx+$02F4], $00
006133C8 5B pop ebx
006133C9 C3 ret
*)
end;
procedure TfrmPing._PROC_006128C8(Sender : TObject);
begin
(*
006128C8 53 push ebx
006128C9 83C4F0 add esp, -$10
006128CC 8BD8 mov ebx, eax
006128CE 53 push ebx
006128CF 6848296100 push $00612948
006128D4 8BC3 mov eax, ebx
* Reference to: classes.TThread.Synchronize(TThread;TThreadMethod);
|
006128D6 E8E187E0FF call 0041B0BC
006128DB 69433494020000 imul eax, [ebx+$34], $00000294
006128E2 034338 add eax, [ebx+$38]
006128E5 54 push esp
006128E6 50 push eax
* Reference to: tcpip.GetSRespondDat()
|
006128E7 E890580000 call 0061817C
006128EC 40 inc eax
006128ED 750F jnz 006128FE
006128EF C70424FFFF0000 mov dword ptr [esp], $0000FFFF
006128F6 C744240401000000 mov dword ptr [esp+$04], $00000001
006128FE 69433494020000 imul eax, [ebx+$34], $00000294
00612905 034338 add eax, [ebx+$38]
00612908 8B1424 mov edx, [esp]
0061290B 89908C020000 mov [eax+$028C], edx
00612911 8B442404 mov eax, [esp+$04]
00612915 89442408 mov [esp+$08], eax
00612919 33C0 xor eax, eax
0061291B 8944240C mov [esp+$0C], eax
0061291F DF6C2408 fild qword ptr [esp+$08]
00612923 69433494020000 imul eax, [ebx+$34], $00000294
0061292A 034338 add eax, [ebx+$38]
0061292D D99890020000 fstp dword ptr [eax+$0290]
00612933 9B wait
00612934 53 push ebx
* Possible String Reference to: 'U嬱j'
|
00612935 68A8296100 push $006129A8
0061293A 8BC3 mov eax, ebx
* Reference to: classes.TThread.Synchronize(TThread;TThreadMethod);
|
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -