VB6 使用 ShellWindows 读取 IE 浏览器窗口内容

在 VB6 中，可以使用 ShellWindows 对象来获取所有当前打开的窗口，包括 IE 浏览器的窗口。以下是一个示例代码，可以读取 IE 浏览器的窗口：

Dim objShell As Object
Dim objWindows As Object
Dim objIE As Object

' 创建 Shell 对象
Set objShell = CreateObject("Shell.Application")

' 获取所有窗口
Set objWindows = objShell.Windows

' 遍历所有窗口
For Each objIE In objWindows
    ' 判断是否为 IE 浏览器窗口
    If TypeName(objIE) = "IWebBrowser2" Then
        ' 在这里可以对 IE 浏览器窗口进行操作
        MsgBox objIE.LocationURL
    End If
Next objIE

' 释放对象
Set objIE = Nothing
Set objWindows = Nothing
Set objShell = Nothing

在上面的示例代码中，我们创建了一个 Shell 对象，并使用 Shell 对象的 Windows 属性获取所有窗口。然后，我们遍历所有窗口，并使用 TypeName 函数判断窗口是否为 IE 浏览器窗口（类型为 'IWebBrowser2'）。如果是 IE 浏览器窗口，我们可以在此处对其进行操作。在示例代码中，我们使用 MsgBox 函数显示了 IE 浏览器窗口的 URL。

请注意，此方法仅适用于打开的 IE 浏览器窗口。如果 IE 浏览器未打开，则无法通过 ShellWindows 对象读取到 IE 浏览器的窗口。