main.pas

2003年的远程控制

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ScktComp, ComCtrls, FileCtrl, Gauges, Buttons, Menus, ExtCtrls,
  Jpeg,winsock,
  {}
  stale,scanner, Grids,lang_eng, ExtDlgs;


type
  TPCli6 = class(TForm)
    klient: TClientSocket;
    PageControl1: TPageControl;
    Tab1: TTabSheet;
    Tab2: TTabSheet;
    Tab3: TTabSheet;
    Tab11: TTabSheet;
    Tab4: TTabSheet;
    Button1: TButton;
    Lab1: TLabel;
    Lab3: TLabel;
    pass: TEdit;
    WinList: TListBox;
    Button6: TButton;
    Label4: TLabel;
    wintitle: TEdit;
    Button7: TButton;
    PageControl2: TPageControl;
    TabSheet6: TTabSheet;
    TabSheet8: TTabSheet;
    Button16: TButton;
    Button21: TButton;
    ChildList: TListBox;
    Button10: TButton;
    Edit2: TEdit;
    Label5: TLabel;
    ChildTitle: TEdit;
    ChRename: TButton;
    ShowChild: TButton;
    childtype: TCheckBox;
    dircurr: TLabel;
    Label9: TLabel;
    dirstatus: TLabel;
    dirlist: TListBox;
    filelist: TListBox;
    I_Lasterror: TLabel;
    lasterror: TLabel;
    drivelist: TComboBox;
    DirectoryListBox1: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
    FileListBox1: TFileListBox;
    localdir: TLabel;
    Gauge1: TGauge;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    hostname: TComboBox;
    GroupBox2: TGroupBox;
    GroupBox5: TGroupBox;
    SpeedButton11: TSpeedButton;
    wwwadr: TComboBox;
    Label6: TLabel;
    emailsender: TEdit;
    emailsubject: TEdit;
    Label8: TLabel;
    SpeedButton12: TSpeedButton;
    GroupBox6: TGroupBox;
    doscomm: TEdit;
    SpeedButton13: TSpeedButton;
    GroupBox7: TGroupBox;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    savertime: TEdit;
    SpeedButton16: TSpeedButton;
    Label10: TLabel;
    SpeedButton19: TSpeedButton;
    flashtime: TEdit;
    Label11: TLabel;
    SpeedButton20: TSpeedButton;
    Label12: TLabel;
    inverttime: TEdit;
    enablechild: TSpeedButton;
    SpeedButton25: TSpeedButton;
    newdir: TEdit;
    Tab6: TTabSheet;
    But2: TSpeedButton;
    PopupMenu1: TPopupMenu;
    Windowsdirectory1: TMenuItem;
    Systemdirectory1: TMenuItem;
    Pulpit1: TMenuItem;
    ProgramFiles1: TMenuItem;
    MenuStart1: TMenuItem;
    MojeDokumenty1: TMenuItem;
    TabSheet10: TTabSheet;
    Image1: TImage;
    proginfo: TLabel;
    Label18: TLabel;
    Memo2: TMemo;
    Tab7: TTabSheet;
    net_: TEdit;
    Label27: TLabel;
    to_: TEdit;
    Label28: TLabel;
    scanbutt: TSpeedButton;
    scansock: TClientSocket;
    from_: TEdit;
    Label29: TLabel;
    http: TClientSocket;
    ScrollBox1: TScrollBox;
    Image2: TImage;
    GroupBox9: TGroupBox;
    SpeedButton26: TSpeedButton;
    SpeedButton27: TSpeedButton;
    SpeedButton28: TSpeedButton;
    cliptext: TEdit;
    GroupBox12: TGroupBox;
    SpeedButton39: TSpeedButton;
    efektsel: TComboBox;
    SpeedButton40: TSpeedButton;
    Gauge2: TGauge;
    Tab9: TTabSheet;
    scriptlist: TListBox;
    SpeedButton9: TSpeedButton;
    scriptedit: TMemo;
    SpeedButton38: TSpeedButton;
    SpeedButton41: TSpeedButton;
    GroupBox13: TGroupBox;
    terminlist: TListBox;
    SpeedButton42: TSpeedButton;
    scriptname: TEdit;
    Label7: TLabel;
    SpeedButton43: TSpeedButton;
    scriptcomm: TEdit;
    Label33: TLabel;
    SpeedButton44: TSpeedButton;
    PageControl3: TPageControl;
    TabSheet13: TTabSheet;
    TabSheet14: TTabSheet;
    TabSheet15: TTabSheet;
    TabSheet16: TTabSheet;
    yr1: TEdit;
    yr2: TEdit;
    m1: TEdit;
    m2: TEdit;
    d1: TEdit;
    d2: TEdit;
    terminname: TEdit;
    termincomm: TEdit;
    terminscripts: TListBox;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    dw1: TComboBox;
    dw2: TComboBox;
    Label38: TLabel;
    Label39: TLabel;
    h1: TEdit;
    h2: TEdit;
    mi1: TEdit;
    mi2: TEdit;
    Label40: TLabel;
    Label41: TLabel;
    random1: TTrackBar;
    Label42: TLabel;
    coile: TEdit;
    Label43: TLabel;
    ilerazy: TEdit;
    Label44: TLabel;
    terminenabled: TCheckBox;
    Label45: TLabel;
    Label46: TLabel;
    random2: TLabel;
    SpeedButton46: TSpeedButton;
    SpeedButton47: TSpeedButton;
    SpeedButton48: TSpeedButton;
    SpeedButton49: TSpeedButton;
    SpeedButton50: TSpeedButton;
    SpeedButton51: TSpeedButton;
    SpeedButton52: TSpeedButton;
    SpeedButton53: TSpeedButton;
    SpeedButton54: TSpeedButton;
    SpeedButton55: TSpeedButton;
    SpeedButton56: TSpeedButton;
    SpeedButton57: TSpeedButton;
    SpeedButton58: TSpeedButton;
    SpeedButton59: TSpeedButton;
    netcurr: TLabel;
    netport: TEdit;
    Label47: TLabel;
    portnr: TEdit;
    Lab2: TLabel;
    Button18: TButton;
    Button8: TButton;
    Button19: TButton;
    Button20: TButton;
    SpeedButton35: TSpeedButton;
    Label20: TLabel;
    iledziur: TEdit;
    SpeedButton36: TSpeedButton;
    SpeedButton37: TSpeedButton;
    TrackBar1: TTrackBar;
    Label22: TLabel;
    Label24: TLabel;
    GroupBox3: TGroupBox;
    SpeedButton6: TSpeedButton;
    SpeedButton23: TSpeedButton;
    GroupBox14: TGroupBox;
    label333: TLabel;
    prover: TLabel;
    Label25: TLabel;
    uname: TLabel;
    Label26: TLabel;
    hname: TLabel;
    Label49: TLabel;
    online: TLabel;
    Label3: TLabel;
    remoteip: TLabel;
    Label21: TLabel;
    winver: TLabel;
    Label23: TLabel;
    ident: TLabel;
    Label17: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label50: TLabel;
    ping: TLabel;
    SpeedButton60: TSpeedButton;
    SpeedButton61: TSpeedButton;
    pingbutt: TSpeedButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    showwin: TButton;
    Button22: TButton;
    invisible: TCheckBox;
    SpeedButton65: TSpeedButton;
    SpeedButton66: TSpeedButton;
    Tab8: TTabSheet;
    keyscan: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Tab5: TTabSheet;
    Tab10: TTabSheet;
    GroupBox15: TGroupBox;
    SpeedButton21: TSpeedButton;
    Panel1: TPanel;
    mesg_icon1: TRadioButton;
    mesg_icon2: TRadioButton;
    mesg_icon3: TRadioButton;
    mesg_icon4: TRadioButton;
    mesg_info: TMemo;
    mesg_title: TEdit;
    Label51: TLabel;
    mesg_text: TEdit;
    Label52: TLabel;
    mesg_buttons1: TCheckBox;
    GroupBox8: TGroupBox;
    mouseswap: TCheckBox;
    hidestart: TCheckBox;
    hidetask: TCheckBox;
    hidepulpit: TCheckBox;
    GroupBox1: TGroupBox;
    SpeedButton45: TSpeedButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    GroupBox17: TGroupBox;
    Label13: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    SpeedButton68: TSpeedButton;
    i_nadawca: TEdit;
    i_adresat: TEdit;
    i_temat: TEdit;
    mailedit: TMemo;
    Label55: TLabel;
    SpeedButton69: TSpeedButton;
    SpeedButton70: TSpeedButton;
    SpeedButton71: TSpeedButton;
    SpeedButton72: TSpeedButton;
    SpeedButton73: TSpeedButton;
    GroupBox16: TGroupBox;
    GroupBox18: TGroupBox;
    Label19: TLabel;
    GroupBox19: TGroupBox;
    debug: TCheckBox;
    SpeedButton67: TSpeedButton;
    Edit1: TEdit;
    Memo1: TMemo;
    i_mailhost: TEdit;
    SpeedButton22: TSpeedButton;
    GroupBox20: TGroupBox;
    i_syslog: TCheckBox;
    i_keylog: TCheckBox;
    i_syslogfile: TEdit;
    i_keylogfile: TEdit;
    regfile: TEdit;
    httpdport: TEdit;
    newpass: TEdit;
    SpeedButton62: TSpeedButton;
    i_autosyslog: TCheckBox;
    i_autokeylog: TCheckBox;
    SpeedButton74: TSpeedButton;
    i_httpd: TCheckBox;
    i_httpdauto: TCheckBox;
    SpeedButton24: TSpeedButton;
    SpeedButton63: TSpeedButton;
    SpeedButton64: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    GroupBox4: TGroupBox;
    SpeedButton33: TSpeedButton;
    Label15: TLabel;
    Label16: TLabel;
    proxyremote: TEdit;
    proxylocal: TEdit;
    proxyremoteport: TEdit;
    i_proxy: TCheckBox;
    i_backport: TEdit;
    Button9: TButton;
    SpeedButton75: TSpeedButton;
    SpeedButton76: TSpeedButton;
    Monitoron: TCheckBox;
    Panel2: TPanel;
    exe: TRadioButton;
    dos: TRadioButton;
    Panel3: TPanel;
    normal: TRadioButton;
    minimal: TRadioButton;
    hidden: TRadioButton;
    Label57: TLabel;
    SpeedButton17: TSpeedButton;
    Edit3: TEdit;
    Edit4: TEdit;
    SpeedButton18: TSpeedButton;
    SpeedButton77: TSpeedButton;
    SpeedButton78: TSpeedButton;
    SpeedButton79: TSpeedButton;
    GroupBox21: TGroupBox;
    SpeedButton10: TSpeedButton;
    setname: TEdit;
    i_proxyauto: TCheckBox;
    GroupBox22: TGroupBox;
    i_telnet: TCheckBox;
    i_telnetauto: TCheckBox;
    i_telnetport: TEdit;
    Label56: TLabel;
    SpeedButton80: TSpeedButton;
    keylock: TCheckBox;
    netlist: TStringGrid;
    SpeedButton81: TSpeedButton;
    SpeedButton82: TSpeedButton;
    SpeedButton83: TSpeedButton;
    actionmenu: TPopupMenu;
    WallpaperBMP1: TMenuItem;
    ShowJPEGJPG1: TMenuItem;
    PlaysoundWAV1: TMenuItem;
    PlayloopWAV1: TMenuItem;
    SoundStop1: TMenuItem;
    Shift1: TMenuItem;
    SpeedButton84: TSpeedButton;
    SpeedButton85: TSpeedButton;
    SpeedButton86: TSpeedButton;
    Label1: TLabel;
    SpeedButton34: TSpeedButton;
    SpeedButton87: TSpeedButton;
    SpeedButton88: TSpeedButton;
    SpeedButton89: TSpeedButton;
    SpeedButton90: TSpeedButton;
    SavePicture: TSavePictureDialog;
    TabSheet1: TTabSheet;
    msnet: TMemo;
    SpeedButton91: TSpeedButton;
    SpeedButton92: TSpeedButton;
    cdtracks: TListBox;
    filter: TComboBox;
    jpeg_quality: TTrackBar;
    i_syskey: TCheckBox;
    i_apptitle: TCheckBox;
    i_mysza: TCheckBox;
    RegList: TListBox;
    rkey: TLabel;
    regkey: TLabel;
    ValList: TStringGrid;
    regmenu: TPopupMenu;
    Getroot1: TMenuItem;
    Up1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    Reg_goto1: TMenuItem;
    regedit: TPopupMenu;
    Updateremoteregistry1: TMenuItem;
    AddValue1: TMenuItem;
    DeleteValue1: TMenuItem;
    Refresh1: TMenuItem;
    Reg_goto2: TMenuItem;
    reg_goto3: TMenuItem;
    Reg_goto4: TMenuItem;
    Label66: TLabel;
    i_slidetime: TEdit;
    GroupBox10: TGroupBox;
    i_clip1: TEdit;
    SpeedButton29: TSpeedButton;
    SpeedButton30: TSpeedButton;
    i_clip2: TEdit;
    SpeedButton31: TSpeedButton;
    SpeedButton32: TSpeedButton;
    mousetimer: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure klientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure klientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure klientError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure klientConnecting(Sender: TObject; Socket: TCustomWinSocket);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure klientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure Button6Click(Sender: TObject);
    procedure WinListClick(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Whideclick(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure ButtonChildList(Sender: TObject);
    procedure ChildListClick(Sender: TObject);
    procedure ChRenameClick(Sender: TObject);
    procedure ShowChildClick(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure dirlistClick(Sender: TObject);
    procedure drivelistChange(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton19Click(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure mouseswapClick(Sender: TObject);
    procedure hidestartClick(Sender: TObject);
    procedure hidetaskClick(Sender: TObject);
    procedure SpeedButton21Click(Sender: TObject);
    procedure hidepulpitClick(Sender: TObject);
    procedure SpeedButton22Click(Sender: TObject);
    procedure SpeedButton23Click(Sender: TObject);
    procedure SpeedButton25Click(Sender: TObject);
    procedure enablechildClick(Sender: TObject);
    procedure SpeedButton26Click(Sender: TObject);
    procedure SpeedButton27Click(Sender: TObject);
    procedure SpeedButton28Click(Sender: TObject);
    procedure SpeedButton33Click(Sender: TObject);
    procedure But2Click(Sender: TObject);