📄 妙用vbscript自制ie工具栏按钮.htm

📁 较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.
💻 HTM
📖 第 1 页 / 共 2 页
字号:
上一页 12
        <TBODY>
        <TR bgColor=#3366ff>
          <TD height=2></TD></TR></TBODY></TABLE>
      <CENTER></CENTER></TD>
    <TD class=p2 width=102></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
  <TBODY>
  <TR>
    <TD height=1></TD></TR>
  <TR bgColor=#ffcc00>
    <TD align=right height=23 width=355>
      <CENTER></CENTER>
      <P align=center>中国动感资源交流，网络动感资源荟萃</P></TD>
    <TD align=middle>
      <P align=center><A href="http://www.moonet.com/edu/">教育网</A>&nbsp; 
    英文版</P></TD></TR></TBODY></TABLE>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
  <TBODY>
  <TR vAlign=top>
    <TD bgColor=#297dff width=1>　</TD>
    <TD width=753></TD>
    <TD bgColor=#297dff width=1>　</TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
  <TBODY>
  <TR vAlign=top>
    <TD bgColor=#297dff width=1>　</TD>
    <TD width=753>
      <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
        <TBODY>
        <TR>
          <TD bgColor=#297dff colSpan=2 height=20><FONT color=#ceffff>&nbsp;→ 
            <A href="http://www.aspsky.net/article/index.asp?classid=2"><FONT 
            color=#ceffff>ASP技术</FONT></A> &gt;&gt; <A 
            href="http://www.aspsky.net/article/index.asp?classid=2&amp;Nclassid=30"><FONT 
            color=#ceffff>脚本编码</FONT></A> &gt;&gt; 
          《妙用VBScript自制IE工具栏按钮》</FONT></TD></TR>
        <TR>
          <TD bgColor=#586011 colSpan=2 height=1><SPACER type="block" 
            width="1"></TD></TR>
        <TR>
          <TD colSpan=2 height=7></TD></TR>
        <TR>
          <TD align=middle class=p4 
            colSpan=2><B>妙用VBScript自制IE工具栏按钮</B></FONT><BR>2001-10-31&nbsp;&nbsp;动网先锋 
          </TD></TR>
        <TR>
          <TD class=p4 colSpan=2>
            <BLOCKQUOTE><BR>IE工具栏上的各种按钮可不是Microsoft的专利，普通用户一样能够对其进行自定义，添加想设置的按钮，至于添加的方法，很多资料上都介绍过。具体的实现方式不外乎两种，一是使用冗长且复杂的VC或VB代码程序，这对普通用户来说要求是过高了一点，通常搞得人满头雾水而不达目的；二是用手工的方法来完成，但是这种方法因为要大幅度地修改系统注册表，系统极不安全，一不小心就会弄巧成拙，让你重新安装系统！<BR>我这里介绍一个折衷的方法，用VBScript自制IE工具栏按钮，它既不需要冗长复杂的程序代码，又不需要繁琐地去修改系统注册表，但一样能达到自制IE工具栏按钮的目的。<BR>无论是用VB或VC还是用手工的方法添加按钮，说到底就是要去修改系统注册表。VBScript也不例外，但是它的代码简单易懂，安全易学。既然要改注册表，那就要知道操作目标在注册表中的的路径。IE的自制工具栏按钮在注册表中的的路径为：<BR>[HKEY_LOCAL_MACHINE\Software\Microsoft\Internet 
              Explorer\Extensions]<BR>在该分支下的每一个主键，即表示一个自制的工具栏按钮。如：<BR>{CD67F990-D8E9-11d2-98FE-00C0F0318AFE}表示：RealPlayer<BR>{57E91B47-F40A-11D1-B792-444553540000}表示：NetAnts<BR>仿照以上这些主键，我们可以自己“制造”一个{00000000-0000-0000-0000-000000000001}（不过要注意的是，这一个键值一定要是唯一的，要不可能破坏其它的工具栏按钮）。<BR>在这每一个主键之下通常有以下几个键值（均为字符串型）：<BR>ButtonText：自定义按钮上显示的文本。<BR>CLSID： 
              IE工具条的类标识码，恒为“{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}”。<BR>Default 
              Visible：控制自定义按钮是否可见，一般为“Yes”。<BR>Exec：自定义按钮执行的目标，可以为执行程序或超文本链接。<BR>HotIcon：鼠标移到按钮上时显示的图标。<BR>Icon：按钮正常显示的图标。 
              <BR>MenuText：在IE的“工具”菜单中显示的菜单项。 
              <BR>MenuStatusBar：在状态条上显示的“注释”文本。<BR>知道了这些必备知识，再来用VBScript自制IE工具栏按钮就不难了，下面我就以添加“我的电脑”按钮为例，来说明用VBScript实现自制IE工具栏按钮的方法。<BR>AddButton.vbs(将下述代码保存为AddButton.vbs文件)<BR>'定义一个能与操作系统沟通的对象<BR>Dim 
              WSHShell<BR>Set 
              WSHShell=WScript.CreateObject("WScript.Shell")<BR>'定义与按钮相关的各种参数<BR>KeyName_11="ButtonText"<BR>KeyData_12="我的电脑"<BR>KeyName_21="CLSID"<BR>KeyData_22="{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}"<BR>KeyName_31="Default 
              Visible"<BR>KeyData_32="Yes"<BR>KeyName_41="Exec"<BR>KeyData_42="C:\Windows\Explorer.exe"<BR>KeyName_51="HotIcon"<BR>'借用RealPlayer的图标<BR>KeyData_52="C:\Program 
              Files\Real\RealPlayer\eb_act.ico"<BR>KeyName_61="Icon"<BR>'借用RealPlayer的图标<BR>KeyData_62="C:\Program 
              Files\Real\RealPlayer\eb_inact.ico"<BR>KeyName_71="MenuText"<BR>KeyData_72="我的电脑"<BR>KeyName_81="MenuStatusBar"<BR>KeyData_82="打开我的电脑" 
              <BR>'定义与操作注册表相关的参数<BR>RegPath="HKEY_LOCAL_MACHINE\Software\Microsoft\Internet 
              Explorer\Extensions\{00000000-0000-0000-0000-000000000001}\"<BR>DataType="REG_SZ"<BR>'定义一个在注册表中添加各项参数的功能函数<BR>Function 
              ValueAdd(KeyName,KeyData)<BR>WSHShell.RegWrite 
              RegPath&amp;KeyName,KeyData,DataType<BR>End 
              Function<BR>'调用Add()过程，添加各项参数到注册表<BR>Call 
              ValueAdd(KeyName_11,KeyData_12)<BR>Call 
              ValueAdd(KeyName_21,KeyData_22)<BR>Call 
              ValueAdd(KeyName_31,KeyData_32)<BR>Call 
              ValueAdd(KeyName_41,KeyData_42)<BR>Call 
              ValueAdd(KeyName_51,KeyData_52)<BR>Call 
              ValueAdd(KeyName_61,KeyData_62)<BR>Call 
              ValueAdd(KeyName_71,KeyData_72)<BR>Call 
              ValueAdd(KeyName_81,KeyData_82)<BR>'弹出“确认”信息框，并作出相应的处理<BR>Dim 
              confirm<BR>confirm=MsgBox("自制按钮已成功添加，需要重新启动系统才能生效，要重新启动吗?",4,"请确认!")<BR>If 
              confirm=6 Then<BR>MsgBox("自制按钮已成功设置,请重新启动系统!")<BR>Else<BR>WScrip 
              t.Quit()<BR>End If <BR><BR><BR></BLOCKQUOTE></TD></TR>
        <TR>
          <TD class=p4 vAlign=top width="50%">
            <BLOCKQUOTE>原作者：徐喜峰<BR>来 源：开发者俱乐部<BR>共有3528位读者阅读过此文<BR>【<A 
              href="http://bbs.aspsky.net/list.asp?boardid=1">发表评论</A>】 
            </BLOCKQUOTE></TD>
          <TD class=p4 vAlign=top width="50%">
            <P>
            <LI><FONT color=#0772b1>上篇文章</FONT>：<A 
            href="http://www.aspsky.net/article/list.asp?id=2438">ASP和SQL结合处理时间应用</A> 
            <BR>
            <LI><FONT color=#0772b1>下篇文章</FONT>：<A 
            href="http://www.aspsky.net/article/list.asp?id=2440">用ASP、VB和XML建立互联网应用程序(1)</A> 
            </LI></TD></TR>
        <TR>
          <TD bgColor=#297dff class=p4 height=20 width="50%"><FONT 
            color=#ceffff>&nbsp;→ 本周热门</FONT></TD>
          <TD bgColor=#297dff class=p4 width="50%"><FONT color=#ceffff>&nbsp;→ 
            相关文章</FONT></TD></TR>
        <TR>
          <TD bgColor=#586011 colSpan=2 height=1><SPACER type="block" 
            width="1"></TD></TR>
        <TR>
          <TD colSpan=2 height=7></TD></TR>
        <TR>
          <TD class=p4 vAlign=top width="50%">
            <LI><A href="http://www.aspsky.net/article/list.asp?id=1510" 
            target=_top title="SQL Server 7.0 入门（一）">SQL Server 7.0 
            入门（...</A>[<FONT color=red>7239</FONT>]<BR>
            <LI><A href="http://www.aspsky.net/article/list.asp?id=1540" 
            target=_top title=PHP4实际应用经验篇(1)>PHP4实际应用经验篇(1)</A>[<FONT 
            color=red>7135</FONT>]<BR>
            <LI><A href="http://www.aspsky.net/article/list.asp?id=1536" 
            target=_top 
            title=无组件文件上传代码实例（支持多文件上传及文件和input域混合上传）>无组件文件上传代码实例（支持多文件上...</A>[<FONT 
            color=red>6029</FONT>]<BR>
            <LI><A href="http://www.aspsky.net/article/list.asp?id=2557" 
            target=_top title=树型结构在ASP中的简单解决>树型结构在ASP中的简单解决</A>[<FONT 
            color=red>5757</FONT>]<BR>
            <LI><A href="http://www.aspsky.net/article/list.asp?id=1545" 
            target=_top title=PHP4实际应用经验篇(6)>PHP4实际应用经验篇(6)</A>[<FONT 
            color=red>5599</FONT>]<BR>
            <LI><A href="http://www.aspsky.net/article/list.asp?id=2563" 
            target=_top title=一个老个写的无组件上传>一个老个写的无组件上传</A>[<FONT 
            color=red>5013</FONT>]<BR>
            <LI><A href="http://www.aspsky.net/article/list.asp?id=1542" 
            target=_top title=PHP4实际应用经验篇(3)>PHP4实际应用经验篇(3)</A>[<FONT 
            color=red>4731</FONT>]<BR></LI></TD>
          <TD class=p4 vAlign=top width="50%">
            <LI><A 
            href="http://www.aspsky.net/article/list.asp?id=2439">妙用VBScript自制IE工具栏按钮</A><BR></LI></TD></TR>
        <TR>
          <TD colSpan=2 height=7></TD></TR></TBODY></TABLE>
    <TD bgColor=#297dff width=1>　</TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
  <TBODY>
  <TR>
    <TD bgColor=#297dff height=1><SPACER type="block" 
width="1"></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
  <TBODY>
  <TR>
    <TD align=middle height=30></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
  <TBODY>
  <TR>
    <TD align=middle class=p2 width="100%">
      <TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
        <TBODY>
        <TR>
          <TD align=middle class=p2 width="100%">
            <P align=center><A 
            href="http://www.aspsky.net/produce/index.asp">客户服务</A> -- <A 
            href="http://www.aspsky.net/aspads.asp">广告合作</A> -- <A 
            href="http://www.aspsky.net/about.asp">关于本站</A> -- <A 
            href="http://www.aspsky.net/tell.asp">联系方法</A><BR><BR>动网先锋版权所有 <FONT 
            face=Verdana, size=1 Arial, Helvetica, sans-serif>Copyright &copy; 
            2000-2001 <B>AspSky<FONT color=#cc0000>.Net</FONT></B>, All Rights 
            Reserved .</FONT> 
</P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></CENTER></CENTER></BODY></HTML>
上一页 12
💿 文件大小 6938 K
👤 上传用户 wentianliang
📂 所属分类其他书籍
🏷️ 相关标签

#asp #自定义 #函数
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -