CAPTURAR VENTANA DE IE

Sub CaptureIe()

        Dim docProm As mshtml.HTMLDocument

        Dim shellWindows = New SHDocVw.ShellWindows 'referenciar Microsoft Internet Controls 

        
        For Each ie As SHDocVw.WebBrowser In shellWindows

             If ie.Name = "Internet Explorer" And ie.Visible Then

                Try

                    docProm = ie.Document

                    If Not IsDBNull(docProm) Then

                        MsgBox(docProm.url)

                        MsgBox(docProm.body.innerHTML)

                        ' MsgBox(docProm. ...

                    End If

                Catch ex As Exception

                End Try

            End If

        Next

    End Sub