Parent page: GUI Recognition with TestComplete

TestComplete provides a whole set of run-time GUI recognition functionalities, based, however, on the same approach: recognition by property values and/or location of the object in internal hierarchy.

Today’s post is about Find method

We continue with example from the previous post.

What happened when the script clicked on the link? – Web page is reloaded; it’s a new object now.
Before we can operate it, we need to identify it first.

We can go down the hierarchy again starting from Sys or Process objects, but we may re-identify the page using Find method, as in the example below.

  Dim IEProcess, IExplore
  Dim PropNames, PropValues
  Dim Page
  Dim objLink

  'Close browser
  PropNames = Array("processname", "index")
  PropValues = Array("iexplore", 1)
  Set IEProcess = Sys.FindChild(PropNames, PropValues, 1, True)
  If IEProcess.Exists then
    IEProcess.Close(10000)
  End if 

  'Open browser and navigate to the web-site 
  Set IExplore = TestedApps.iexplore
  IExplore.Params.SimpleParams.CommandLineParameters = "http://www.google.ca/"
  Call IExplore.Run(1, False, 5000) 

  'Find Web Page Object
  PropNames = Array("objecttype", "url")
  PropValues = Array("page", "http://www.google.ca/")
  Set Page = Sys.Process("iexplore").FindChild(PropNames, PropValues, 1, True)
  If Not Page.Exists then
    Exit Sub
  End if

  'Find Web Link Object
  PropNames = Array("tagName", "namePropStr")
  PropValues = Array("A", "advanced_search*")
  Set objLink = Page.FindChild(PropNames, PropValues, 10, True)

  If Not objLink.Exists then
    Exit Sub
  End if

  objLink.Click
  
  PropNames = Array("objecttype", "url")
  PropValues = Array("page", "http://www.google.ca/advanced_search?hl=en")
  Set Page = Page.Find(PropNames, PropValues, 1, True)
  If Not Page.Exists then
    Exit Sub
  End if