Я не могу ждать в testcomplete для элемента страницы для загрузки

Question

Я работаю над веб-приложением, используя тестовый тест с vbscript. pageTab = Sys.Process ("Iexplore"). IEFrame (0) .CommandBar.TabBand.TabButton ("Tieto Client Manager"). Enabled

do while(pageTab <> True) 
     Sys.Process("Explorer").Refresh 
     pageTab = Sys.Process("iexplore").IEFrame(0).CommandBar.TabBand.TabButton("Tieto Client Manager").Enabled 
     Sys.Process("iexplore").IEFrame(0).CommandBar.TabBand.TabButton("Tieto Client Manager").Refresh 
    loop 


    pageBusyState = Sys.Process("iexplore" , 2).Page("*").Busy 
    do while(pageBusyState <> False) 
    pageBusyState = Sys.Process("iexplore" , 2).Page("*").Busy 
    loop 

С помощью этого кода я могу ждать новую страницу, но не в состоянии дождаться загрузки управляющей страницы.

Answer 1

Лучший способ подождать, пока динамическая страница будет готова, - это ждать определенного объекта на этой странице. Например, это может быть первый объект, который вам нужен для работы на странице. Этот подход описан вместе с несколькими другими подходами в справочной теме Waiting For Web Pages.

Answer 2

Timeout=False 

    'Check IEXPLORE Process running on window 

    If Sys.Process("IEXPLORE").Exists Then 

    Set obj = Sys.Process("IEXPLORE").Page("*") 
    Set PageObj = Eval(obj.FullName) 
    'Set Default Timeout 
    intDefaultTimeout=1000 
    'Do until Page Object readyState=4 or Timeout 
    Do 
     Set PageObj= Sys.Process("IEXPLORE").Page("*") 
     'Check for Timeout 
     If aqConvert.StrToInt(DateDiff("n",intTimerStart,Now))>= aqConvert.StrToInt(intDefaultTimeout) Then 
     Timeout=True 
     End If 
    Loop Until PageObj.ReadyState = 4 Or Timeout=True 

    Else 

    'Check iexplore 2 Process running on window 

    If Sys.Process("iexplore",2).Exists Then 
     Set obj = Sys.Process("iexplore",2).Page("*") 
     Set PageObj = Eval(obj.FullName) 
     'Set Default Timeout 
     intDefaultTimeout=Project.Variables.prjDefaultTimeout 
     'Do until Page Object readyState=4(page loaded fully or request finished and response is ready) or Timeout  
     Do 
     Set PageObj= Sys.Process("iexplore",2).Page("*") 
     If aqConvert.StrToInt(DateDiff("n",intTimerStart,Now))>= aqConvert.StrToInt(intDefaultTimeout) Then 
      Timeout=True 
     End If 
     'Check still the page is in busy mode or page loaded fully . 
     Loop Until PageObj.ReadyState = 4 Or Timeout=True 
    End If 
    End If 

'Calling Activate method to apply a property collection corresponding to a run mode 
    PageObj.Activate