|
(2)然后选择这个ID值，点击鼠标右键，在弹出的菜单中选择“新建”→“串值”，将新建的串值命名为“ButtonText”，修改其值为“Acrobat”；
①同理，新建串值“CLSID”，其值为“{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}”； ②新建串值“Default Visible”，其值为“yes”； ③新建串值“Exec”，其值为“D:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe”； ④新建串值“HotIcon”，其值为“D:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe,001”， ⑤新建串值“Icon”，其值为“D:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe,002”， ⑥新建串值“MenuText”，其值为“Adobe Acrobat Reader 5.0”中文版 ⑦新建串值“MenuStatusBar，其值为”Acrobat Reader 5.0”
(3)打开IE，单击“查看”→“工具栏”→“自定义”，在自定义工具栏窗口里面可以看到增加的“Acrobat”图标，只需点“添加”按钮，把它添加到工具栏即可。 注意事项：
(1)Icon和HotIcon表示所用图标，具体的格式为“应用程序主程序的绝对路径.exe，图标代号”其中图标代号可以用eXescope这个软件查看，下载地址：http://www.inhua.com/down/z-exescope610.exe。
(2)ButtonText不要太长，否则会影响工具栏的美观。
如果你觉得修改注册表危险，用VBScript也可以达到在IE工具栏上添加按钮的目的。原理还是同上，只是方法不同而已。下面我就以添加“我的电脑”按钮为例，来说明用VBScript实现自制IE工具栏按钮的方法。
AddButton.vbs(将下述代码保存为AddButton.vbs文件) '定义一个能与操作系统沟通的对象 Dim WSHShell Set WSHShell=WScript.CreateObject("WScript.Shell") '定义与按钮相关的各种参数 KeyName_11="ButtonText" KeyData_12="我的电脑" KeyName_21="CLSID" KeyData_22="{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}" KeyName_31="Default Visible" KeyData_32="Yes" KeyName_41="Exec" KeyData_42="C:\Windows\Explorer.exe" KeyName_51="HotIcon" '借用FlashGet的图标 KeyData_52="D:\PROGRAM FILES\FLASHGET\JETCAR.EXE,128" KeyName_61="Icon" '借用FlashGet的图标 KeyData_62="D:\PROGRAM FILES\FLASHGET\JETCAR.EXE,223" KeyName_71="MenuText" KeyData_72="我的电脑" KeyName_81="MenuStatusBar" KeyData_82="打开我的电脑" '定义与操作注册表相关的参数，{00000000-0000-0000-0000-000000000011}为自己任意定义的，一定要唯一RegPath="HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000011}\"DataType="REG_SZ" '定义一个在注册表中添加各项参数的功能函数 Function ValueAdd(KeyName,KeyData) WSHShell.RegWrite RegPath&KeyName,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 t.Quit() End If
看，让程序出现在IE工具栏上是不是很容易？这样做简单方便，使得应用更加趁手，还是快试试吧！
| 
