蛋疼的挂掉360云查杀的小玩意儿

其实就是个域名屏蔽的列表,做个小工具便于免杀。没什么高深的技术。猛击此处下载! 提取码:f03cfa2718

最后蛋疼的贴点代码:

procedure TForm1.FormCreate(Sender: TObject);
begin
GetSystemDirectory(sysdir,256);
hosts := sysdir + '\drivers\etc\hosts';
backup := sysdir + '\drivers\etc\hosts.bak';
//ShowMessage(hosts);
if FileExists(hosts) then begin
mmo1.Lines.LoadFromFile(hosts);
if ((Pos('sdup.360.cn',mmo1.Lines.Text)) >0) then   begin
spSkinStatusPanel1.Caption := '状态:云已经挂掉。' ;
spSkinButton1.Enabled := False;
end else begin
spSkinStatusPanel1.Caption := '状态:云还飘着呢,赶紧挂掉吧。' ;
spSkinButton2.Enabled := False;
end;

end;
end;
Continue Reading