00后女生全祼一点不剩,分电器,中国历史朝代顺序
ie工具栏上的各种按钮可不是microsoft的专利，普通用户一样能够对其进行自定义，添加想设置的按钮，至于添加的方法，很多资料上都介绍过。具体的实现方式不外乎两种，一是使用冗长且复杂的vc或vb代码程序，这对普通用户来说要求是过高了一点，通常搞得人满头雾水而不达目的；二是用手工的方法来完成，但是这种方法因为要大幅度地修改系统注册表，系统极不安全，一不小心就会弄巧成拙，让你重新安装系统！
我这里介绍一个折衷的方法，用vbscript自制ie工具栏按钮，它既不需要冗长复杂的程序代码，又不需要繁琐地去修改系统注册表，但一样能达到自制ie工具栏按钮的目的。
无论是用vb或vc还是用手工的方法添加按钮，说到底就是要去修改系统注册表。vbscript也不例外，但是它的代码简单易懂，安全易学。既然要改注册表，那就要知道操作目标在注册表中的的路径。ie的自制工具栏按钮在注册表中的的路径为：
[hkey_local_machine\software\microsoft\internet explorer\extensions]
在该分支下的每一个主键，即表示一个自制的工具栏按钮。如：
{cd67f990-d8e9-11d2-98fe-00c0f0318afe}表示：realplayer
{57e91b47-f40a-11d1-b792-444553540000}表示：netants
仿照以上这些主键，我们可以自己“制造”一个{00000000-0000-0000-0000-000000000001}（不过要注意的是，这一个键值一定要是唯一的，要不可能破坏其它的工具栏按钮）。
在这每一个主键之下通常有以下几个键值（均为字符串型）：
buttontext：自定义按钮上显示的文本。
clsid： ie工具条的类标识码，恒为“{1fba04ee-3024-11d2-8f1f-0000f87abd16}”。
default visible：控制自定义按钮是否可见，一般为“yes”。
exec：自定义按钮执行的目标，可以为执行程序或超文本链接。
hoticon：鼠标移到按钮上时显示的图标。
icon：按钮正常显示的图标。
menutext：在ie的“工具”菜单中显示的菜单项。
menustatusbar：在状态条上显示的“注释”文本。
知道了这些必备知识，再来用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"
'借用realplayer的图标
keydata_52="c:\program files\real\realplayer\eb_act.ico"
keyname_61="icon"
'借用realplayer的图标
keydata_62="c:\program files\real\realplayer\eb_inact.ico"
keyname_71="menutext"
keydata_72="我的电脑"
keyname_81="menustatusbar"
keydata_82="打开我的电脑"
'定义与操作注册表相关的参数
regpath="hkey_local_machine\software\microsoft\internet explorer\extensions\{00000000-0000-0000-0000-000000000001}\"
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
如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！
点击进行留言回复
我要评论
网友评论