如何在Internet Explorer 6.0的工具栏添加一个快捷图标?
看到安装好多软件的时候都会在IE工具栏添加快捷图标,例如MSN,QQ等。
我自己手动如何做呢?
写代码又怎么做呢?
Dream
MSN:[email protected]
---------------------------------------------------------------
修改注册表!
---------------------------------------------------------------
http://www.pconline.com.cn/pcedu/qq/jiqiao/0304/153109.html
---------------------------------------------------------------
用兔子啊.优化大师都行吧
---------------------------------------------------------------
組策略裏,好像有一個的,,,,
gpedit.msc打開,,,,用戶配置,,,,WINDOWS設置裏,,,,你自己在IE裏找找,,,還可以把標題給改成你喜歡的東西....
---------------------------------------------------------------
在注册表中的的路径为:
[HKEY_LOCAL_MACHINESoftwareMicrosoftInternet ExplorerExtensions]
在该分支下的每一个主键,即表示一个自制的工具栏按钮。如:
{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:WindowsExplorer.exe"
KeyName_51="HotIcon"
'借用RealPlayer的图标
KeyData_52="C:Program FilesRealRealPlayereb_act.ico"
KeyName_61="Icon"
'借用RealPlayer的图标
KeyData_62="C:Program FilesRealRealPlayereb_inact.ico"
KeyName_71="MenuText"
KeyData_72="我的电脑"
KeyName_81="MenuStatusBar"
KeyData_82="打开我的电脑"
'定义与操作注册表相关的参数
RegPath="HKEY_LOCAL_MACHINESoftwareMicrosoftInternet ExplorerExtensions{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
请给分.我要分我要分~~~~~~~~~~~
---------------------------------------------------------------
給他分吧: mdma(帮你解决问题) 看起來,他好可憐!!!!!!
---------------------------------------------------------------
怎么啊.难道我的不对吗?