How to wait for Ajax on SeleniumVBA？

[hanamichi77777]

I want to wait until Ajax(with jQuery) is completed.
For example, how about the following method?

Do Until driver.ExecuteScript("return jQuery.active == 0;") = True
      .Wait 50
Loop

It seems to be working fine, but I'm not confident.
Please let me know if there is another better way.
Thank you very much.

[dornech]

I struggled with that wait stuff also and I use following routines - one being actually the AJAX-wait routine the other checking change of the HTML page source

' ... AJAX
Sub waitAJAX(ByRef objWebDriver As SeleniumVBA.WebDriver, Optional lng_maxWait As Long = 120000)

   Dim _
      date_TimeStamp As Date, _
      s_Ret_jQuery As String, _
      s_Ret_DocReadyState As String

   date_TimeStamp = Now()
   Do
      s_Ret_jQuery = "0"
      On Error Resume Next
      s_Ret_jQuery = objWebDriver.ExecuteScript("return jQuery.active")
      On Error GoTo 0
      s_Ret_DocReadyState = objWebDriver.ExecuteScript("return document.readyState")
   Loop Until _
      (((s_Ret_jQuery = "0") Or (s_Ret_jQuery = vbNullString)) And (s_Ret_DocReadyState = "complete")) Or _
      (Now() - date_TimeStamp > 0.000000011574 * lng_maxWait)

End Sub


' ... stable HTML
Sub waitHTMLstable(ByRef objWebDriver As SeleniumVBA.WebDriver, Optional lng_maxWait As Long = 120000)

   Dim _
      date_TimeStamp As Date, _
      s_HTMLprev As String

   Call waitAJAX(objWebDriver)
   s_HTMLprev = ""
   date_TimeStamp = Now()
   While (s_HTMLprev <> objWebDriver.PageToString) And (Now() - date_TimeStamp <= 0.000000011574 * lng_maxWait)
      s_HTMLprev = objWebDriver.PageToString
      objWebDriver.Wait 250
   Wend

End Sub

[hanamichi77777]

This is great ! Thanks very much, and thanks too for the quick answer !