如何添加IE右键菜单

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt]
@="C:\\Program Files\\Tencent\\qq\\SendMMS.htm"
"contexts"=dword:00000002

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\&使用迅雷下载]
@="C:\\Program Files\\Sandai Technologies Inc\\Thunder\\geturl.htm"
"Contexts"=dword:00000022

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\导出到 Microsoft Office Excel(&X)]
@="res://C:\\PROGRA~1\\MICROS~1\\OFFICE11\\EXCEL.EXE/3000"
"Contexts"=dword:00000001

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\导出当前页到超星阅览器(&A)]
@="C:\\Program Files\\SSREADER36\\ss_all.htm"

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\导出选中部分到超星阅览器(&S)]
@="C:\\Program Files\\SSREADER36\\ss_select.htm"

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\添加到QQ自定义面板]
@="C:\\Program Files\\Tencent\\qq\\AddPanel.htm"
"contexts"=dword:0000007f

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\添加到QQ表情]
@="C:\\Program Files\\Tencent\\qq\\AddEmotion.htm"
"contexts"=dword:00000002

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\用QQ彩信发送该图片]
@="C:\\Program Files\\Tencent\\qq\\SendMMS.htm"
"contexts"=dword:00000002

这是从注册表导出的reg文件,可以发现ie的右键菜单都是通过编辑注册表实现的,当点击菜单项时浏览器会执行相应的URL.

<script language="VBScript">

Sub AddPanel(strUrl, strName)
On Error Resume Next
set cpAdder = CreateObject("QQCPHelper.CPAdder")
if 0 = err then
call cpAdder.AddCustomPanel(strUrl, strName)
end if
end sub

Sub OnContextMenu()
set srcEvent = external.menuArguments.event
set EventElement = external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY)

if "MenuExtAnchor" = srcEvent.type then
set srcAnchor = EventElement
do until "HTMLAnchorElement" = TypeName(srcAnchor)
set srcAnchor = srcAnchor.parentElement
Loop
Call AddPanel(srcAnchor.href, srcAnchor.innerText)

elseif "MenuExtImage" = srcEvent.type then
if "HTMLAreaElement" = TypeName(EventElement) then
Call AddPanel(EventElement.href, EventElement.Alt)
else
set srcElement = EventElement
set srcAnchor = srcElement.parentElement
do until "HTMLAnchorElement" = TypeName(srcAnchor)
set srcAnchor = srcAnchor.parentElement
if "Nothing" = TypeName(srcAnchor) then
call AddPanel(srcElement.href, srcElement.Alt)
exit sub
end if
Loop
Call AddPanel(srcAnchor.href, srcElement.Alt)
end if

elseif "MenuExtUnknown" = srcEvent.type then
set srcAnchor = EventElement
do until "HTMLAnchorElement" = TypeName(srcAnchor)
set srcAnchor = srcAnchor.parentElement
if "Nothing" = TypeName(srcAnchor) then
'Call AddPanel(EventElement.href, EventElement.innerText)
set srcDoc = external.menuArguments.document
Call AddPanel(srcDoc.URL, srcDoc.title)
exit sub
end if
Loop

Call AddPanel(srcAnchor.href, srcAnchor.innerText)

else
set srcDoc = external.menuArguments.document
Call AddPanel(srcDoc.URL, srcDoc.title)

end if
end sub


call OnContextMenu()

</script>

这是qq自定义面板的HTML文件,这里通过VBScript脚本调用本地的二进制对象来实现本地调用.还可以通过提交表单来实现与web service的互动.

本新闻共4页,当前在第1页  1  2  3  4  

上一篇：EasyRecovery 604硬盘数据恢复软件技巧   下一篇：初学者入门：FreeBSD系统的安装与优化