GUI Walker test

Question

Hi&nbsp;I was wondering if anyone has created a GUI walker test which they would be willing to share?&nbsp;Ideally i am looking for a test that iterates through all the child objects on a window testing certain properties like enabled, visible, class and default value.&nbsp;Many thanks&nbsp;

energizerbunny · Accepted Answer

&nbsp;The function&nbsp;GetCollectOfObjects&nbsp;below will return a collection of objects in an array.You can pass either the string of the process or the object. I typically pass the object of the main form.You can pass either strings or arrays for the arguments&nbsp;PropNames and PropValuesThe Subroutine Main below shows how to iterate throught the array of objects logging their full names.&nbsp;This is useful if you want to return all the edit boxes (or any other class of objects) that are Visible on the form.&nbsp;The code below automatically adds the Visible property as true.The code is basically a wrapper around the FindAllChildren method.&nbsp;Sub Main&nbsp; &nbsp; &nbsp; Dim arrayOfObjects, x&nbsp; &nbsp; &nbsp; arrayOfObjects = GetCollectOfObjects(Sys.Process("YourProcess").Window("YourClassname", "YourCaption"), "WndClass", "TjwwDBEdit")&nbsp; &nbsp; &nbsp; For x = 0 To UBound(arrayOfObjects)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If arrayOfObjects(x).Exists = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Log.Message arrayOfObjects(x).FullName&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; NextEnd Sub&nbsp;&nbsp;Function GetCollectOfObjects(ProcessNameOrObject, PropNames, PropValues)&nbsp; &nbsp; &nbsp; Dim NamesArray, ValuesArray, nvLoopCounter&nbsp; &nbsp; &nbsp; If VarType(PropNames) = vbString Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; NamesArray = Array(PropNames, "Visible")&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ValuesArray = Array(PropValues, True)&nbsp; &nbsp; &nbsp; ElseIf VarType(PropNames) =&gt; vbArray Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; NamesArray = PropNames&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ReDim Preserve NamesArray(UBound(NamesArray) + 1)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; NamesArray(UBound(NamesArray)) = "Visible"&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ValuesArray = PropValues&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ReDim Preserve ValuesArray(UBound(ValuesArray) + 1)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ValuesArray(UBound(ValuesArray)) = True&nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Log.Warning "An unusable data type '" &amp; TypeName(PropNames) &amp; "' was passed for the PropNames argument."&nbsp; &nbsp; &nbsp; End If&nbsp;&nbsp; &nbsp; &nbsp; If VarType(ProcessNameOrObject) = vbString Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GetCollectOfObjects = Sys.Process(ProcessNameOrObject).FindAllChildren(NamesArray, ValuesArray, 1000, True)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nvLoopCounter = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Do While UBound(GetCollectOfObjects) &lt; 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If nvLoopCounter &gt;= 4 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;'Log.Error "Could not locate the object after " &amp; nvLoopCounter &amp; " attempts.", Sys.Process(ProcessNameOrObject).Name&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Do&nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Sys.Refresh&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GetCollectOfObjects = Sys.Process(ProcessNameOrObject).FindAllChildren(NamesArray, ValuesArray, 1000, True)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nvLoopCounter = nvLoopCounter + 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Loop&nbsp; &nbsp; &nbsp; ElseIf VarType(ProcessNameOrObject) = vbObject Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GetCollectOfObjects = ProcessNameOrObject.FindAllChildren(NamesArray, ValuesArray, 1000, True)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nvLoopCounter = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Do While UBound(GetCollectOfObjects) &lt; 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If nvLoopCounter &gt;= 4 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Log.Error "Could not locate the object after " &amp; nvLoopCounter &amp; " attempts.", ProcessNameOrObject.Name&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Do&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Sys.Refresh&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GetCollectOfObjects = ProcessNameOrObject.FindAllChildren(NamesArray, ValuesArray, 1000, True)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nvLoopCounter = nvLoopCounter + 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Loop&nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GetCollectOfObjects = Array() ' Return an empty array&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If VarType(PropNames) = vbString Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Log.Warning "An unusable data type '" &amp; TypeName(ProcessNameOrObject) &amp; "' was passed for the control - " &amp; PropNames &amp; " - " &amp; PropValues&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Log.Warning "An unusable data type '" &amp; TypeName(ProcessNameOrObject) &amp; "' was passed for the control - " &amp; PropNames(0) &amp; " - " &amp; PropValues(0)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp;End IfEnd Function&nbsp;

petermitcham · Answer

