C#中在IE右键菜单中添加自定义项的方法

首先需要在增加注册表项 HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\MyApp
MyApp为你想要显示在右键菜单中的名称
VBScript处理脚本,新增的注册表项的默认值是包含这个VBScript脚本的Html页面地址。

具体代码如下:

添加注册表项:

/**//// <summary>
/// 在IE中增加右键菜单
/// </summary>

  
    
static void RegistryIeContextMenu() {
try {
string regkey = @" Software\Microsoft\Internet Explorer\MenuExt\MyApp " ;
string scriptPath = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, " geturl.htm " );
RegistryKey root
= Registry.CurrentUser.OpenSubKey(regkey);
if ( null == root) {
root
= Registry.CurrentUser.CreateSubKey(regkey);
root.SetValue(
"" , scriptPath, RegistryValueKind.String);
root.SetValue(
" Contexts " , 0x00000022 , RegistryValueKind.DWord);
}
}
catch (Exception ex) {
DFApp.LogDebug(ex.ToString());
}
}


脚本geturl.htm(我是直接在迅雷的geturl.htm基础上改的)

  
    
< script language = " VBScript " >

Sub AddLink(Url,Info,Location)
On Error Resume Next

if Url <> "" then
if Info = "" then
Info
= " unknown "
end
if
if Len(Info) > 1000 then
Info
= Left(Info, 1000 )
end
if

DownloadInfo
= Url " ^ " Info
set shell
= CreateObject( " Wscript.Shell " )

shell.Run
" C:\MyApp.EXE " DownloadInfo

end
if
end sub

Sub OnContextMenu()

set srcEvent
= external.menuArguments.event
set srcLocation
= external.menuArguments.location
set EventElement
= external.menuArguments.document.elementFromPoint ( srcEvent.clientX, srcEvent.clientY )
if srcEvent.type = " MenuExtAnchor " then
set srcAnchor
= EventElement
do until TypeName(srcAnchor) = " HTMLAnchorElement "
set srcAnchor
= srcAnchor.parentElement
Loop
Call AddLink(srcAnchor.href,srcAnchor.innerText,srcLocation)
elseif srcEvent.type
= " MenuExtImage " then
if TypeName(EventElement) = " HTMLAreaElement " then
Call AddLink(EventElement.href,EventElement.Alt,srcLocation)
else
set srcImage
= EventElement
set srcAnchor
= srcImage.parentElement
do until TypeName(srcAnchor) = " HTMLAnchorElement "
set srcAnchor
= srcAnchor.parentElement
if TypeName(srcAnchor) = " Nothing " then
call AddLink(srcImage.href,srcImage.Alt,srcLocation)
exit sub
end
if
Loop
Call AddLink(srcAnchor.href,srcImage.Alt,srcLocation)
end
if
elseif srcEvent.type
= " MenuExtUnknown " then
set srcAnchor
= EventElement
do until TypeName(srcAnchor) = " HTMLAnchorElement "
set srcAnchor
= srcAnchor.parentElement
if TypeName(srcAnchor) = " Nothing " then
Call AddLink(EventElement.href,EventElement.innerText,srcLocation)
exit sub
end
if
Loop
Call AddLink(srcAnchor.href,srcAnchor.innerText,srcLocation)
elseif
1 = 1 then
MsgBox(
" Unknown Event Source """ srcEvent.type """" vbCrLf " Please send description of error to [email protected] " )
end
if
end sub

call OnContextMenu()

< / script>

你可能感兴趣的:(右键菜单)