-1

vbscript でツール testcomplete を使用して、Web アプリケーションに取り組んでいます。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

このコードを使用すると、新しいページを待つことができますが、コントロールの読み込みページを待つことができません。

4

2 に答える 2

0 
  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
于 2014-01-07T11:15:07.200 に答える