|
IE工具栏上的各种按钮可不是Microsoft的专利普通用户一样能够对其进行自定义添加想设置的按钮至于添加的方法很多资料上都介绍过具体的实现方式不外乎两种一是使用冗长且复杂的VC或VB代码程序这对普通用户来说要求是过高了一点通常搞得人满头雾水而不达目的二是用手工的方法来完成但是这种方法因为要大幅度地修改系统注册表系统极不安全一不小心就会弄巧成拙让你重新安装系统！ 我这里介绍一个折衷的方法用VBScript自制IE工具栏按钮它既不需要冗长复杂的程序代码又不需要繁琐地去修改系统注册表但一样能达到自制IE工具栏按钮的目的 无论是用VB或VC还是用手工的方法添加按钮说到底就是要去修改系统注册表VBScript也不例外但是它的代码简单易懂安全易学既然要改注册表那就要知道操作目标在注册表中的的路径IE的自制工具栏按钮在注册表中的的路径为 [HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions] 在该分支下的每一个主键即表示一个自制的工具栏按钮如 {CDFDEdFECFAFE}表示RealPlayer {EBFADB}表示NetAnts 仿照以上这些主键我们可以自己制造一个{}（不过要注意的是这一个键值一定要是唯一的要不可能破坏其它的工具栏按钮） 在这每一个主键之下通常有以下几个键值（均为字符串型） ButtonText自定义按钮上显示的文本 CLSID IE工具条的类标识码恆为{FBAEEDFFFABD} Default Visible控制自定义按钮是否可见一般为Yes Exec自定义按钮执行的目标可以为执行程序或超文本链接 HotIcon鼠标移到按钮上时显示的图标 Icon按钮正常显示的图标 MenuText在IE的工具菜单中显示的菜单项 MenuStatusBar在状态条上显示的注释文本 知道了这些必备知识再来用VBScript自制IE工具栏按钮就不难了下面我就以添加我的电脑按钮为例来说明用VBScript实现自制IE工具栏按钮的方法 AddButtonvbs(将下述代码保存为AddButtonvbs文件) 定义一个能与操作系统沟通的对象 Dim WSHShell Set WSHShell=WScriptCreateObject(WScriptShell) 定义与按钮相关的各种参数 KeyName_=ButtonText KeyData_=我的电脑 KeyName_=CLSID KeyData_={FBAEEDFFFABD} KeyName_=Default Visible KeyData_=Yes KeyName_=Exec KeyData_=C:\Windows\Explorerexe KeyName_=HotIcon 借用RealPlayer的图标 KeyData_=C:\Program Files\Real\RealPlayer\eb_actico KeyName_=Icon 借用RealPlayer的图标 KeyData_=C:\Program Files\Real\RealPlayer\eb_inactico KeyName_=MenuText KeyData_=我的电脑 KeyName_=MenuStatusBar KeyData_=打开我的电脑 定义与操作注册表相关的参数 RegPath=HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{}\ DataType=REG_SZ 定义一个在注册表中添加各项参数的功能函数 Function ValueAdd(KeyNameKeyData) WSHShellRegWrite RegPath&KeyNameKeyDataDataType End Function 调用Add()过程添加各项参数到注册表 Call ValueAdd(KeyName_KeyData_) Call ValueAdd(KeyName_KeyData_) Call ValueAdd(KeyName_KeyData_) Call ValueAdd(KeyName_KeyData_) Call ValueAdd(KeyName_KeyData_) Call ValueAdd(KeyName_KeyData_) Call ValueAdd(KeyName_KeyData_) Call ValueAdd(KeyName_KeyData_) 弹出确认信息框并作出相应的处理 Dim confirm confirm=MsgBox(自制按钮已成功添加需要重新启动系统才能生效要重新启动吗?请确认!) If confirm= Then MsgBox(自制按钮已成功设置请重新启动系统!) Else WScrip tQuit() End If |
