如图所示，求解--实现网易闪电邮IE右键菜单发送截取网页内容（文本、图片、链接等）功能。

想实现功能：IE里面选择所需要的内容，然后在选中的内容（文字、图片、链接等）上右击弹出所需要的菜单“采集选中内容”，然后自动调出我的目标程序，并将选中的内容放入目标程序中的richtextbox中。

我在一位网友的帮助下实现了采集文本，如下所示。通过获取网页文本内容到剪贴板，然后选择IE里的右键菜单--“选择选中的文本” 调出我的程序将文本内容放入我的程序中。

相关代码：（一个timer 一个textbox）
Option Explicit

Private Sub Form_Load()
    Me.Caption = "获取网页文本"
    Timer1.Interval = 200
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Dim strAllText As String

    On Error GoTo ErrorHandler '错误处理

    strAllText = Clipboard.GetText

    If Left(strAllText, 22) = "CaiJiXuanZhongDeWenBen" And Len(strAllText) > 22 Then
        strAllText = Mid(strAllText, 23)
        Text1.Text = strAllText  附件 采集网页中选中的文本.zip (6.59 KB)

上传时间：2011-4-2 01:17
下载次数：0
 附件 网易闪电邮相关文件.zip (89 KB)

上传时间：2011-4-2 01:17
下载次数：0

        Text1.SelStart = Len(Text1.Text)
        Clipboard.Clear
    End If

    Exit Sub
ErrorHandler:
    Exit Sub
End Sub

IE菜单中加入右键菜单  采集选中的文本。
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\采集选中的文本(&1)]
@="C:\\WINDOWS\\web\\CaiJiXuanZhongDeWenBen.html"

CaiJiXuanZhongDeWenBen.html 内容--
"Contexts"=hex:10
<!--内容如下-->
<SCRIPT LANGUAGE="VbScript">
    set parentWin = external.menuArguments
    set doc = parentWin.document
    set dc = doc.selection.createRange
    str = "CaiJiXuanZhongDeWenBen" & dc.text
    set cpb = clipboardData
    cpb.setData "text",str
    Dim WSH
    Set WSH=CreateObject("Wscript.Shell") 
    WSH.Run chr(34) & "D:\我的文档\001 好网站\Access\文档管理.exe" & chr(34),1,true
    exit sub
</SCRIPT>

[email]null[/email]
[img]http://bbs.bccn.net/attachment.php?aid=56561&k=5d0de6d51d71afca9600c5b745c0220d&t=1302265182&noupdate=yes[/img][url=http://bbs.bccn.net/viewthread.php?tid=335446&page=1#pid1932128]http://bbs.bccn.net/viewthread.php?tid=335446&page=1#pid1932128[/url]