0

有没有办法在已经打开的 Internet Explorer 窗口中打开一个新选项卡并获取其源代码？我发现的大部分信息都包括创建一个新的 Internetexplorer 对象。当我打开 Internet Explorer 的新实例以打开网站时，我尝试访问的安全网页不喜欢它。因此，我想在已经打开的 Internet Explorer 窗口上打开一个新选项卡，以避免安全/cookie 问题。我最终试图获取网站的源代码并从中提取超链接。以下是我到目前为止的想法。任何建议将不胜感激。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'Standard module code, like: Module1.
    Dim ie As Object, objDoc As Object

    Const strURI As String = "http://www.cnn.com"

    ie = CreateObject("internetexplorer.application")

    ie.Navigate(strURI)

    'Wait for page to load!
    Do
        If ie.ReadyState = 4 Then
            ie.Visible = True
            Exit Do
        Else
            Application.DoEvents()
        End If
    Loop

    objDoc = ie.Document

    Dim strMyPage As String
    strMyPage = objDoc.body.innerHTML

    TextBox1.Text = strMyPage

    objDoc = Nothing
    ie = Nothing
End Sub
4

1 回答 1

0

您可以为此目的使用FiddlerCore 。

为了获取打开的标签的源代码，您需要使用 WM_GETOBJECT 来获取现有文档的 IHTMLDocument2 接口，然后您可以枚举该文档中的锚对象。

http://support.microsoft.com/kb/249232显示了一般模式。

于 2013-09-05T08:17:49.233 回答