I use objects. [code] Dim mobjdoc

[JohnYingling]

I use objects.

Dim mobjdocument as object
Dim objelements as object
Dim objelement as object
With mobjWeb
    Do
        Set mobjDocument = mobjWeb.Document
        If Err.Number <> 0 Then Exit Do
        If mobjDocument Is Nothing Then Exit Do
        '*****
        '* META http-equiv=&quot;Refresh&quot; BYPASS REDIRECTION
        '*****
        Set objElements = mobjDocument.getElementsByTagName(&quot;Meta&quot;)
        If Err.Number <> 0 Then Exit Do
        If objElements Is Nothing Then Exit Do
        For Each objElement In objElements
            If LCase(objElement.httpEquiv) = &quot;refresh&quot; Then
                '* We are still busy
                blnBusy = True
                Exit Do
            End If
        Next
    Exit do: loop

http://WWW.VBCompare.Com

 

[JohnYingling]

This was supposed to a reply to HTMLMetaElement.

http://WWW.VBCompare.Com