Sorry for the delay in responding.&nbsp;Thanks very much for the example, I have got it working but I have also come across a rather confusing issue with how objects are passed to functions\routines. I have a solution but I can't quite grasp why this would be the case...&nbsp;The code below performs the same task in 2 different ways.&nbsp;Option1. The object is set and used for the FindAllChildren method and is part of the main routine (works as intended)Option2. The object is set and passed to a function (ByVal) as the oParent parameter. The function then calls the FindAllChildren method using identical values except they are passed parameters. ( This generates an error when the FindAllChildren method is called that is only really visible in locals or watch list...The GetCollectOfObjects returns the correct number of entries (3) however the value field shows the following error:Wrong number of arguments or invalid property assignment: 'GetCollectOfObjects')&nbsp;I solved the problem by passing the oParent parameter as ByRef, however I am curious as to why this is happening at all.&nbsp;Sub Main&nbsp;&nbsp; Dim arrayOfObjects, x, w&nbsp;&nbsp; Set w = Sys.Process("symphony").WinFormsObject("fLogin2")&nbsp;&nbsp; NamesArray = Array("ClrClassName", "VisibleOnScreen")&nbsp; ValuesArray = Array("Button", True)&nbsp;&nbsp; arrayOfObjects = w.FindAllChildren(NamesArray, ValuesArray, 100)&nbsp;&nbsp; For x = 0 To UBound(arrayOfObjects)&nbsp;&nbsp;&nbsp; If arrayOfObjects(x).Exists = True Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Log.Message arrayOfObjects(x).FullName&nbsp;&nbsp;&nbsp; End If&nbsp; Next&nbsp;&nbsp; Log.Message "Start 2nd iteration"&nbsp; Erase arrayOfObjects&nbsp;&nbsp; arrayOfObjects = GetCollectOfObjects(w, NamesArray, ValuesArray)&nbsp;&nbsp; For x = 0 To UBound(arrayOfObjects)&nbsp;&nbsp;&nbsp; If arrayOfObjects(x).Exists = True Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Log.Message arrayOfObjects(x).FullName&nbsp;&nbsp;&nbsp; End If&nbsp; NextEnd SubFunction GetCollectOfObjects(ByRef oParent, NamesArray, ValuesArray)&nbsp; GetCollectOfObjects = oParent.FindAllChildren(NamesArray, ValuesArray, 100)End Function&nbsp;&nbsp;&nbsp;

energizerbunny · Answer

I'm not 100% sure, but I think it has to do with the fact that VBScript can refer to an object, but cannot copy it.&nbsp;http://www.4guysfromrolla.com/webtech/050201-1.shtml&nbsp;

joseph_michaud · Answer

I don't see it.&nbsp; Tried it (using Sys.Process("Orders")) and I get no errors regardless of how I specify oParent.
&nbsp;
( When you set ValuesArray, shouldn't True be a string...?&nbsp; I don't know offhand how VBScript does the type coercion. )
&nbsp;
&nbsp;

petermitcham · Answer

It was clearly an environmental issue as after I rebooted the machine I could no longer reproduce the problem&nbsp;.

petermitcham · Answer

In the spirit of détente i have attached the GUIWalker test&nbsp;I have created.&nbsp;The idea of the test is that it&nbsp;provides a list of controls in the child structure from a designated parent&nbsp;and compares the returned structure to a baseline. When calling the FindAllChildren method I am only interested in alias entries i have created (this allows me to ignore all the padding you get with dotnet applications)&nbsp;I have been deliberately brief with the list of property and control types&nbsp;I test for, however, it is possible to extend it to whatever level of detail you want (be aware it will slow down the test a fair bit)&nbsp;Where a difference&nbsp;is found it outputs them as warnings. The comparison can handle both differences at&nbsp;the control&nbsp;and property level, outputting&nbsp;not just&nbsp;differences in values but also missing and additional items\properties in both the baseline and received.&nbsp;Should a baseline not exist, it will also create one for you based upon the strucutre it finds.&nbsp;Anyways...Enjoy

Forum Discussion

GUI Walker test

6 Replies

Related Content

Running mobile tests without opening testcomplete GUI

ReadyAPI GUI problem

SVN integration failure with Windows desktop GUI

Testing WinRT applications - GUI controls cannot be identified individually

Getting object mapping for GUI objects created by MATLB

Recent Discussions

TestComplete14.72 is not recognizing WinUI-3 objects

Floating window bleep overlapping window takes longer time (~10 min) to click the button on it.

Test case randomly fails with "parent object was not found"

Does TC have a .within() method similar to Cypress.io?

SessionCreator /Timeout option not firing EventControl_OnTimeout