如图所示，求思路--实现网易闪电邮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
        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>




[ 本帖最后由 mbccie 于 2011-4-2 01:46 编辑 ]

你参考一下 迅雷 的  下载文件那些功能。

我知道一点的是 IE 的 这种右键菜单是 指向一个 网页的，而这个网页一般是使用 JS 来写里面的程序。

嗯 谢谢朋友你的热心，我是看到了这个，网易里面的确实用的js，附件中就是我拷贝了下来的，不过看不懂这个、、、、我实现采集网页文本内容是用的vbs。