unit12.pas

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

unit Unit12;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons,shellapi;

type
  TForm12 = class(TForm)
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Image1: TImage;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label4MouseLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;

implementation

{$R *.dfm}

procedure TForm12.SpeedButton1Click(Sender: TObject);
begin
 close;
end;

procedure TForm12.Label4Click(Sender: TObject);
begin
 Shellexecute(0,nil,pchar('http://hi.baidu.com/pvcm'),nil,nil,SW_SHOW);
end;

procedure TForm12.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Label4.Font.Color :=clblue;
end;

procedure TForm12.Label4MouseLeave(Sender: TObject);
begin
 Label4.Font.Color :=clmaroon;
end;

end.