学步园

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

1. 首先需要在增加注册表项 HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\MyApp
   MyApp为你想要显示在右键菜单中的名称
2. 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 fengliang@sandai.net")
    end if
end sub

call OnContextMenu()

</script>

参考文档：
如何在IE右键菜单中添加菜单项