请教objIE.FullName这句为什么一直都不能通过呢?

Question

这是一段取得所有IE窗口标题和地址的代码,但是objIE.FullName这个好像有问题,请教如何解决?Option Explicit
    Dim WithEvents objIEMain As WebBrowser_V1
    Dim objIE As Object
    Dim dWinFolder As New ShellWindows
Private Sub Command1_Click()If InStr(1, objIE.FullName, "IEXPLORE", vbTextCompare) <> 0 Then
    For Each objIE In dWinFolder
        List1.AddItem objIE.Document.Title
        List2.AddItem objIE.LocationURL
    Next
End If
End Sub

Answer 1

If InStr(1, objIE.FullName, "IEXPLORE", vbTextCompare) <> 0 Then还没得到值
顺序写反了