蛋疼的挂掉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;

procedure TForm1.spSkinButton1Click(Sender: TObject);
begin
if FileExists(backup) then begin
ShowMessage('备份文件已经存在,无法备份文件。');
end else begin
CopyFile(PChar(hosts),PChar(backup),False);
mmo2.Lines.SaveToFile(hosts);
spSkinButton1.Enabled :=False;
ShowMessage('云已经成功挂掉!');
spSkinStatusPanel1.Caption := '状态:云已经挂掉。' ;
end;

end;

procedure TForm1.spSkinButton2Click(Sender: TObject);
begin
if FileExists(backup) then begin
CopyFile(Pchar(backup),Pchar(hosts),False);
spSkinButton1.Enabled :=True;
spSkinButton2.Enabled :=False;
spSkinStatusPanel1.Caption := '状态:云还飘着呢,赶紧挂掉吧。' ;
ShowMessage('恢复成功。');
end else begin
ShowMessage('备份文件已经丢失,无法恢复!');
end;
end;

procedure TForm1.spSkinButton3Click(Sender: TObject);
begin
ShowMessage('这就是个蛋疼的小玩意儿,没什么新鲜的!'+#10#13+'闲着没事可以常来我的博客晃悠晃悠。');
end;

end.
☆版权☆

* 网站名称:obaby@mars
* 网址:https://lang.ma/
* 个性:https://oba.by/
* 本文标题: 《蛋疼的挂掉360云查杀的小玩意儿》
* 本文链接:https://da.bi/2010/07/1750
* 短链接:https://oba.by/?p=1750
* 转载文章请标明文章来源,原文标题以及原文链接。请遵从 《署名-非商业性使用-相同方式共享 2.5 中国大陆 (CC BY-NC-SA 2.5 CN) 》许可协议。


You may also like

3 comments

    1. 公主 Queen 
      Opera 10 Opera 10 Windows 7 Windows 7 cn中国–山东–济南 电信

      测试的时候在免杀的时候是可以的,现在具体什么情况不太清楚。呵呵

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注