vb.net - SHDocVw.InternetExplorer 在 shellWindows 中返回太多对象

Question

即使我只打开一个浏览器窗口（没有选项卡）并且只运行一个 iexplore.exe 进程，以下代码行也会返回几个 InternetExplorer 对象。如何只获取打开的浏览器窗口对象？

For Each ie As SHDocVw.InternetExplorer In shellWindows

Answer 1

这可能会有所帮助

Dim objShellWindows As New SHDocVw.ShellWindows
Dim rVal As SHDocVw.InternetExplorer
    For Each rVal In objShellWindows
        Debug.Print TypeName(rVal.Document)
        If TypeName(rVal.Document) = "HTMLDocument" Then
            If rVal.Name = "Windows Internet Explorer" Then
                rVal.Visible = False
                rVal.Visible = True
                Set ie = rVal
                ie.Quit
                Set ie = Nothing
            End If
        End If
    Next rVal