Private Sub CheckWindow()
Dim ie As InternetExplorer
Dim shellWins As New ShellWindows
For Each ie In shellWins
If ie.LocationURL = "http://www.google.com" Then
MsgBox("IE Found")
WebBrowser1.Document.GetElementById("test").GetAttribute("value")
End If
Next
End Sub
|