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>