等待页面loading

Function ChangeDate(start_date, end_date)
  Dim MyPage, SearchBox, needCalc
  needCalc = False
  Set MyPage = Browser("Mercer Globe").Page("FSM Pro")

  If start_date <> "" Then
   Set SearchBox = MyPage.RunScript("document.getElementsByName('_FSMonitor$_StartDateTextbox')(0) ;")
   Print "Current start date is " & SearchBox.Value
   If SearchBox.Value <> start_date Then
    Print "Update start date to ->"&start_date
    SearchBox.Value = start_date
    needCalc = True
   End If
  End If
  
  If end_date <> "" Then
   Set SearchBox = MyPage.RunScript("document.getElementsByName('_FSMonitor$_EndDateTextbox')(0) ;")
   Print "Current end date is " & SearchBox.Value
   If SearchBox.Value <> end_date Then
    Print "Update end date to ->" &end_date
    SearchBox.Value = end_date
    needCalc = True
   End If
  End If

  If needCalc Then
   MyPage.Image("Calculate").Click
   Call WaitPageLoading(MyPage)
  End If
End Function

 

 

Function WaitPageLoading(myPage)
    On error resume next
 While myPage.Object.readyState <> "complete"
 Wend
End Function