📄 mainform.~pas
字号:
TeButton56: TTeButton;
gbServices: TTeGroupBox;
TeButton57: TTeButton;
TeButton58: TTeButton;
TeButton59: TTeButton;
OpenDDM: TTeOpenDialog;
SaveDDM: TTeSaveDialog;
chBoxMSNConnection: TTeCheckBox;
ProgressBarCam: TTeProgressBar;
TeButton60: TTeButton;
TeButton61: TTeButton;
TimerRDC: TTimer;
btnRDCTime: TTeButton;
edtRDCtime: TTeSEdit;
lblKeyloggerSeconds: TLabel;
lvServices: TTeListView;
gbOnlineEditor: TTeGroupBox;
edtOEVER: TTeSEdit;
edtOEPASS: TTeSEdit;
Label10: TLabel;
Label11: TLabel;
TeButton65: TTeButton;
gbWebServer: TTeGroupBox;
btnWebserverStart: TTeButton;
TeSEdit1: TTeSEdit;
TeLabel1: TTeLabel;
TeLabel3: TTeLabel;
TeSEdit2: TTeSEdit;
TeLabel4: TTeLabel;
TeSEdit3: TTeSEdit;
TeButton55: TTeButton;
gbShutDown: TTeGroupBox;
TeButton62: TTeButton;
TeButton66: TTeButton;
TeButton67: TTeButton;
TeButton68: TTeButton;
TeButton69: TTeButton;
TeButton70: TTeButton;
chBoxDisappear: TTeCheckBox;
TeButton71: TTeButton;
TeGroupBox8: TTeGroupBox;
edtFWB: TTeSEdit;
Label2: TLabel;
btnStartRDC: TTeButton;
chBoxUPX: TTeCheckBox;
Image1: TImage;
TeScrollBox6: TTeScrollBox;
Label5: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
TeButton4: TtefxButton;
Label25: TLabel;
Label26: TLabel;
edtSetIP: TTeSEdit;
Label27: TLabel;
TeButton2: TTeButton;
RadioBStartUPActivex: TTeCheckBox;
RadioBStartUPCU: TTeCheckBox;
RadioBStartUPLM: TTeCheckBox;
SkinData1: TSkinData;
OpenDialog3: TOpenDialog;
cbLanguage: TTeComboBox;
TeButton37: TTeButton;
TeButton38: TTeButton;
btnSpyKeylogger: TTeButton;
btnSpyProcesses: TtefxButton;
btnSpyScreenshot: TTeButton;
btnSpywebcam: TTeButton;
btnSpyWindows: TTeButton;
btnSpyConsole: TTeButton;
TeButton6: TTeButton;
TeButton1: TTeButton;
TeButton12: TTeButton;
btnSpyRegedit: TTeButton;
TeButton41: TTeButton;
TeButton39: TTeButton;
TeButton42: TTeButton;
TeButton422: TTeButton;
TeButton43: TTeButton;
TeButton40: TTeButton;
TeButton44: TTeButton;
TeButton45: TTeButton;
TeButton46: TTeButton;
TeButton47: TTeButton;
TeButton49: TTeButton;
procedure TebtnMainExplorerClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnSettingGeneralClick(Sender: TObject);
procedure CustomItem2Click(Sender: TObject);
procedure btnMainFun0Click(Sender: TObject);
procedure btnMainAdmin1Click(Sender: TObject);
procedure btnMainFun24Click(Sender: TObject);
procedure btnMainFun14Click(Sender: TObject);
procedure btnMainFun13Click(Sender: TObject);
procedure btnMainFun19Click(Sender: TObject);
procedure btnMainFun16Click(Sender: TObject);
procedure btnMainFun11Click(Sender: TObject);
procedure btnMainFun6Click(Sender: TObject);
procedure btnMainFun12Click(Sender: TObject);
procedure btnMainAdmin17Click(Sender: TObject);
procedure btnMainAdmin9Click(Sender: TObject);
procedure btnMainAdmin4Click(Sender: TObject);
procedure btnMainAdmin8Click(Sender: TObject);
procedure btnMainAdmin3Click(Sender: TObject);
procedure btnMainAdmin5Click(Sender: TObject);
procedure btnMainAdmin2Click(Sender: TObject);
procedure btnMainAdmin46Click(Sender: TObject);
procedure btnMainAdmin27Click(Sender: TObject);
procedure btnMainAdmin15Click(Sender: TObject);
procedure btnMainFun18Click(Sender: TObject);
procedure btnMainFun20Click(Sender: TObject);
procedure btnMainFun28Click(Sender: TObject);
procedure btnMainAdmin22Click(Sender: TObject);
procedure btnMainAdmin23Click(Sender: TObject);
procedure memoMainChange(Sender: TObject);
procedure btnMainAdmin10Click(Sender: TObject);
procedure btnChatSendClick(Sender: TObject);
procedure EdtChatMessageKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure btnSpyProcessesClick(Sender: TObject);
procedure btnClientsRefreshClick(Sender: TObject);
procedure btnClientsConnectClick(Sender: TObject);
procedure LV1DblClick(Sender: TObject);
procedure btnExplorerDownloadClick(Sender: TObject);
procedure btnExplorerUploadClick(Sender: TObject);
procedure btnExplorerDelClick(Sender: TObject);
procedure btnExplorerRefreshClick(Sender: TObject);
procedure btnExploreRenameClick(Sender: TObject);
procedure btnExplorerMKDClick(Sender: TObject);
procedure btnExplorerRunClick(Sender: TObject);
procedure btnExplorerUPClick(Sender: TObject);
procedure btnSpyKeyloggerClick(Sender: TObject);
procedure btnSpyScreenshotClick(Sender: TObject);
procedure btnSpywebcamClick(Sender: TObject);
procedure memoGetkeysChange(Sender: TObject);
procedure Memo2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure memoGetkeysDblClick(Sender: TObject);
procedure btnSpyScreenshotCapClick(Sender: TObject);
procedure TeTrackBar2Change(Sender: TObject);
procedure btnIconAddClick(Sender: TObject);
procedure btnSetupOpenClick(Sender: TObject);
procedure btnSetupSaveClick(Sender: TObject);
procedure btnBinderAddClick(Sender: TObject);
procedure btnReverseConnectionIPClick(Sender: TObject);
procedure btnSetupNotifyClick(Sender: TObject);
procedure btnSetupbinderIconClick(Sender: TObject);
procedure btnSetupMISCClick(Sender: TObject);
procedure btnSetupAVFWkillClick(Sender: TObject);
procedure btnSetupGeneralClick(Sender: TObject);
procedure btnSpyConsoleClick(Sender: TObject);
procedure btnSpyWindowsClick(Sender: TObject);
procedure btnSpyWindowsCloseClick(Sender: TObject);
procedure btnSpyWindowsHideClick(Sender: TObject);
procedure btnSpyWindowsshowClick(Sender: TObject);
procedure btnSpyWindowsRefreshClick(Sender: TObject);
procedure edtConsoleKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure TeTrackBar1Change(Sender: TObject);
procedure btnSettingConnectionsClick(Sender: TObject);
procedure chkbShowIPClick(Sender: TObject);
procedure imgScreenshotDblClick(Sender: TObject);
procedure btnAVFWkillCleanClick(Sender: TObject);
procedure btnSpyProcessesRefreshClick(Sender: TObject);
procedure btnSpyProcessesKillClick(Sender: TObject);
procedure btnSpyRegeditClick(Sender: TObject);
procedure btnMSNconnectionConnectClick(Sender: TObject);
procedure lvMSNDblClick(Sender: TObject);
procedure TrackBarwidthChange(Sender: TObject);
procedure TrackBarheightChange(Sender: TObject);
procedure btnMGSsSendClick(Sender: TObject);
procedure TeSpeedButton1Click(Sender: TObject);
procedure TeSpeedButton2Click(Sender: TObject);
procedure TeSpeedButton3Click(Sender: TObject);
procedure TeSpeedButton4Click(Sender: TObject);
procedure TeButton1Click(Sender: TObject);
procedure imgIcon1Click(Sender: TObject);
procedure imgIcon2Click(Sender: TObject);
procedure imgIcon3Click(Sender: TObject);
procedure imgIcon8Click(Sender: TObject);
procedure imgIcon9Click(Sender: TObject);
procedure imgIcon6Click(Sender: TObject);
procedure imgIcon4Click(Sender: TObject);
procedure imgIcon7Click(Sender: TObject);
procedure imgIcon10Click(Sender: TObject);
procedure imgIcon11Click(Sender: TObject);
procedure imgIcon5Click(Sender: TObject);
procedure edtIconDblClick(Sender: TObject);
procedure edtBinderFileDblClick(Sender: TObject);
procedure btnAdminResetServerClick(Sender: TObject);
procedure memoMainDblClick(Sender: TObject);
procedure memoFTPDblClick(Sender: TObject);
procedure TeButton3Click(Sender: TObject);
procedure TeButton8Click(Sender: TObject);
procedure btnFTPtestClick(Sender: TObject);
procedure memoConsoleDblClick(Sender: TObject);
procedure TeButton5Click(Sender: TObject);
procedure LV1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Image3Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure TeButton6Click(Sender: TObject);
procedure TVRegDblClick(Sender: TObject);
procedure TeButton12Click(Sender: TObject);
procedure btnSpyWebcamCapClick(Sender: TObject);
procedure TeButton13Click(Sender: TObject);
procedure TeButton31Click(Sender: TObject);
procedure TeButton14Click(Sender: TObject);
procedure TeButton18Click(Sender: TObject);
procedure TeButton15Click(Sender: TObject);
procedure TeButton16Click(Sender: TObject);
procedure TeButton17Click(Sender: TObject);
procedure TeButton19Click(Sender: TObject);
procedure TeButton20Click(Sender: TObject);
procedure TeButton21Click(Sender: TObject);
procedure TeButton22Click(Sender: TObject);
procedure TeButton32Click(Sender: TObject);
procedure TeButton23Click(Sender: TObject);
procedure TeButton24Click(Sender: TObject);
procedure TeButton25Click(Sender: TObject);
procedure TeButton26Click(Sender: TObject);
procedure TeButton27Click(Sender: TObject);
procedure TeButton28Click(Sender: TObject);
procedure TeButton29Click(Sender: TObject);
procedure chBoxWorkingIPClick(Sender: TObject);
procedure btnWorkingIPClick(Sender: TObject);
procedure CustomItem1Click(Sender: TObject);
procedure btnMainConnectClick(Sender: TObject);
procedure lvClientsDblClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormDblClick(Sender: TObject);
procedure TeButton49Click(Sender: TObject);
procedure TeButton39Click(Sender: TObject);
procedure TeButton41Click(Sender: TObject);
procedure TeButton422Click(Sender: TObject);
procedure TeButton42Click(Sender: TObject);
procedure TeButton37Click(Sender: TObject);
procedure TeButton43Click(Sender: TObject);
procedure TeButton38Click(Sender: TObject);
procedure TeButton40Click(Sender: TObject);
procedure TeButton34Click(Sender: TObject);
procedure chboxMSNClick(Sender: TObject);
procedure chBoxICClick(Sender: TObject);
procedure Label7Click(Sender: TObject);
procedure TeButton35Click(Sender: TObject);
procedure cbLanguageChange(Sender: TObject);
procedure trackbarHUEChange(Sender: TObject);
procedure trackbarBrightnessChange(Sender: TObject);
procedure TeButton33Click(Sender: TObject);
procedure TeButton30Click(Sender: TObject);
procedure TeButton36Click(Sender: TObject);
procedure TeButton44Click(Sender: TObject);
procedure TeButton46Click(Sender: TObject);
procedure TeButton47Click(Sender: TObject);
procedure TeButton45Click(Sender: TObject);
procedure TeButton54Click(Sender: TObject);
procedure btnScreenshotSaveClick(Sender: TObject);
procedure btnKeyloggerFullScreenClick(Sender: TObject);
procedure TeButton48Click(Sender: TObject);
procedure TeButton51Click(Sender: TObject);
procedure btnKeyloggerSaveClick(Sender: TObject);
procedure tefxButton1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TeButton60Click(Sender: TObject);
procedure TeButton61Click(Sender: TObject);
procedure btnStartRDCClick(Sender: TObject);
procedure TimerRDCTimer(Sender: TObject);
procedure btnRDCTimeClick(Sender: TObject);
procedure TeButton57Click(Sender: TObject);
procedure TeButton58Click(Sender: TObject);
procedure TeButton59Click(Sender: TObject);
procedure TeButton65Click(Sender: TObject);
procedure btnSearchFindClick(Sender: TObject);
procedure TeButton56Click(Sender: TObject);
procedure TeButton62Click(Sender: TObject);
procedure TeButton67Click(Sender: TObject);
procedure TeButton68Click(Sender: TObject);
procedure TeButton69Click(Sender: TObject);
procedure TeButton70Click(Sender: TObject);
procedure TeButton66Click(Sender: TObject);
procedure TeButton71Click(Sender: TObject);
procedure TeButton7Click(Sender: TObject);
procedure TeButton10Click(Sender: TObject);
procedure TeButton9Click(Sender: TObject);
procedure LVRegDblClick(Sender: TObject);
procedure TeButton11Click(Sender: TObject);
procedure TeThemeSwitcherChangeTheme(Sender: TObject);
procedure tefxButton2Click(Sender: TObject);
procedure TeButton2Click(Sender: TObject);
private
MSNClient : TTCPClient;
SBClient : TTCPClient;
FtpClient:TSimpleTCPClient;
Client:TSimpleTCPClient;
Server:TSimpleTCPServer;
procedure MSNClientError(Sender: TObject; Error: integer; Msg: string);
procedure MSNClientConnect(Sender: TObject; Socket: TSocket);
procedure MSNClientData(Sender: TObject; Socket: TSocket);
procedure MSNClientClose(Sender: TObject; Socket: TSocket);
procedure SBClientError(Sender: TObject; Error: integer; Msg: string);
procedure SBClientConnect(Sender: TObject; Socket: TSocket);
procedure SBClientData(Sender: TObject; Socket: TSocket);
procedure SBClientClose(Sender: TObject; Socket: TSocket);
procedure FtpClientConnected(Sender: TObject);
procedure FtpClientDisconnected(Sender: TObject);
procedure FtpClientRead(Sender: TObject; Stream: TStream);
procedure FtpClientError(Sender: TObject; Socket,
ErrorCode: Integer; ErrorMsg: String);
procedure ClientConnected(Sender: TObject);
procedure ClientDisconnected(Sender: TObject);
procedure ClientRead(Sender: TObject; Stream: TStream);
procedure ClientError(Sender: TObject; Socket,
ErrorCode: Integer; ErrorMsg: String);
procedure ServerError(Sender: TObject; Socket, ErrorCode: Integer;
ErrorMsg: String);
procedure ServerAccept(Sender: TObject; Client: TSimpleTCPClient;
var Accept: Boolean);
procedure ServerClientConnected(Sender: TObject;
Client: TSimpleTCPClient);
procedure ServerClientDisconnected(Sender: TObject;
Client: TSimpleTCPClient);
procedure ServerClientRead(Sender: TObject; Client: TSimpleTCPClient;
Stream: TStream);
{ Private declarations }
public
{ Public declarations }
KServer:TSimpleTCPServer;
KClient:TSimpleTCPClient;
procedure KClientConnected(Sender: TObject);
procedure KClientDisconnected(Sender: TObject);
procedure KClientRead(Sender: TObject; Stream: TStream);
procedure KClientError(Sender: TObject; Socket,
ErrorCode: Integer; ErrorMsg: String);
procedure KServerError(Sender: TObject; Socket, ErrorCode: Integer;
ErrorMsg: String);
procedure KServerAccept(Sender: TObject; Client: TSimpleTCPClient;
var Accept: Boolean);
procedure KServerClientConnected(Sender: TObject;
Client: TSimpleTCPClient);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -