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

时间：2011-03-22 来源：许明吉博客

首先需要在增加注册表项 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>