修改注册表实现象"卓越"在ie工具栏的快截方式!

[wenhao676]

仿照改了一次,没成功!
请帮忙!

[possible_Y]

写一个*.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="http://你的链接"
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
WScript.Quit()
End If

[lilei_jn]

uo