如何通过VB编程获得某个IE浏览器载入页面的HTML源文件？

Question

怎样编程得到当前Web窗口文本信息
Dim dWinFolder As New ShellWindows
Dim WithEvents eventIE As WebBrowser_V1Private Sub Command1_Click()
    Dim objIE As Object
    
    For Each objIE In dWinFolder
        If objIE.LocationURL = List1.List(List1.ListIndex) Then
            Set eventIE = objIE
            Command1.Enabled = False
            List1.Enabled = False
            Text1.Text = ""
            Exit For
        End If
    Next
End SubPrivate Sub eventIE_NavigateComplete(ByVal URL As String)
    Text1.Text = Text1.Text + Chr(13) + Chr(10) + URL
End Sub在运行前。点击菜单 Projects ¦ References 项，在Available References 列表中选择Microsoft Internet Controls项将Internet对象引用介入到工程中Private Sub Form_Load()
    Dim objIE As Object
    
    For Each objIE In dWinFolder
        If InStr(1, objIE.FullName, "IEXPLORE.EXE", vbTextCompare) <> 0 Then
            List1.AddItem objIE.LocationURL
        End If
    Next
    Command1.Caption = "正文"
End SubPrivate Sub Form_Unload(Cancel As Integer)
    Set dWinFolder = Nothing
End SubPrivate Sub List1_Click()
    Dim objDoc As Object
    Dim objIE As Object
    
    For Each objIE In dWinFolder
        If objIE.LocationURL = List1.List(List1.ListIndex) Then
            Set objDoc = objIE.Document
        
            For i = 1 To objDoc.All.length - 1
                If objDoc.All(i).tagname = "BODY" Then
                    Text1.Text = objDoc.All(i).innerText
                End If
            Next
            Exit For
        End If
    Next
End Sub

Answer 1

我说的是HTML源文件，而不是窗口文本。

Answer 2

窗口文本是innerText，获得源码换成innerHTML就可以。

Answer 3

多谢。可是这段代码中command1的作用是什么呢？
另外，我如果只是需要当前窗口的HTML源代码，该如何写程序代码呢？

Answer 4

没什么作用，只是我原来代码中临时添加的一个按钮
我记得在ShellWindow对象（就是objIE ）好像有一个方法判断是否是处于激活状态，你找一下。