知识大全妙用VBScript自制IE工具栏按钮

Posted 2022-07-20 知

篇首语：人人都曾经错过，真正属于你的，永远不会错过。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全妙用VBScript自制IE工具栏按钮相关的知识，希望对你有一定的参考价值。

妙用VBScript自制IE工具栏按钮 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

IE工具栏上的各种按钮可不是Microsoft的专利普通用户一样能够对其进行自定义添加想设置的按钮至于添加的方法很多资料上都介绍过具体的实现方式不外乎两种一是使用冗长且复杂的VC或VB代码程序这对普通用户来说要求是过高了一点通常搞得人满头雾水而不达目的二是用手工的方法来完成但是这种方法因为要大幅度地修改系统注册表系统极不安全一不小心就会弄巧成拙让你重新安装系统！　　我这里介绍一个折衷的方法用VBScript自制IE工具栏按钮它既不需要冗长复杂的程序代码又不需要繁琐地去修改系统注册表但一样能达到自制IE工具栏按钮的目的　　无论是用VB或VC还是用手工的方法添加按钮说到底就是要去修改系统注册表 VBScript也不例外但是它的代码简单易懂安全易学既然要改注册表那就要知道操作目标在注册表中的的路径 IE的自制工具栏按钮在注册表中的的路径为　　[HKEY_LOCAL_MACHINE\\Sofare\\Microsoft\\Internet Explorer\\Extensions]　　在该分支下的每一个主键即表示一个自制的工具栏按钮如　　CD F D E d FE C F AFE表示 RealPlayer　　 E B F A D B 表示 NetAnts　　仿照以上这些主键我们可以自己制造一个（不过要注意的是这一个键值一定要是唯一的要不可能破坏其它的工具栏按钮）　　在这每一个主键之下通常有以下几个键值（均为字符串型）　　ButtonText 自定义按钮上显示的文本　　CLSID IE工具条的类标识码恒为 FBA EE D F F F ABD 　　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_ = ButtonText 　　KeyData_ = 我的电脑　　KeyName_ = CLSID 　　KeyData_ = FBA EE D F F F ABD 　　KeyName_ = Default Visible 　　KeyData_ = Yes 　　KeyName_ = Exec 　　KeyData_ = C:\\Windows\\Explorer exe 　　KeyName_ = HotIcon 　　借用RealPlayer的图标　　KeyData_ = C:\\Program Files\\Real\\RealPlayer\\eb_act ico 　　KeyName_ = Icon 　　借用RealPlayer的图标　　KeyData_ = C:\\Program Files\\Real\\RealPlayer\\eb_inact ico 　　KeyName_ = MenuText 　　KeyData_ = 我的电脑　　KeyName_ = MenuStatusBar 　　KeyData_ = 打开我的电脑　　定义与操作注册表相关的参数　　RegPath= HKEY_LOCAL_MACHINE\\Sofare\\Microsoft\\Internet Explorer\\Extensions\\ \\ 　　DataType= REG_SZ 　　定义一个在注册表中添加各项参数的功能函数　　Function ValueAdd(KeyName KeyData)　　WSHShell RegWrite RegPath&KeyName KeyData DataType　　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 t Quit()　　End If cha138/Article/program/Java/Javascript/201311/25361

知识大全 妙用VBScript自制IE工具栏按钮

知识大全妙用VBScript自制IE工具栏按钮