用自制工具栏按钮呢

具体的实现方式不外乎两种，一是使用冗长且复杂的VC或VB代码程序，这对普通用户来说要求是过高了一点，通常搞得人满头雾水而不达目的；二是用手工的方法来完成，但是这种方法因为要大幅度地修改系统注册表，系统极不安全，一不小心就会弄巧成拙，让你重新安装系统！

我这里介绍一个折衷的方法，用VBScript自制IE工具栏按钮，它既不需要冗长复杂的程序代码，又不需要繁琐地去修改系统注册表，但一样能达到自制IE工具栏按钮的目的。

无论是用VB或VC还是用手工的方法添加按钮，说到底就是要去修改系统注册表。VBScript也不例外，但是它的代码简单易懂，安全易学。既然要改注册表，那就要知道操作目标在注册表中的的路径。IE的自制工具栏按钮在注册表中的的路径为：

[HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Internet Explorer\\Extensions]

在该分支下的每一个主键，即表示一个自制的工具栏按钮。如：

{CD67F990-D8EdFE-00C0F0318AFE}表示：RealPlayer

{57E91B47-F40A-11D1-B}表示：NetAnts

仿照以上这些主键，我们可以自己“制造”一个{}（不过要注意的是，这一个键值一定要是唯一的，要不可能破坏其它的工具栏按钮）。

在这每一个主键之下通常有以下几个键值（均为字符串型）：

ButtonText：自定义按钮上显示的文本。

CLSID： IE工具条的类标识码，恒为“{1FBA04EE-DF1F-0000F87ABD16}”。

Default Visible：控制自定义按钮是否可见，一般为“Yes”。

Exec：自定义按钮执行的目标，可以为执行程序或超文本链接。

HotIcon：鼠标移到按钮上时显示的图标。

Icon：按钮正常显示的图标。

MenuText：在IE的“工具”菜单中显示的菜单项。

MenuStatusBar：在状态条上显示的“注释”文本。

知道了这些必备知识，再来用VBScript自制IE工具栏按钮就不难了，下面我就以添加“我的电脑”按钮为例，来说明用VBScript实现自制IE工具栏按钮的方法。

s(将下述代码保存为s文件)

\'定义一个能与操作系统沟通的对象

Dim WSHShell

Set WSHShell=eateObject(\"ell\")

\'定义与按钮相关的各种参数

KeyName_11=\"ButtonText\"

KeyData_12=\"我的电脑\"

KeyName_21=\"CLSID\"

KeyData_22=\"{1FBA04EE-DF1F-0000F87ABD16}\"

KeyName_31=\"Default Visible\"

KeyData_32=\"Yes\"

KeyName_41=\"Exec\"

KeyData_42=\"C:\\Windows\\e\"

KeyName_51=\"HotIcon\"

\'借用RealPlayer的图标

KeyData_52=\"C:\\Program Files\\Real\\RealPlayer\\eb_o\"

KeyName_61=\"Icon\"

\'借用RealPlayer的图标

KeyData_62=\"C:\\Program Files\\Real\\RealPlayer\\eb_o\"

KeyName_71=\"MenuText\"

KeyData_72=\"我的电脑\"

KeyName_81=\"MenuStatusBar\"

KeyData_82=\"打开我的电脑\"

\'定义与操作注册表相关的参数

RegPath=\"HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Internet Explorer\\Extensions\\{}\\\"

DataType=\"REG_SZ\"

\'定义一个在注册表中添加各项参数的功能函数

Function ValueAdd(KeyName,KeyData)

gWrite RegPathKeyName,KeyData,DataType

End Function

\'调用Add()过程，添加各项参数到注册表

Call ValueAdd(KeyName_11,KeyData_12)

Call ValueAdd(KeyName_21,KeyData_22)

Call ValueAdd(KeyName_31,KeyData_32)

Call ValueAdd(KeyName_41,KeyData_42)

Call ValueAdd(KeyName_51,KeyData_52)

Call ValueAdd(KeyName_61,KeyData_62)

Call ValueAdd(KeyName_71,KeyData_72)

Call ValueAdd(KeyName_81,KeyData_82)

\'弹出“确认”信息框，并作出相应的处理

Dim confirm

说起它 confirm=MsgBox(\"自制按钮已成功添加，需要重新启动系统才能生效，要重新启动吗?\",4,\"请确认!\")

If confirm=6 Then

MsgBox(\"自制按钮已成功设置,请重新启动系统!\")

Else

WScrip it()

End If

查看本文来源

生殖医学中心
北京治疗包皮过长医院
补气容易流失怎么办