一段在IE上加按钮的Script，主要操作注册表，先贴了再说-.NET教程,Windows开发

精彩推荐

分类最新教程

分类热点教程

一段在IE上加按钮的Script，主要操作注册表，先贴了再说

作者：未知

日期：2003-07-12

人气：

投稿：Andy.m(转贴)

来源：未知

字体：大中小

收藏：加入浏览器收藏

以下正文：

' AddButtonIE.vbs
' Adds a custom button to the IE50 toolbar
'

rc = MsgBox("Would you like to add a new button to the IE50 toolbar?",vbYesNo)
if rc=vbNo Then WScript.Quit

' The registry path where to add our new entries.
' If your registry doesn't contain a Shell node, it'll be silently created
REG_HKLM_IE50_BASE = "HKLM\Software\Microsoft\Internet Explorer\Extensions"

' Adds a new key (needs a newly created GUID)
REG_HKLM_IE50_GUID = REG_HKLM_IE50_BASE & "\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\"

' Creates the required values
Set shell = WScript.CreateObject("WScript.Shell")
shell.RegWrite REG_HKLM_IE50_GUID & "ButtonText", _
               "我的记事本", _
               "REG_SZ"
shell.RegWrite REG_HKLM_IE50_GUID & "MenuText", _
               "我的记事本", _
               "REG_SZ"
shell.RegWrite REG_HKLM_IE50_GUID & "MenuStatusBar", _
               "Run Script", _
               "REG_SZ"
shell.RegWrite REG_HKLM_IE50_GUID & "Clsid", _
               "{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}", _
               "REG_SZ"
shell.RegWrite REG_HKLM_IE50_GUID & "Default Visible", _
               "Yes", _
               "REG_SZ"
shell.RegWrite REG_HKLM_IE50_GUID & "Icon", _
               "D:\Documents and Settings\sgyuan\Desktop\cutting1199\icon1.ico", _
               "REG_SZ"
shell.RegWrite REG_HKLM_IE50_GUID & "HotIcon", _
               "D:\Documents and Settings\sgyuan\Desktop\cutting1199\icon2.ico", _
               "REG_SZ"
shell.RegWrite REG_HKLM_IE50_GUID & "Exec", _
               "notepad.exe", _
               "REG_SZ"

相关文章：