VBA自动登陆网页后 怎么识别网页是否已加载完

284479754

各位好！我想通过VBA自动登陆网页，网页登陆后会自动加载新的页面，我想在新的页面进行操作。现在由于网页没加载完毕，而后续的代码又在执行，导致运行错误，代码如下，请各位指点，谢谢！

Sub BrowseToGPS()

     'Dim IE As New SHDocVw.InternetExplorer
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.application")
    IE.Visible = True
    IE.Navigate "http://172.18.81.68/eqs/login.do"

Do Until IE.ReadyState = 4
         DoEvents
Loop
’登陆网页
  With IE.Document
     .getElementById("x").Value = "181527"
     .getElementById("y").Value = "eqs@2019"
     .getElementsByTagName("a")(0).Click
   End With

‘登陆完成后，在新跳转出来的页面进行操作
         While IE.ReadyState = 4
                  DoEvents
         Wend

With IE.Document
   .getElementsByTagName("a")(3).Click
End With

End Sub