nitekram

UIAutomation Example 4 Calc

19 posts in this topic

@junkew

I am not sure I am even doing this right, but got an error message when trying to run this example

And to be clear, I am not clear on how this works. Should it just start clicking buttons and put the details in notepad?

Here is the code...I changed the words to english, yet not sure if that is my issue or not?

UIAutomationUIAWrappers.au3" (1719) : ==> Variable must be of type "Object".:
$UIA_oUIAutomation.createPropertyCondition($propertyID, $tval, $pCondition)
$UIA_oUIAutomation^ ERROR

Example 4 code:

;~ Example 4 that demonstrates on the calculator
;~ How to click
;~ How to find buttons (be aware that you have to change the captions to language of your windows)
;~ How to click in the menu (copy result to the clipboard)
;~    then it uses notepad to demonstrate
;~ How to set a value on a textbox with the value pattern
;~
;~ Attention points
;~ Examples are build on exact match of text (so this includes tab and Ctrl+C values), later I will
;~ make some function that can find with regexp or non exact match (need treewalker for that)
;~ Timing / sleep is sometimes needed to give the system time to popup the menus / execute the action
;~ Focus of application is sometimes to be set (and sometimes not as you look on the clicking of the
;~ buttons it will even happen when there is a screen in front of the calculator)

#include "UIAWrappers.au3"

#AutoIt3Wrapper_UseX64=Y  ;Should be used for stuff like tagpoint having right struct etc. when running on a 64 bits os

consolewrite("Example text is for dutch calculator so please change text to english or other language to identify controls" & @crlf)

;~ Translate below to correct language
$cCalcClassName="CalcFrame"
$cNotepadClassName="Notepad"

$cButton1="1"
$cButtonAdd="Add" ;"Optellen"
$cButton3="3"
$cButtonEqual="Is equal to" ; "Is gelijk aan"
$cButtonEdit="Edit" ; "Bewerken"

;~ Start the calculator and notepad
run("calc.exe")
run("notepad.exe")

$oCalc=_UIA_getFirstObjectOfElement($UIA_oDesktop,"class:=" & $cCalcClassname, $treescope_children)
$oNotepad=_UIA_getFirstObjectOfElement($UIA_oDesktop,"class:="& $cNotepadClassName, $treescope_children)

if isobj($oCalc) Then

;~ You can comment this out just there to get the names of whats available under the calc window
_UIA_DumpThemAll($oCalc,$treescope_subtree)

    $oButton=_UIA_getFirstObjectOfElement($oCalc,"name:=" & $cButton1, $treescope_subtree)
    $oInvokeP=_UIA_getpattern($oButton,$UIA_InvokePatternID)
    $oInvokeP.Invoke

    $oButton=_UIA_getFirstObjectOfElement($oCalc,"name:=" & $cButtonAdd, $treescope_subtree)
    $oInvokeP=_UIA_getpattern($oButton,$UIA_InvokePatternID)
    $oInvokeP.Invoke

    $oButton=_UIA_getFirstObjectOfElement($oCalc,"name:=" & $cButton3, $treescope_subtree)
    $oInvokeP=_UIA_getpattern($oButton,$UIA_InvokePatternID)
    $oInvokeP.Invoke

    $oButton=_UIA_getFirstObjectOfElement($oCalc,"name:=" & $cButtonEqual, $treescope_subtree)
    $oInvokeP=_UIA_getpattern($oButton,$UIA_InvokePatternID)
    $oInvokeP.Invoke

    $oButton=_UIA_getFirstObjectOfElement($oCalc,"name:=" & $cButtonEdit, $treescope_subtree)
    $oInvokeP=_UIA_getpattern($oButton,$UIA_InvokePatternID)
    $oInvokeP.Invoke

    sleep(1500)
;~  findThemAll($oCalc,$treescope_subtree)
;~  sleep(1000)

;~ Use a regular expression to identify the copy choice as there are special characters/tabs etc in the name
;~     $sText="Kopiëren.*"    ;Copy
;~     $sText="name:=((Copy.*)|(Kopi.*))"    ;Copy
    $sText="((Copy.*)|(Kopi.*))"    ;Copy
    $oButton=_UIA_getObjectByFindAll($oCalc,"name:=" & $sText, $treescope_subtree)
    if isobj($oButton) Then
        consolewrite("Menuitem is there")
    Else
        consolewrite("Menuitem is NOT there")
    EndIf
    sleep(1000)

    $oInvokeP=_UIA_getpattern($oButton,$UIA_InvokePatternID)
    $oInvokeP.Invoke
    sleep(500)

EndIf

if isobj($oNotepad) Then

$myText=clipget()

;~ You can comment this out
_UIA_dumpThemAll($oNotepad,$treescope_subtree)
    sleep(1000)

;~ Activate notepad and put the value in the edit text control of notepad
    $oNotepad.setfocus()

    $sText="Edit"
    $oEdit=_UIA_getFirstObjectOfElement($oNotepad,"classname:=" & $sText, $treescope_subtree)
    $oValueP=_UIA_getpattern($oEdit,$UIA_ValuePatternId)
    $oValueP.SetValue($myText)

EndIf

Exit

Can you help?


All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites



We need to see UIAutomationUIAWrappers.au3" Line 1719

Share this post


Link to post
Share on other sites

Line 1716 - 1721

    _UIA_LOG("Matching: " & $propertyID & " for " & $tval & @CRLF, $UIA_Log_Wrapper)

;~ Tricky when numeric values to pass
    $UIA_oUIAutomation.createPropertyCondition($propertyID, $tval, $pCondition)

    $oCondition = ObjCreateInterface($pCondition, $sIID_IUIAutomationPropertyCondition, $dtagIUIAutomationPropertyCondition)


All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

Can someone verify that the Cacl example # 4 works for them - english words?


All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

Works for me, you have the wrong text in the Equal button, use the SimpleSpy example to get information from buttons etc:

$cButton1="1"
$cButtonAdd="Add"
$cButton3="3"
$cButtonEqual="Equals"
$cButtonEdit="Edit"

Share this post


Link to post
Share on other sites

Even after I made those changes, I am still getting the error.

$cButton1="1"
$cButtonAdd="Add"
$cButton3="3"
$cButtonEqual="Equals"
$cButtonEdit="Edit"

 

UIAutomationUIAWrappers.au3" (1719) : ==> Variable must be of type "Object".:
$UIA_oUIAutomation.createPropertyCondition($propertyID, $tval, $pCondition)
$UIA_oUIAutomation^ ERROR

Also, what should I be looking for, once that error message is resolved - how should I go about resolving the error? Should anything show up on the notepad window? Do I need to click either the 1 button, 3 button, add button, equal button. I guess, I am not really understanding what is supposed to take place?


All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

Is there a call to the _UIA_Init() in your UIAWrappers.au3?

The script will find (and mark) the buttons and press them automatically if it works, it will use the calculator to do 1+3 and paste the result to notepad.

Edit: There should also be a Log.txt created, what is the content?

Edited by Geir1983

Share this post


Link to post
Share on other sites

Yes. And to just be clear, the only thing I have changed was the english words. I took the example from >LINK. Also there is no file created called log.txt

Here is the UIAWrapper.au3 - and on line 82, that call to the function _UIA_Init() is there.

#au3check -q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <constants.au3>
#include <WinAPI.au3>
#include <Array.au3>
#include <ScreenCapture.au3>

#include "CUIAutomation2.au3"

;~ Version x.xx
;~ - New: Internal functions
;~ - Added:
;~ - Changed:
;~ - Fixed:

; #INDEX# =======================================================================================================================
; Title .........: UI automation helper functions
; AutoIt Version : 3.3.8.1 thru 3.3.11.5
; Language ......: English (language independent)
; Description ...: Brings UI automation to AutoIt.
; Author(s) .....: junkew
; Copyright .....: Copyright (C) 2013,2014. All rights reserved.
; License .......: GPL or BSD which either of the two fits to your purpose
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
;
; ===============================================================================================================================

#Region UIA Variables
; #UIAWrappers_CONSTANTS# ===================================================================================================================
;~ Some core default variables frequently to use in wrappers/helpers/global objects and pointers
; ===============================================================================================================================
;~ Global $objUIAutomation          ;Deprecated
;~ Global $oDesktop, $pDesktop      ;Deprecated
;~ Global $oTW, $pTW                ;Deprecated globals Used frequently for treewalking
;~ Global $oUIElement, $pUIElement  ;Used frequently to get an element

Global $UIA_oUIAutomation ;The main library core CUI automation reference
Global $UIA_oDesktop, $UIA_pDesktop ;Desktop will be frequently the starting point

Global $UIA_oUIElement, $UIA_pUIElement ;Used frequently to get an element

Global $UIA_oTW, $UIA_pTW ;Generic treewalker which is allways available
Global $UIA_oTRUECondition ;TRUE condition easy to be available for treewalking

Global $UIA_Vars ;Hold global UIA data in a dictionary object
Global $UIA_DefaultWaitTime = 200 ;Frequently it makes sense to have a small waiting time to have windows rebuild, could be set to 0 if good synch is happening

Global Const $__gaUIAAU3VersionInfo[6] = ["T", 0, 5, 0, "20140912", "T0.5-2"]

Global Const $_UIA_MAXDEPTH=25  ; The hierarchy used is 25 deep if more stuff just will crash

; ===================================================================================================================

; #CONSTANTS# ===================================================================================================================
Local Const $UIA_tryMax = 3 ;Retry
Local Const $UIA_CFGFileName = "UIA.CFG"

;~ Loglevels that can be used in scripting following log4j defined standard
Local Const $UIA_Log_Wrapper = 5, $UIA_Log_trace = 10, $UIA_Log_debug = 20, $UIA_Log_info = 30, $UIA_Log_warn = 40, $UIA_Log_error = 50, $UIA_Log_fatal = 60
Local Const $UIA_Log_Pass=70, $UIA_Log_Fail=80

local const $__UIA_debugCacheOn=1
local const $__UIA_debugCacheOff=2

local $__gl_XMLCache
local $__l_UIA_CacheState=false ;Initial state no caching of log

Global Enum _; Error Status Types
        $_UIASTATUS_Success = 0, _
        $_UIASTATUS_GeneralError, _
        $_UIASTATUS_InvalidValue, _
        $_UIASTATUS_NoMatch
; ===================================================================================================================
#EndRegion UIA Variables

#Region UIA Core
_UIA_Init()

; #FUNCTION# ====================================================================================================================
; Name...........: _UIA_Init
; Description ...: Initializes the basic stuff for the UI Automation library of MS
; Syntax.........: _UIA_Init()
; Parameters ....: none
; Return values .: Success      - Returns 1
;                  Failure      - Returns 0 and sets @error on errors:
;                  |@error=1     - UI automation failed
;                  |@error=2     - UI automation desktop failed
; Author ........:
; Modified.......:
; Remarks .......: None
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _UIA_Init()
    Local $UIA_pTRUECondition

;~ The main object with acces to the windows automation api 3.0
    $UIA_oUIAutomation = ObjCreateInterface($sCLSID_CUIAutomation, $sIID_IUIAutomation, $dtagIUIAutomation)
    If _UIA_IsElement($UIA_oUIAutomation) = 0 Then
;~      msgbox(1,"UI automation failed", "UI Automation failed",10)
        Return SetError(1, 0, 0)
    EndIf

;~ Try to get the desktop as a generic reference/global for all samples
    $UIA_oUIAutomation.GetRootElement($UIA_pDesktop)
    $UIA_oDesktop = ObjCreateInterface($UIA_pDesktop, $sIID_IUIAutomationElement, $dtagIUIAutomationElement)
    If IsObj($UIA_oDesktop) = 0 Then
        MsgBox(1, "UI automation desktop failed", "Fatal: UI Automation desktop failed")
        Return SetError(2, 0, 0)
    EndIf

;~  _UIA_LOG("At least it seems I have the desktop as a frequently used starting point"     & "[" &_UIA_getPropertyValue($UIA_oDesktop, $UIA_NamePropertyId) & "][" &_UIA_getPropertyValue($UIA_oDesktop, $UIA_ClassNamePropertyId) & "]" & @CRLF, , $UIA_Log_Wrapper)

;~ Have a treewalker available to easily walk around the element trees
    $UIA_oUIAutomation.RawViewWalker($UIA_pTW)
    $UIA_oTW = ObjCreateInterface($UIA_pTW, $sIID_IUIAutomationTreeWalker, $dtagIUIAutomationTreeWalker)
    If _UIA_IsElement($UIA_oTW) = 0 Then
        MsgBox(1, "UI automation treewalker failed", "UI Automation failed to setup treewalker", 10)
    EndIf

;~  Create a true condition for easy reference in treewalkers
    $UIA_oUIAutomation.CreateTrueCondition($UIA_pTRUECondition)
    $UIA_oTRUECondition = ObjCreateInterface($UIA_pTRUECondition, $sIID_IUIAutomationCondition, $dtagIUIAutomationCondition)

    Return seterror($_UIASTATUS_Success,$_UIASTATUS_Success,true)
EndFunc   ;==>_UIA_Init

;~ Propertynames to match to numeric values, all names will be lowercased in actual usage case insensitive
;~ 23 july 2014 added all propertyids

Local $UIA_propertiesSupportedArray[123][2] = [ _
        ["indexrelative", -1], _                                                ; Special propertyname
        ["index", -1], _                                                        ; Special propertyname
        ["instance", -1], _                                                     ; Special propertyname
        ["title", $UIA_NamePropertyId], _                                       ; Alternate propertyname
        ["text", $UIA_NamePropertyId], _                                        ; Alternate propertyname
        ["regexptitle", $UIA_NamePropertyId], _                                 ; Alternate propertyname
        ["class", $UIA_ClassNamePropertyId], _                                  ; Alternate propertyname
        ["regexpclass", $UIA_ClassNamePropertyId], _                            ; Alternate propertyname
        ["iaccessiblevalue", $UIA_LegacyIAccessibleValuePropertyId], _          ; Alternate propertyname
        ["iaccessiblechildId", $UIA_LegacyIAccessibleChildIdPropertyId], _      ; Alternate propertyname
        ["id", $UIA_AutomationIdPropertyId], _                                  ; Alternate propertyname
        ["handle", $UIA_NativeWindowHandlePropertyId], _                        ; Alternate propertyname
        ["RuntimeId", $UIA_RuntimeIdPropertyId], _
        ["BoundingRectangle", $UIA_BoundingRectanglePropertyId], _
        ["ProcessId", $UIA_ProcessIdPropertyId], _
        ["ControlType", $UIA_ControlTypePropertyId], _
        ["LocalizedControlType", $UIA_LocalizedControlTypePropertyId], _
        ["Name", $UIA_NamePropertyId], _
        ["AcceleratorKey", $UIA_AcceleratorKeyPropertyId], _
        ["AccessKey", $UIA_AccessKeyPropertyId], _
        ["HasKeyboardFocus", $UIA_HasKeyboardFocusPropertyId], _
        ["IsKeyboardFocusable", $UIA_IsKeyboardFocusablePropertyId], _
        ["IsEnabled", $UIA_IsEnabledPropertyId], _
        ["AutomationId", $UIA_AutomationIdPropertyId], _
        ["ClassName", $UIA_ClassNamePropertyId], _
        ["HelpText", $UIA_HelpTextPropertyId], _
        ["ClickablePoint", $UIA_ClickablePointPropertyId], _
        ["Culture", $UIA_CulturePropertyId], _
        ["IsControlElement", $UIA_IsControlElementPropertyId], _
        ["IsContentElement", $UIA_IsContentElementPropertyId], _
        ["LabeledBy", $UIA_LabeledByPropertyId], _
        ["IsPassword", $UIA_IsPasswordPropertyId], _
        ["NativeWindowHandle", $UIA_NativeWindowHandlePropertyId], _
        ["ItemType", $UIA_ItemTypePropertyId], _
        ["IsOffscreen", $UIA_IsOffscreenPropertyId], _
        ["Orientation", $UIA_OrientationPropertyId], _
        ["FrameworkId", $UIA_FrameworkIdPropertyId], _
        ["IsRequiredForForm", $UIA_IsRequiredForFormPropertyId], _
        ["ItemStatus", $UIA_ItemStatusPropertyId], _
        ["IsDockPatternAvailable", $UIA_IsDockPatternAvailablePropertyId], _
        ["IsExpandCollapsePatternAvailable", $UIA_IsExpandCollapsePatternAvailablePropertyId], _
        ["IsGridItemPatternAvailable", $UIA_IsGridItemPatternAvailablePropertyId], _
        ["IsGridPatternAvailable", $UIA_IsGridPatternAvailablePropertyId], _
        ["IsInvokePatternAvailable", $UIA_IsInvokePatternAvailablePropertyId], _
        ["IsMultipleViewPatternAvailable", $UIA_IsMultipleViewPatternAvailablePropertyId], _
        ["IsRangeValuePatternAvailable", $UIA_IsRangeValuePatternAvailablePropertyId], _
        ["IsScrollPatternAvailable", $UIA_IsScrollPatternAvailablePropertyId], _
        ["IsScrollItemPatternAvailable", $UIA_IsScrollItemPatternAvailablePropertyId], _
        ["IsSelectionItemPatternAvailable", $UIA_IsSelectionItemPatternAvailablePropertyId], _
        ["IsSelectionPatternAvailable", $UIA_IsSelectionPatternAvailablePropertyId], _
        ["IsTablePatternAvailable", $UIA_IsTablePatternAvailablePropertyId], _
        ["IsTableItemPatternAvailable", $UIA_IsTableItemPatternAvailablePropertyId], _
        ["IsTextPatternAvailable", $UIA_IsTextPatternAvailablePropertyId], _
        ["IsTogglePatternAvailable", $UIA_IsTogglePatternAvailablePropertyId], _
        ["IsTransformPatternAvailable", $UIA_IsTransformPatternAvailablePropertyId], _
        ["IsValuePatternAvailable", $UIA_IsValuePatternAvailablePropertyId], _
        ["IsWindowPatternAvailable", $UIA_IsWindowPatternAvailablePropertyId], _
        ["ValueValue", $UIA_ValueValuePropertyId], _
        ["ValueIsReadOnly", $UIA_ValueIsReadOnlyPropertyId], _
        ["RangeValueValue", $UIA_RangeValueValuePropertyId], _
        ["RangeValueIsReadOnly", $UIA_RangeValueIsReadOnlyPropertyId], _
        ["RangeValueMinimum", $UIA_RangeValueMinimumPropertyId], _
        ["RangeValueMaximum", $UIA_RangeValueMaximumPropertyId], _
        ["RangeValueLargeChange", $UIA_RangeValueLargeChangePropertyId], _
        ["RangeValueSmallChange", $UIA_RangeValueSmallChangePropertyId], _
        ["ScrollHorizontalScrollPercent", $UIA_ScrollHorizontalScrollPercentPropertyId], _
        ["ScrollHorizontalViewSize", $UIA_ScrollHorizontalViewSizePropertyId], _
        ["ScrollVerticalScrollPercent", $UIA_ScrollVerticalScrollPercentPropertyId], _
        ["ScrollVerticalViewSize", $UIA_ScrollVerticalViewSizePropertyId], _
        ["ScrollHorizontallyScrollable", $UIA_ScrollHorizontallyScrollablePropertyId], _
        ["ScrollVerticallyScrollable", $UIA_ScrollVerticallyScrollablePropertyId], _
        ["SelectionSelection", $UIA_SelectionSelectionPropertyId], _
        ["SelectionCanSelectMultiple", $UIA_SelectionCanSelectMultiplePropertyId], _
        ["SelectionIsSelectionRequired", $UIA_SelectionIsSelectionRequiredPropertyId], _
        ["GridRowCount", $UIA_GridRowCountPropertyId], _
        ["GridColumnCount", $UIA_GridColumnCountPropertyId], _
        ["GridItemRow", $UIA_GridItemRowPropertyId], _
        ["GridItemColumn", $UIA_GridItemColumnPropertyId], _
        ["GridItemRowSpan", $UIA_GridItemRowSpanPropertyId], _
        ["GridItemColumnSpan", $UIA_GridItemColumnSpanPropertyId], _
        ["GridItemContainingGrid", $UIA_GridItemContainingGridPropertyId], _
        ["DockDockPosition", $UIA_DockDockPositionPropertyId], _
        ["ExpandCollapseExpandCollapseState", $UIA_ExpandCollapseExpandCollapseStatePropertyId], _
        ["MultipleViewCurrentView", $UIA_MultipleViewCurrentViewPropertyId], _
        ["MultipleViewSupportedViews", $UIA_MultipleViewSupportedViewsPropertyId], _
        ["WindowCanMaximize", $UIA_WindowCanMaximizePropertyId], _
        ["WindowCanMinimize", $UIA_WindowCanMinimizePropertyId], _
        ["WindowWindowVisualState", $UIA_WindowWindowVisualStatePropertyId], _
        ["WindowWindowInteractionState", $UIA_WindowWindowInteractionStatePropertyId], _
        ["WindowIsModal", $UIA_WindowIsModalPropertyId], _
        ["WindowIsTopmost", $UIA_WindowIsTopmostPropertyId], _
        ["SelectionItemIsSelected", $UIA_SelectionItemIsSelectedPropertyId], _
        ["SelectionItemSelectionContainer", $UIA_SelectionItemSelectionContainerPropertyId], _
        ["TableRowHeaders", $UIA_TableRowHeadersPropertyId], _
        ["TableColumnHeaders", $UIA_TableColumnHeadersPropertyId], _
        ["TableRowOrColumnMajor", $UIA_TableRowOrColumnMajorPropertyId], _
        ["TableItemRowHeaderItems", $UIA_TableItemRowHeaderItemsPropertyId], _
        ["TableItemColumnHeaderItems", $UIA_TableItemColumnHeaderItemsPropertyId], _
        ["ToggleToggleState", $UIA_ToggleToggleStatePropertyId], _
        ["TransformCanMove", $UIA_TransformCanMovePropertyId], _
        ["TransformCanResize", $UIA_TransformCanResizePropertyId], _
        ["TransformCanRotate", $UIA_TransformCanRotatePropertyId], _
        ["IsLegacyIAccessiblePatternAvailable", $UIA_IsLegacyIAccessiblePatternAvailablePropertyId], _
        ["LegacyIAccessibleChildId", $UIA_LegacyIAccessibleChildIdPropertyId], _
        ["LegacyIAccessibleName", $UIA_LegacyIAccessibleNamePropertyId], _
        ["LegacyIAccessibleValue", $UIA_LegacyIAccessibleValuePropertyId], _
        ["LegacyIAccessibleDescription", $UIA_LegacyIAccessibleDescriptionPropertyId], _
        ["LegacyIAccessibleRole", $UIA_LegacyIAccessibleRolePropertyId], _
        ["LegacyIAccessibleState", $UIA_LegacyIAccessibleStatePropertyId], _
        ["LegacyIAccessibleHelp", $UIA_LegacyIAccessibleHelpPropertyId], _
        ["LegacyIAccessibleKeyboardShortcut", $UIA_LegacyIAccessibleKeyboardShortcutPropertyId], _
        ["LegacyIAccessibleSelection", $UIA_LegacyIAccessibleSelectionPropertyId], _
        ["LegacyIAccessibleDefaultAction", $UIA_LegacyIAccessibleDefaultActionPropertyId], _
        ["AriaRole", $UIA_AriaRolePropertyId], _
        ["AriaProperties", $UIA_AriaPropertiesPropertyId], _
        ["IsDataValidForForm", $UIA_IsDataValidForFormPropertyId], _
        ["ControllerFor", $UIA_ControllerForPropertyId], _
        ["DescribedBy", $UIA_DescribedByPropertyId], _
        ["FlowsTo", $UIA_FlowsToPropertyId], _
        ["ProviderDescription", $UIA_ProviderDescriptionPropertyId], _
        ["IsItemContainerPatternAvailable", $UIA_IsItemContainerPatternAvailablePropertyId], _
        ["IsVirtualizedItemPatternAvailable", $UIA_IsVirtualizedItemPatternAvailablePropertyId], _
        ["IsSynchronizedInputPatternAvailable", $UIA_IsSynchronizedInputPatternAvailablePropertyId] _
        ]

Local $UIA_ControlArray[41][3] = [ _
        ["UIA_AppBarControlTypeId", 50040, "Identifies the AppBar control type. Supported starting with Windows 8.1."], _
        ["UIA_ButtonControlTypeId", 50000, "Identifies the Button control type."], _
        ["UIA_CalendarControlTypeId", 50001, "Identifies the Calendar control type."], _
        ["UIA_CheckBoxControlTypeId", 50002, "Identifies the CheckBox control type."], _
        ["UIA_ComboBoxControlTypeId", 50003, "Identifies the ComboBox control type."], _
        ["UIA_CustomControlTypeId", 50025, "Identifies the Custom control type. For more information, see Custom Properties, Events, and Control Patterns."], _
        ["UIA_DataGridControlTypeId", 50028, "Identifies the DataGrid control type."], _
        ["UIA_DataItemControlTypeId", 50029, "Identifies the DataItem control type."], _
        ["UIA_DocumentControlTypeId", 50030, "Identifies the Document control type."], _
        ["UIA_EditControlTypeId", 50004, "Identifies the Edit control type."], _
        ["UIA_GroupControlTypeId", 50026, "Identifies the Group control type."], _
        ["UIA_HeaderControlTypeId", 50034, "Identifies the Header control type."], _
        ["UIA_HeaderItemControlTypeId", 50035, "Identifies the HeaderItem control type."], _
        ["UIA_HyperlinkControlTypeId", 50005, "Identifies the Hyperlink control type."], _
        ["UIA_ImageControlTypeId", 50006, "Identifies the Image control type."], _
        ["UIA_ListControlTypeId", 50008, "Identifies the List control type."], _
        ["UIA_ListItemControlTypeId", 50007, "Identifies the ListItem control type."], _
        ["UIA_MenuBarControlTypeId", 50010, "Identifies the MenuBar control type."], _
        ["UIA_MenuControlTypeId", 50009, "Identifies the Menu control type."], _
        ["UIA_MenuItemControlTypeId", 50011, "Identifies the MenuItem control type."], _
        ["UIA_PaneControlTypeId", 50033, "Identifies the Pane control type."], _
        ["UIA_ProgressBarControlTypeId", 50012, "Identifies the ProgressBar control type."], _
        ["UIA_RadioButtonControlTypeId", 50013, "Identifies the RadioButton control type."], _
        ["UIA_ScrollBarControlTypeId", 50014, "Identifies the ScrollBar control type."], _
        ["UIA_SemanticZoomControlTypeId", 50039, "Identifies the SemanticZoom control type. Supported starting with Windows 8."], _
        ["UIA_SeparatorControlTypeId", 50038, "Identifies the Separator control type."], _
        ["UIA_SliderControlTypeId", 50015, "Identifies the Slider control type."], _
        ["UIA_SpinnerControlTypeId", 50016, "Identifies the Spinner control type."], _
        ["UIA_SplitButtonControlTypeId", 50031, "Identifies the SplitButton control type."], _
        ["UIA_StatusBarControlTypeId", 50017, "Identifies the StatusBar control type."], _
        ["UIA_TabControlTypeId", 50018, "Identifies the Tab control type."], _
        ["UIA_TabItemControlTypeId", 50019, "Identifies the TabItem control type."], _
        ["UIA_TableControlTypeId", 50036, "Identifies the Table control type."], _
        ["UIA_TextControlTypeId", 50020, "Identifies the Text control type."], _
        ["UIA_ThumbControlTypeId", 50027, "Identifies the Thumb control type."], _
        ["UIA_TitleBarControlTypeId", 50037, "Identifies the TitleBar control type."], _
        ["UIA_ToolBarControlTypeId", 50021, "Identifies the ToolBar control type."], _
        ["UIA_ToolTipControlTypeId", 50022, "Identifies the ToolTip control type."], _
        ["UIA_TreeControlTypeId", 50023, "Identifies the Tree control type."], _
        ["UIA_TreeItemControlTypeId", 50024, "Identifies the TreeItem control type."], _
        ["UIA_WindowControlTypeId", 50032, "Identifies the Window control type."] _
        ]

; #FUNCTION# ====================================================================================================================
; Name...........: _UIA_getControlName
; Description ...: Transforms the number of a control to a readable name
; Syntax.........: _UIA_getControlName($controlID)
; Parameters ....: $controlID
; Return values .: Success      - Returns string
;                  Failure      - Returns 0 and sets @error on errors:
;                  |@error=1     - No control with that id
; Author ........:
; Modified.......:
; Remarks .......: None
; Related .......:
; Link ..........:
; Example .......: No
; ===============================================================================================================================
Func _UIA_getControlName($controlID)
    Local $i

    For $i = 0 To UBound($UIA_ControlArray) - 1
        If ($UIA_ControlArray[$i][1] = $controlID) Then
            Return $UIA_ControlArray[$i][0]
        EndIf
    Next
    Return seterror($_UIASTATUS_GeneralError,$_UIASTATUS_GeneralError,"No control with that id")

EndFunc   ;==>_UIA_getControlName

; #FUNCTION# ====================================================================================================================
; Name...........: _UIA_getControlId
; Description ...: Transforms the name of a controltype to an id
; Syntax.........: _UIA_getControlId($controlName)
; Parameters ....: $controlName
; Return values .: Success      - Returns string
;                  Failure      - Returns 0 and sets @error on errors:
;                  |@error=1     - UI automation failed
; Author ........:
; Modified.......:
; Remarks .......: None
; Related .......:
; Link ..........:
; Example .......: No
; ===============================================================================================================================
Func _UIA_getControlID($controlName)
    Local $tName, $i
    $tName = StringUpper($controlName)
    If StringLeft($tName, 3) <> "UIA" Then
        $tName = "UIA_" & $tName & "CONTROLTYPEID"
    EndIf

    For $i = 0 To UBound($UIA_ControlArray) - 1
        If (StringUpper($UIA_ControlArray[$i][0]) = $tName) Then
            Return $UIA_ControlArray[$i][1]
        EndIf
    Next

    Return seterror($_UIASTATUS_GeneralError,$_UIASTATUS_GeneralError,"No control with that name")
EndFunc   ;==>_UIA_getControlID

; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name...........: _UIA_getPropertyIndex
; Description ...: Internal use just to find the location of the property name in the property array##
; Syntax.........:
; Parameters ....:
; Return values .:
; Author ........:
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......:
; ===============================================================================================================================
Func _UIA_getPropertyIndex($propName)
    Local $i

;~ Special properties
    if stringinstr("indexrelative;index;instance", $propName) Then
        return seterror(0,0,-1)
    EndIf


    For $i = 0 To UBound($UIA_propertiesSupportedArray, 1) - 1
        If StringLower($UIA_propertiesSupportedArray[$i][0]) = StringLower($propName) Then
            Return $i
        EndIf
    Next

    _UIA_LOG("[FATAL] : property you use is having invalid name:=" & $propName & @CRLF, $UIA_Log_Wrapper)
    return seterror($_UIASTATUS_GeneralError,$_UIASTATUS_GeneralError,"[FATAL] : property you use is having invalid name:=" & $propName & @CRLF)

EndFunc   ;==>_UIA_getPropertyIndex

; #FUNCTION# ====================================================================================================================
; Name...........: _UIA_getPropertyValue($obj, $id)
; Description ...: Just return a single property or if its an array string them together
; Syntax.........: _UIA_getPropertyValue
; Parameters ....: $obj2 - An UI Element object
;                  $id - A reference to the property id
; Return values .: Success      - Returns 1
;                  Failure      - Returns 0 and sets @error on errors:
;                  |@error=1     - UI automation failed
;                  |@error=2     - UI automation desktop failed
; Author ........:
; Modified.......:
; Remarks .......: None
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
;~ Just return a single property or if its an array string them together
Func _UIA_getPropertyValue($obj, $id)
    Local $tval
    Local $tStr
    Local $i

    If Not _UIA_IsElement($obj) Then
        Return SetError($_UIASTATUS_GeneralError, $_UIASTATUS_GeneralError, "** NO PROPERTYVALUE DUE TO NONEXISTING OBJECT **")
    EndIf

    $obj.GetCurrentPropertyValue($id, $tval)
    $tStr = "" & $tval
    If IsArray($tval) Then
        $tStr = ""
        For $i = 0 To UBound($tval) - 1
            $tStr = $tStr & stringstripws($tval[$i],$STR_STRIPLEADING + $STR_STRIPTRAILING )
            If $i <> UBound($tval) - 1 Then
                $tStr = $tStr & ";"
            EndIf
        Next
        Return $tStr
    EndIf
    Return SetError($_UIASTATUS_GeneralError, $_UIASTATUS_GeneralError, $tStr)
EndFunc   ;==>_UIA_getPropertyValue

; #FUNCTION# ====================================================================================================================
; Name...........: _UIA_getAllPropertyValues($UIA_oUIElement)
; Description ...: Just return all properties as a string
;                  Just get all available properties for desktop/should work on all IUIAutomationElements depending on ControlTypePropertyID they work yes/no
;                  Just make it a very long string name:= value pairs
; Syntax.........: _UIA_getPropertyValues
; Parameters ....: $obj - An UI Element object
;                  $id - A reference to the property id
; Return values .: Success      - Returns string
;                  Failure      - Returns 0 and sets @error on errors:
; Author ........:
; Modified.......:
; Remarks .......: None
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _UIA_getAllPropertyValues($UIA_oUIElement)
    Local $tStr, $tval, $tSeparator
    $tStr = ""
    $tSeparator = @CRLF ; To make sure its not a value you normally will get back for values

    For $i = 0 To UBound($UIA_propertiesSupportedArray) - 1
;~      Exclude the special ones
        if $UIA_propertiesSupportedArray[$i][1] <> -1 Then
            $tval = _UIA_getPropertyValue($UIA_oUIElement, $UIA_propertiesSupportedArray[$i][1])
            If $tval <> "" Then
                $tStr = $tStr & "UIA_" & $UIA_propertiesSupportedArray[$i][0] & ":= <" & $tval & ">" & $tSeparator
            EndIf
        endif
    Next
    Return $tStr
EndFunc   ;==>_UIA_getAllPropertyValues

Local $patternArray[21][3] = [ _
        [$UIA_ValuePatternId, $sIID_IUIAutomationValuePattern, $dtagIUIAutomationValuePattern], _
        [$UIA_InvokePatternId, $sIID_IUIAutomationInvokePattern, $dtagIUIAutomationInvokePattern], _
        [$UIA_SelectionPatternId, $sIID_IUIAutomationSelectionPattern, $dtagIUIAutomationSelectionPattern], _
        [$UIA_LegacyIAccessiblePatternId, $sIID_IUIAutomationLegacyIAccessiblePattern, $dtagIUIAutomationLegacyIAccessiblePattern], _
        [$UIA_SelectionItemPatternId, $sIID_IUIAutomationSelectionItemPattern, $dtagIUIAutomationSelectionItemPattern], _
        [$UIA_RangeValuePatternId, $sIID_IUIAutomationRangeValuePattern, $dtagIUIAutomationRangeValuePattern], _
        [$UIA_ScrollPatternId, $sIID_IUIAutomationScrollPattern, $dtagIUIAutomationScrollPattern], _
        [$UIA_GridPatternId, $sIID_IUIAutomationGridPattern, $dtagIUIAutomationGridPattern], _
        [$UIA_GridItemPatternId, $sIID_IUIAutomationGridItemPattern, $dtagIUIAutomationGridItemPattern], _
        [$UIA_MultipleViewPatternId, $sIID_IUIAutomationMultipleViewPattern, $dtagIUIAutomationMultipleViewPattern], _
        [$UIA_WindowPatternId, $sIID_IUIAutomationWindowPattern, $dtagIUIAutomationWindowPattern], _
        [$UIA_DockPatternId, $sIID_IUIAutomationDockPattern, $dtagIUIAutomationDockPattern], _
        [$UIA_TablePatternId, $sIID_IUIAutomationTablePattern, $dtagIUIAutomationTablePattern], _
        [$UIA_TextPatternId, $sIID_IUIAutomationTextPattern, $dtagIUIAutomationTextPattern], _
        [$UIA_TogglePatternId, $sIID_IUIAutomationTogglePattern, $dtagIUIAutomationTogglePattern], _
        [$UIA_TransformPatternId, $sIID_IUIAutomationTransformPattern, $dtagIUIAutomationTransformPattern], _
        [$UIA_ScrollItemPatternId, $sIID_IUIAutomationScrollItemPattern, $dtagIUIAutomationScrollItemPattern], _
        [$UIA_ItemContainerPatternId, $sIID_IUIAutomationItemContainerPattern, $dtagIUIAutomationItemContainerPattern], _
        [$UIA_VirtualizedItemPatternId, $sIID_IUIAutomationVirtualizedItemPattern, $dtagIUIAutomationVirtualizedItemPattern], _
        [$UIA_SynchronizedInputPatternId, $sIID_IUIAutomationSynchronizedInputPattern, $dtagIUIAutomationSynchronizedInputPattern], _
        [$UIA_ExpandCollapsePatternId, $sIID_IUIAutomationExpandCollapsePattern, $dtagIUIAutomationExpandCollapsePattern] _
        ]

Func _UIA_getPattern($obj, $patternID)
    Local $pPattern, $oPattern
    Local $sIID_Pattern
    Local $sdTagPattern
    Local $i

    For $i = 0 To UBound($patternArray) - 1
        If $patternArray[$i][0] = $patternID Then
;~          consolewrite("Pattern identified " & @crlf)
            $sIID_Pattern = $patternArray[$i][1]
            $sdTagPattern = $patternArray[$i][2]
            exitloop
        EndIf
    Next
;~  consolewrite($patternid & $sIID_Pattern & $sdTagPattern & @CRLF)

    $obj.getCurrentPattern($patternID, $pPattern)
    $oPattern = ObjCreateInterface($pPattern, $sIID_Pattern, $sdTagPattern)
    If _UIA_IsElement($oPattern) Then
;~      consolewrite("UIA found the pattern" & @CRLF)
        Return $oPattern
    Else
        _UIA_LOG("UIA WARNING ** NOT ** found the pattern" & @CRLF, $UIA_Log_Wrapper)
        return seterror($_UIASTATUS_GeneralError,$_UIASTATUS_GeneralError,"UIA WARNING ** NOT ** found the pattern" & @CRLF)
    EndIf
EndFunc   ;==>_UIA_getPattern

#EndRegion UIA Core

#Region UIA Testing Framework

Local Const $cRTI_Prefix="RTI."

Global $__g_hFileLog    ; Logfile reference

_UIA_TFW_Init()

; #FUNCTION# ====================================================================================================================
; Name...........: _UIA_TFW_Init
; Description ...: Initializes the basic stuff for the test framework based on the UIA core functions
; Syntax.........: _UIA_TFW_Init()
; Parameters ....: none
; Return values .: Success      - Returns 1
;                  Failure      - Returns 0 and sets @error on errors:
;                  |@error=1     - Framework failed
;                  |@error=2     - UI automation desktop failed
; Author ........:
; Modified.......:
; Remarks .......: None
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
func _UIA_TFW_Init()

    OnAutoItExitRegister("_UIA_TFW_Close")

;~  Dictionary object to store a lot of handy global data
    $UIA_Vars = ObjCreate("Scripting.Dictionary")
    $UIA_Vars.comparemode = 2 ; Text comparison case insensitive

;~ Log each time to a new logyyyymmddhhmmssms.XML file
    _UIA_LogFile(@YEAR & @MON & @MDAY & "-" & @HOUR & @MIN & @SEC & @MSEC & ".XML" , true)

;~ Check if We can find configuration from file(s)
    _UIA_LoadConfiguration()

    $UIA_Vars.add("DESKTOP", $UIA_oDesktop)

    _UIA_VersionInfo()

    return seterror($_UIASTATUS_Success,0,0)
EndFunc

func _UIA_TFW_Close()
    _UIA_logfileclose()
EndFunc


; #FUNCTION# ====================================================================================================================
; Name...........: _UIA_LoadConfiguration
; Description ...: Load all settings from a CFG file
; Syntax.........: _UIA_LoadConfiguration()
; Parameters ....: none
; Return values .: Success      - Returns 1
;                  Failure      - Returns 0 and sets @error on errors:
;                  |@error=1     - UI automation failed
; Author ........:
; Modified.......:
; Remarks .......: None
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _UIA_LoadConfiguration()

    _UIA_setVar("RTI.ACTIONCOUNT", 0)

;~  Some settings to use as a default
    _UIA_setVar("Global.Debug", True)
    _UIA_setVar("Global.Debug.File", True)
    _UIA_setVar("Global.Highlight", True)

;~  Check if we can find a configuration file and load it from that file
    If FileExists($UIA_CFGFileName) Then
        _UIA_loadCFGFile($UIA_CFGFileName)
    EndIf
;~      _UIA_LOG("Script name " & stringinstr(@scriptname),  $UIA_Log_Wrapper)
EndFunc   ;==>_UIA_LoadConfiguration

Func _UIA_loadCFGFile($strFname)
    Local $var
    Local $sections, $values, $strKey, $strVal, $i, $j

    $sections = IniReadSectionNames($strFname)

    If @error Then
        _UIA_LOG("Error occurred on reading " & $strFname & @CRLF, $UIA_Log_Wrapper)
    Else
;~      Load all settings into the dictionary
        For $i = 1 To $sections[0]
            $values = IniReadSection($strFname, $sections[$i])
            If @error Then
                _UIA_LOG("Error occurred on reading " & $strFname & @CRLF, $UIA_Log_Wrapper)
            Else
;~      Load all settings into the dictionary
                For $j = 1 To $values[0][0]
                    $strKey = $sections[$i] & "." & $values[$j][0]
                    $strVal = $values[$j][1]

                    If StringLower($strVal) = "true" Then $strVal = True
                    If StringLower($strVal) = "false" Then $strVal = False
                    If StringLower($strVal) = "on" Then $strVal = True
                    If StringLower($strVal) = "off" Then $strVal = False

                    If StringLower($strVal) = "minimized" Then $strVal = @SW_MINIMIZE
                    If StringLower($strVal) = "maximized" Then $strVal = @SW_MAXIMIZE
                    If StringLower($strVal) = "normal" Then $strVal = @SW_RESTORE

                    $strVal = StringReplace($strVal, "%windowsdir%", @WindowsDir)
                    $strVal = StringReplace($strVal, "%programfilesdir%", @ProgramFilesDir)

;~                  _UIA_LOG("Key: [" & $strKey & "] Value: [" &  $strVal & "]" & @CRLF, $UIA_Log_Wrapper)
                    _UIA_setVar($strKey, $strVal)
                Next
            EndIf
        Next
    EndIf
EndFunc   ;==>_UIA_loadCFGFile

; #FUNCTION# ====================================================================================================================
; Name...........: _UIA_getVar($varName)
; Description ...: Just returns a value as set before
; Syntax.........: _UIA_getVar("Global.UIADebug")
; Parameters ....: $varName  - A name for a variable
; Return values .: Success      - Returns the value of the variable
;                  Failure      - Returns "*** ERROR ***" and sets error to 1
; Author ........:
; Modified.......:
; Remarks .......: None
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
;~ Just get a value in a dictionary object
Func _UIA_getVar($varName)
    If $UIA_Vars.exists($varName) Then
        Local $retVal = $UIA_Vars($varName)
        Return $retVal
    Else
        SetError(1) ;~ Not defined in repository
        Return "*** WARNING: not in repository ***" & $varName
    EndIf
EndFunc   ;==>_UIA_getVar

;~ ** TODO: Not needed??? **
Func _UIA_getVars2Array($prefix = "")
    Local $keys, $it, $i
    _UIA_LOG($UIA_Vars.count - 1 & @CRLF, $UIA_Log_Wrapper)
    $keys = $UIA_Vars.keys
    $it = $UIA_Vars.items
    For $i = 0 To $UIA_Vars.count - 1
        Local $oRef = $it[$i]
        _UIA_LOG("[" & $keys[$i] & "]:=[" & $oRef & "]" & _UIA_IsElement($oRef) & @CRLF, $UIA_Log_Wrapper)
    Next

EndFunc   ;==>_UIA_getVars2Array

; #FUNCTION# ====================================================================================================================
; Name...........: _UIA_setVar($varName, $varValue)
; Description ...: Just sets a variable to a certain value
; Syntax.........: _UIA_setVar("Global.UIADebug",True)
; Parameters ....: $varName  - A name for a variable
;                  $varValue - A value to assign to the variable
; Return values .: Success      - Returns 1
;                  Failure      - Returns 0 and sets @error on errors:
;                  |@error=1     - UI automation failed
;                  |@error=2     - UI automation desktop failed
; Author ........:
; Modified.......:
; Remarks .......: None
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
;~ Just set a value in a dictionary object
;  see http://www.autoitscript.com/forum/topic/163278-defect-or-by-design-dictionary-object-assignment-in-autoit/
Func _UIA_setVar($varName, $varValue)
;~      Broken since AutoIT version 3.10??
;~      $UIA_Vars($varName) = $varValue
    If $UIA_Vars.exists($varName) Then
        $UIA_Vars.remove($varName)
        $UIA_Vars.add($varName, $varValue)
    Else
        $UIA_Vars.add($varName, $varValue)
    EndIf
EndFunc   ;==>_UIA_setVar

Func _UIA_setVarsFromArray(ByRef $_array, $prefix = "")
    Local $iRow
    If Not IsArray($_array) Then Return 0
    For $iRow = 0 To UBound($_array, 1) - 1
        _UIA_setVar($prefix & $_array[$iRow][0], $_array[$iRow][1])
    Next
EndFunc   ;==>_UIA_setVarsFromArray

Func _UIA_launchScript(ByRef $_scriptArray)
    Local $iLine
    If Not IsArray($_scriptArray) Then
        Return SetError(1, 0, 0)
    EndIf

    For $iLine = 0 To UBound($_scriptArray, 1) - 1
        If ($_scriptArray[$iLine][0] <> "") Then
            _UIA_action($_scriptArray[$iLine][0], $_scriptArray[$iLine][1], $_scriptArray[$iLine][2], $_scriptArray[$iLine][3], $_scriptArray[$iLine][4], $_scriptArray[$iLine][5])
        EndIf
    Next
EndFunc   ;==>_UIA_launchScript
; #FUNCTION# ====================================================================================================================
; Name...........: _UIA_normalizeExpression($sPropList)
; Description ...: Just puts the expression in an splitted array
; Syntax.........:
;   $tArr=_UIA_normalizeExpression("Title=Adresbalk;controltype=UIA_PaneControlTypeId;class=Address Band Root;indexrelative=1")
; Parameters ....: $sPropList is an expression of properties key value pairs to be splitted
; Return values .: Success      - Returns an array with
;                   - propertyName
;                   - Value
;                   - Matched=true when object
;                   - special=true when special property
;                  Failure      - Returns 0 and sets @error on errors:
;                  |@error=1     - UI automation failed
; Author ........:
; Modified.......:
; Remarks .......: None
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
func _UIA_normalizeExpression($sPropList)
    Local $asAllProperties          ;~ All properties of the expression to match in a splitted form
    Local $iPropertyCount           ;~ Number of properties given in the expression
    Local $asProperties2Match[1][4] ;~ All properties of the expression to match in a normalized form

    local $i                        ;~ Just a looping integer
    local $aKV                      ;~ Array key/value pair
    Local $iMatch                   ;~ Temp value to see if there is a match on that property
    local $propName, $propValue
    local $bSkip

    local $UIA_oUIElement
    local $UIA_pUIElement

    local $index

;~  Split it first into multiple sections representing each property
    $asAllProperties = StringSplit($sPropList, ";", 1)

;~ Redefine the array to have all properties that are used to identify
    $iPropertyCount = $asAllProperties[0]+1
    ReDim $asProperties2Match[$iPropertyCount][4]

    _UIA_LOG("_UIA_normalizeExpression " & $sPropList & ";" & $iPropertyCount & " properties " & @CRLF, $UIA_Log_Wrapper)

    For $i = 1 To $iPropertyCount-1
        _UIA_LOG("  _UIA_getObjectByFindAll property " & $i & " " & $asAllProperties[$i] & @CRLF, $UIA_Log_Wrapper)
        $aKV = StringSplit($asAllProperties[$i], ":=", 1)
        $iMatch=0
        $bSkip=false
;~ Handle syntax without a property to have default name property:  Ok as Name:=Ok or if referring to [ACTIVE] then find element
        If $aKV[0] = 1 Then
            $aKV[1] = StringStripWS($aKV[1], 3)

            $propName = $UIA_NamePropertyId
            $propValue = $asAllProperties[$i]

            Switch $aKV[1]
                Case "active", "[active]"
                    $UIA_oUIAutomation.GetFocusedElement($UIA_pUIElement)
                    $UIA_oUIElement = ObjCreateInterface($UIA_pUIElement, $sIID_IUIAutomationElement, $dtagIUIAutomationElement)

                    $propName = "object"
                    $propValue=$UIA_oUIElement
                    $iMatch = 1
                    $bSkip=true
                Case "last", "[last]"
                    $UIA_oUIElement = _UIA_getVar("RTI.LASTELEMENT")
                    If Not _UIA_IsElement($UIA_oUIElement) Then
                        $UIA_oUIElement = $UIA_oDesktop
                    EndIf

                    $propName = "object"
                    $propValue=$UIA_oUIElement
                    $iMatch = 1
                    $bSkip=true

                Case Else
                    $propName = $UIA_NamePropertyId
                    $propValue = $asAllProperties[$i]
                    $iMatch=0
                    $bSkip=false

            EndSwitch

            $asProperties2Match[$i][0] = $propName
            $asProperties2Match[$i][1] = $propValue
            $asProperties2Match[$i][2] = $iMatch
            $asProperties2Match[$i][3] = $bSkip

        Else
;~          Just clean the properties as given in the pattern to find comparable to descriptive description
            $aKV[1] = StringStripWS($aKV[1], 3)
            $aKV[2] = StringStripWS($aKV[2], 3)
            $propName = $aKV[1]
            $propValue = $aKV[2]
            $iMatch=0
            $bSkip=false

            $index = _UIA_getPropertyIndex($propName)

            if $index >=0 Then

    ;~          Some properties expect a number (otherwise system will break)
                Switch $UIA_propertiesSupportedArray[$index][1]
                    Case $UIA_ControlTypePropertyId
                        $propValue = Number(_UIA_getControlID($propValue))
                EndSwitch
    ;~ _UIA_LOG("value after" & $propValue)

                _UIA_LOG( " name:[" & $propName & "] value:[" & $propValue & "] having index " & $index & @CRLF, $UIA_Log_Wrapper)

    ;~ Add it to the normalized array
;~              consolewrite("index:" & $index & @CRLF)
                $asProperties2Match[$i][0] = $UIA_propertiesSupportedArray[$index][1] ;~ store the propertyID (numeric value)
            Else
                $asProperties2Match[$i][0] = $propName
            EndIf

            $asProperties2Match[$i][1] = $propValue
            $asProperties2Match[$i][2] = $iMatch
            $asProperties2Match[$i][3] = $bSkip
        EndIf
    Next

    $asProperties2Match[0][0]=$iPropertyCount
    return $asProperties2Match

EndFunc

;~ Find it by using a findall array of the UIA framework
Func _UIA_getObjectByFindAll($obj, $str, $treeScope=$treescope_children, $p1 = 0)
    Local $pCondition, $pTrueCondition
    Local $pElements, $iLength

    Local $tResult
    Local $propertyID
    Local $tPos
    Local $relPos = 0
    Local $relIndex = 0
    Local $iMatch = 0
    Local $tStr
    Local $parentHandle ;~ Handle to get the parent of the element available

    Local $properties2Match[1][2] ;~ All properties of the expression to match in a normalized form

    Local $allProperties, $propertyCount, $propName, $propValue, $bAdd, $index, $i, $arrSize, $j
    Local $objParent, $propertyActualValue, $propertyVal, $oAutomationElementArray, $matchCount
    local $bSkip=false

    Local $tXMLLogString ; For logging purposes

;~ First normalize the string expression of properties to an array
    $properties2Match=_UIA_normalizeExpression($str)

;~ If there was a reference of 1 property directly to an object
    if $properties2Match[1][0] = "object" Then
        $UIA_oUIElement = $properties2Match[1][1]
        $iMatch=1
    EndIf

;- If not an object given directly then
    If $iMatch = 0 Then
;~ Get the exceptional properties with special meaning
        $arrSize = UBound($properties2Match, 1) - 1
        For $j = 1 To $arrSize
            $bSkip=$properties2Match[$j][3]
            if $bSkip=true then
                ;~ The properties with a specific meaning
                If $propName = "indexrelative" Then
                    $relPos = $propValue
                EndIf
                If ($propName = "index") Or ($propName = "instance") Then
                    $relIndex = $propValue
                EndIf
            EndIf
        Next

;~ Now get the tree of runtime objects and try to find a match
        If _UIA_IsElement($obj) Then
            _UIA_LOG("*** Try to get a list of elements *** " & $treeScope & @CRLF, $UIA_Log_Wrapper)
            $obj.FindAll($treeScope, $UIA_oTRUECondition, $pElements)
            $oAutomationElementArray = ObjCreateInterface($pElements, $sIID_IUIAutomationElementArray, $dtagIUIAutomationElementArray)
;~          //TODO: For some silly reason we have to wait otherwise element is not ready
;~          sleep(200)
        EndIf

        $matchCount = 0

;~  If there are no childs found then there is nothing to search
        If _UIA_IsElement($oAutomationElementArray) Then
;~ All elements to inspect are in this array
            $oAutomationElementArray.Length($iLength)
        Else
            _UIA_LOG("***** FATAL:???? _UIA_getObjectByFindAll no childarray found for object with following details *****" & @CRLF, $UIA_Log_Wrapper)
            _UIA_LOG(_UIA_getAllPropertyValues($obj) & @CRLF, $UIA_Log_Wrapper)
            $iLength = 0
        EndIf

;~      _UIA_LOG("_UIA_getObjectByFindAll walk thru the tree" &  $iLength )

;~ Start the actual tree searching

        $tXMLLogString=""
        $tXMLLogString = $tXMLLogString & "<propertymatching>"
        For $i = 0 To $iLength - 1; it's zero based
            $oAutomationElementArray.GetElement($i, $UIA_pUIElement)
            $UIA_oUIElement = ObjCreateInterface($UIA_pUIElement, $sIID_IUIAutomationElement, $dtagIUIAutomationElement)

;~      Walk thru all properties in the properties2Match array to match
;~      Normally not a big array just 1 - 5 elements frequently just 1 as it are the properties user gives to search on
            For $j = 1 To $arrSize
                $bSkip=$properties2Match[$j][3]
                if $bSkip=false Then
                    $propertyID = $properties2Match[$j][0]
                    $propertyVal = $properties2Match[$j][1]
                    $propertyActualValue = ""
        ;~          _UIA_LOG("   1    j:" & $j & "[" & $propertyID & "][" & $propertyVal & "][" & $propertyActualValue & "]" & $iMatch & @CRLF, $UIA_Log_Wrapper)
        ;~ $tXMLLogString=$tXMLLogString & _UIA_EncodeHTMLString("   1    j:" & $j & "[" & $propertyID & "][" & $propertyVal & "][" & $propertyActualValue & "]" & $iMatch)

        ;~          Some properties expect a number (otherwise system will break)
        ;~ TODO: Replace button with the actual id

                    Switch $propertyID
                        Case $UIA_ControlTypePropertyId
                            $propertyVal = Number($propertyVal)
                    EndSwitch

                    $propertyActualValue = _UIA_getPropertyValue($UIA_oUIElement, $propertyID)

    ;~          TODO: Tricky logic on numbers and strings
    ;~          if $propertyVal=0 Then
    ;~              if $propertyVal=$propertyActualValue Then
    ;~                  $iMatch=1
    ;~              Else
    ;~                  $iMatch=0
    ;~                  _UIA_LOG("j:" & $j & "[" & $propertyID & "][" & $propertyVal & "][" & $propertyActualValue & "]" & $iMatch & @CRLF, $UIA_Log_Wrapper)
    ;~                  ExitLoop
    ;~              EndIf
    ;~          Else

    ;~          if $propertyVal=0
                    $iMatch = StringRegExp($propertyActualValue, $propertyVal, $STR_REGEXPMATCH )

    ;~          Filter so not to much logging happens
    ;~              If $propertyActualValue <> "" Then
    $tXMLLogString=$tXMLLogString & _UIA_EncodeHTMLString("        j:" & $j & " propID:[" & $propertyID & "] expValue:[" & $propertyVal & "]actualValue:[" & $propertyActualValue & "]" & $iMatch & @CRLF)
    ;~                  _UIA_LOG("        j:" & $j & " propID:[" & $propertyID & "] expValue:[" & $propertyVal & "]actualValue:[" & $propertyActualValue & "]" & $iMatch & @CRLF, $UIA_Log_Wrapper)
    ;~              EndIf

    ;~              Very tricky logic to circument the issue when propertyVal=0 but actualValue is something else
    ;~              Actually there should be a way to see if we are using a regex match or an exact string/number match
    ;~              Below is to repair this check j:1 propID:[30003] expValue:[0]actualValue:[50003]1 which gives incorrectly true
    ;~              if $iMatch=1 Then
    ;~                  if ($propertyVal=0) and ($propertyActualValue<>"") Then
    ;~                      $iMatch=0
    ;~                      _UIA_LOG("        j:" & $j & " propID:[" & $propertyID & "] expValue:[" & $propertyVal & "]actualValue:[" & $propertyActualValue & "]" & $iMatch & " *** reset to no match *** " & @CRLF, $UIA_Log_Wrapper)
    ;~                  EndIf
    ;~              EndIf

                    If $iMatch = 0 Then
    ;~              Special situation could be that its non matching on regex but exact match is there
                        If $propertyVal <> $propertyActualValue Then
    ;~                      $tXMLLogString = $tXMLLogString & "</propertymatching>"
    ;~                      _UIA_LOG($tXMLLogString, $UIA_Log_Wrapper)
                            ExitLoop
                        EndIf
    ;~                  $iMatch = 1
                    EndIf

                EndIf
            Next

;~ Check if found but still we want to continue due to relative position or index
            If $iMatch = 1 Then
;~              Just go a few elements further in the array and make that element the found one
                If $relPos <> 0 Then
;~                  _UIA_LOG("Relative position used", $UIA_Log_Wrapper)
                    $oAutomationElementArray.GetElement($i + $relPos, $UIA_pUIElement)
                    $UIA_oUIElement = ObjCreateInterface($UIA_pUIElement, $sIID_IUIAutomationElement, $dtagIUIAutomationElement)
                EndIf
;~              Just reset found status and continue in the loop till the right one is found
                If $relIndex <> 0 Then
                    $matchCount = $matchCount + 1
                    If $matchCount <> $relIndex Then $iMatch = 0
                    _UIA_LOG("Index position used " & $relIndex & $matchCount, $UIA_Log_Wrapper)
                EndIf

                If $iMatch = 1 Then
;~                  _UIA_LOG( " Found the Name is: <" &  _UIA_getPropertyValue($UIA_oUIElement,$UIA_NamePropertyId) &  ">" & @TAB _
;~                  & "Class   := <" & _UIA_getPropertyValue($UIA_oUIElement,$uia_classnamepropertyid) &  ">" & @TAB _
;~                  & "controltype:= <" &  _UIA_getPropertyValue($UIA_oUIElement,$UIA_ControlTypePropertyId) &  ">" & @TAB  _
;~                  & " (" &  hex(_UIA_getPropertyValue($UIA_oUIElement,$UIA_ControlTypePropertyId)) &  ")" & @TAB & @CRLF, $UIA_Log_Wrapper)
                    ExitLoop
                EndIf
            EndIf
        Next

        $tXMLLogString = $tXMLLogString & "</propertymatching>"
        _UIA_LOG($tXMLLogString, $UIA_Log_Wrapper)

    EndIf

;~ So if we found an element do some additional handling
    If $iMatch = 1 Then
;~ Have the parent also available in the RTI
;~ $UIA_oTW, $UIA_pTW
        $UIA_oTW.getparentelement($UIA_oUIElement, $parentHandle)
        $objParent = ObjCreateInterface($parentHandle, $sIID_IUIAutomationElement, $dtagIUIAutomationElement)
        If _UIA_IsElement($objParent) = 0 Then
            _UIA_LOG("No parent " & @CRLF, $UIA_Log_Wrapper)
        Else
            _UIA_LOG("Storing parent for found object in RTI as RTI.PARENT " & _UIA_getPropertyValue($objParent,$UIA_NamePropertyId) & @CRLF, $UIA_Log_Wrapper)
            _UIA_setVar("RTI.PARENT", $objParent)
        EndIf

;~      Add element to runtime information object reference
        If IsString($p1) Then
            _UIA_LOG("Storing in RTI as RTI." & $p1 & @CRLF, $UIA_Log_Wrapper)
            _UIA_setVar("RTI." & StringUpper($p1), $UIA_oUIElement)
        EndIf

        If _UIA_getVar("Global.Highlight") = True Then
            _UIA_Highlight($UIA_oUIElement)
        EndIf

        Return $UIA_oUIElement
    Else
        Return ""
    EndIf

EndFunc   ;==>_UIA_getObjectByFindAll

Func _UIA_getTaskBar()
    Return _UIA_getFirstObjectOfElement($UIA_oDesktop, "classname:=Shell_TrayWnd", $TreeScope_Children)
EndFunc   ;==>_UIA_getTaskBar

;~ Determince the object based on the description or directly based on the object reference or based on the context of previous actions
func _UIA_getObject($obj_or_string)
    Local $oElement
    Local $tPhysical
    Local $startElement, $oStart, $pos, $tStr
    Local $xx     ;~ most likely remove in far future
    local $oParentHandle, $oParentBefore, $i, $parentCount
    local $oFocusElement

;~ If we are giving a description then try to make an object first by looking from repository
;~ Otherwise assume an advanced description we should search under one of the previously referenced elements at runtime
;~ or in a newly created popup

;~ It could be that reference given is already an object
    if _UIA_IsElement($obj_or_string) Then
        $oElement=$obj_or_string
    else
    ;~ Check if its maybe already in the repository with an RTI object reference
        $oElement = _UIA_getVar($cRTI_Prefix & $obj_or_string)

    ;~ If not found in repository try again without prefix (normally then a physical description and not an object)
        If @error = 1 Then
            $oElement = _UIA_getVar($obj_or_string)
            $tPhysical = $oElement
        EndIf

    ;~ If still not found in repository assume its a physical description which we have to transform later on to an object
        If @error = 1 Then
            _UIA_LOG("Finding object (bypassing repository) with physical description " & $tPhysical & ":" & $obj_or_string & @CRLF, $UIA_Log_Wrapper)
            $tPhysical = $obj_or_string
        EndIf
    EndIf

;~ So it could be by the lookup its already an element previously referenced
    If _UIA_IsElement($oElement) Then
;~      $oElement = $obj_or_string
        _UIA_LOG("Quickly referenced object " & $tPhysical & ":" & $obj_or_string & @CRLF, $UIA_Log_Wrapper)
    Else

;~      TODO: If its a physical description the searching should start at one of the last active elements or parent of that last active element
;~      else
;~          We found a reference try to make it an object
;~      _UIA_LOG("Finding object with physical description " & $tPhysical & @CRLF, $UIA_Log_Wrapper)

;~ TODO For the moment the context has to be set in mainscript
;~ Future tought on this to find it more based on the context of the previous actions (more complicated algorithm)
;~ Actually logic should become
;~ If there is no LAST then use desktop else use LAST, if not found use parent of LAST, if not found use grandparent of LAST etc.

;~ if its a repository reference with .mainwindow at end in name then find it under the desktop
        If Stringright($obj_or_string, stringlen(".mainwindow"))= ".mainwindow" Then
            $startElement = "Desktop"
            $oStart = $UIA_oDesktop
            _UIA_LOG("Fallback finding1 object under " & $startElement & @TAB & $tPhysical & @CRLF, $UIA_Log_Wrapper)
;~          _UIA_LOG("Fallback find under 1 " & $tPhysical & @CRLF, $UIA_Log_Wrapper)

            $oElement = _UIA_getObjectByFindAll($oStart, $tPhysical, $treescope_children, $obj_or_string)

;~          And store quick references to mainwindow
            _UIA_setVar("RTI.MAINWINDOW", $oElement)
            _UIA_setVar($cRTI_Prefix & stringupper($obj_or_string),$oElement)

            _UIA_setVar("RTI.SEARCHCONTEXT", $oElement)
        Else

;~          $xx=_UIA_getVars2Array()

            $oStart = _UIA_getVar("RTI.SEARCHCONTEXT")
            $startElement = "RTI.SEARCHCONTEXT"

            If Not _UIA_IsElement($oStart) Then
;~              $pos=stringinstr($obj_or_string,".",0,-1)
;~ TODO: Not sure if both backwards dot and forward dot to investigate
                $pos = StringInStr($obj_or_string, ".")
                _UIA_LOG("_UIA_action: No RTI.SEARCHCONTEXT used for " & $obj_or_string & @CRLF, $UIA_Log_Wrapper)
                If $pos > 0 Then
                    $tStr = $cRTI_Prefix & StringLeft(StringUpper($obj_or_string), $pos - 1) & ".MAINWINDOW"
                Else
                    $tStr = "RTI.MAINWINDOW"
                EndIf
                _UIA_LOG("_UIA_action: try for " & $tStr & @CRLF, $UIA_Log_Wrapper)


                $oStart = _UIA_getVar($tStr)
                $startElement = $tStr

                If Not _UIA_IsElement($oStart) Then
                    _UIA_LOG("_UIA_action: No RTI.MAINWINDOW used for " & $obj_or_string & @CRLF, $UIA_Log_Wrapper)

;~ TODO: Dump RTI vars only for debugging purpose
                    $xx = _UIA_getVars2Array()

                    $oStart = _UIA_getVar("RTI.PARENT")
                    $startElement = "RTI.PARENT"
;~                  $oStart=$UIA_oParent     ;~TODO: Somehow not retrievable from the DD $UIA_Vars object
                    If Not _UIA_IsElement($oStart) Then
                        _UIA_LOG("_UIA_action: No RTI.PARENT used for " & $obj_or_string & @CRLF, $UIA_Log_Wrapper)
                        $startElement = "Desktop"
                        $oStart = $UIA_oDesktop
                    EndIf
                EndIf

;~              $oStart=_UIA_getVar("RTI.MAINWINDOW")
;~              $startElement="RTI.MAINWINDOW"

            EndIf

            _UIA_LOG("_UIA_action: Finding object " & $obj_or_string & " object a:=" & _UIA_IsElement($obj_or_string) & " under " & $startElement & " object b:=" & _UIA_IsElement($oStart) & @CRLF, $UIA_Log_Wrapper)
;~          _UIA_getVars2Array()
            _UIA_LOG("  looking for " & $tPhysical & @CRLF, $UIA_Log_Wrapper)

;~          Check if its a popup dialog which we are going to handle
;~          $UIA_oUIAutomation.GetFocusedElement($UIA_pUIElement)
            ;~ consolewrite("focused Element is passed, trying to convert to object ")
;~          $oFocusElement = objcreateinterface($UIA_pUIElement,$sIID_IUIAutomationElement, $dtagIUIAutomationElement)
;~          $startElement = "Focused element"

;~          _UIA_LOG("*** focused object *** " & @CRLF, $UIA_Log_Wrapper)
;~          $oElement = _UIA_getObjectByFindAll($oStart, $tPhysical, $treescope_children)
;~          _UIA_LOG(_UIA_getBasePropertyInfo($oFocusElement) & @crlf, $UIA_Log_Wrapper)


;~          Do not directly search all children and grandchildren but take 2 step approach as frequently only looking in the direct childs
            $oElement = _UIA_getObjectByFindAll($oStart, $tPhysical, $treescope_children)

            if not _UIA_IsElement($oElement) Then
                _UIA_LOG("  deep find in subtree " & $tPhysical & @CRLF, $UIA_Log_Wrapper)
                $oElement = _UIA_getObjectByFindAll($oStart, $tPhysical, $treescope_subtree)
            EndIf

;~          And in worst case search backward highest parents and refind in subtree

            if not _UIA_IsElement($oElement) Then
                _UIA_LOG("  walking back to mainwindow and deep find in subtree " & $tPhysical & @CRLF, $UIA_Log_Wrapper)

                ;~ Walk thru the tree with a treewalker
                $UIA_oUIAutomation.RawViewWalker($UIA_pTW)
                $UIA_oTW=ObjCreateInterface($UIA_pTW, $sIID_IUIAutomationTreeWalker, $dtagIUIAutomationTreeWalker)
                If not _UIA_IsElement($UIA_oTW)  Then
                    _UIA_LOG("UI automation treewalker failed. UI Automation failed failed " & @CRLF, $UIA_Log_Wrapper)
                EndIf
                ;~  at least 1 assumed (assuming we are not spying the desktop)
                $i=0
                $UIA_oTW.getparentelement($oStart,$oParentHandle)
                $oParentHandle=objcreateinterface($oparentHandle,$sIID_IUIAutomationElement, $dtagIUIAutomationElement)
                If _UIA_IsElement($oParentHandle) = 0 Then
                    _UIA_LOG("No parent: UI Automation failed could be you spy the desktop", $UIA_Log_Wrapper)
                Else
                    while ($i <=$_UIA_MAXDEPTH) and (_UIA_IsElement($oParentHandle)=true)
                        $i=$i+1
                        $oParentBefore=$oParentHandle
                        $UIA_oTW.getparentelement($oparentHandle,$oparentHandle)
                        $oParentHandle=objcreateinterface($oparentHandle,$sIID_IUIAutomationElement, $dtagIUIAutomationElement)
                    wend
                    $parentCount=$i-1
                    $oStart=$oParentBefore
                EndIf

                $oElement = _UIA_getObjectByFindAll($oStart, $tPhysical, $treescope_subtree)
            EndIf

;~ We have not found an object, so for debugging its easier to have then whole tree dumped in logfiles
;~ unless it was a check for (non)existence
            if not _UIA_IsElement($oElement) Then
                If _UIA_getVar("Global.Debug") = True Then
                    _UIA_DumpThemAll($oStart, $treescope_subtree)
                EndIf
            endif
        EndIf
    EndIf

    return $oElement

EndFunc

;~ func _UIA_action($obj, $strAction, $p1=0, $p2=0, $p3=0)
Func _UIA_action($obj_or_string, $strAction, $p1 = 0, $p2 = 0, $p3 = 0, $p4 = 0)
    Local $obj2ActOn   ;~ Object that is found and where we want to act on
    Local $tPattern    ;~ Reference to hold the pattern of UIA thats needed to execute an action
    Local $x, $y       ;~ Used for x and y of mouse clicking
    Local $controlType
    Local $oElement
    Local $parentHandle
    Local $oTW          ;~ Treewalker reference
    Local $hwnd
    Local $retVal=True  ;~ Default returnvalue unless overwritten below with other value

    Local $tRect  ;~ Holds reference to 4 values of a rectangle (in an array so no RECT struct)

    _UIA_LOG($__UIA_debugCacheOn)
    _UIA_LOG("<action>")
    $oElement=_UIA_getObject($obj_or_string)

;~ And just continue the action by setting the $obj2ActOn value to an UIA element
    If _UIA_IsElement($oElement) Then
        $obj2ActOn = $oElement
        _UIA_setVar("RTI.LASTELEMENT", $oElement)
        $controlType = _UIA_getPropertyValue($obj2ActOn, $UIA_ControlTypePropertyId)
    Else
;~      exclude the intentional actions that are done for nonexistent objects
        If Not StringInStr("exist,exists", $strAction) Then
            _UIA_LOG("Not an object failing action " & $strAction & " on " & $obj_or_string & @CRLF, $UIA_Log_Wrapper)
            SetError(1)
            Return False
        EndIf
    EndIf

    _UIA_setVar("RTI.ACTIONCOUNT", _UIA_getVar("RTI.ACTIONCOUNT") + 1)

    _UIA_LOG("Action " & _UIA_getVar("RTI.ACTIONCOUNT") & " " & $strAction & " on " & $obj_or_string & " _UIA_IsElement:=" & _UIA_IsElement($obj2ActOn) & " par 1:=" & $p1 & " par 2:=" & $p2 & @CRLF, $UIA_Log_Wrapper)
    _UIA_LOG("</action>")
    _UIA_LOG($__UIA_debugCacheOff)

;~ Execute the given action
    Switch $strAction
;~      All mouse click actions
        Case "leftclick", "left", "click", _
             "leftdoubleclick", "leftdouble", "doubleclick", _
                "rightclick", "right", _
                "rightdoubleclick", "rightdouble", _
                "middleclick", "middle", _
                "middledoubleclick", "middledouble", _
                "mousemove", "movemouse"

            Local $clickAction = "left" ;~ Default action is the left mouse button
            Local $clickCount = 1 ;~ Default action is the single click

            If StringInStr($strAction, "right") Then $clickAction = "right"
            If StringInStr($strAction, "middle") Then $clickAction = "middle"
            If StringInStr($strAction, "double") Then $clickCount = 2

;~ consolewrite("So you saw it selected but did not click" & @crlf)
;~ still you can click as you now know the Localensions where to click
            Local $t
            $t = StringSplit(_UIA_getPropertyValue($obj2ActOn, $UIA_BoundingRectanglePropertyId), ";")
;~          consolewrite(_UIA_getPropertyValue($obj, $UIA_BoundingRectanglePropertyId) & $t[1] & ";" & $t[2] & ";" & $t[3] & ";" & $t[4] & @crlf)
;~          _winapi_mouse_event($MOUSEEVENTF_ABSOLUTE + $MOUSEEVENTF_MOVE,$t[1],$t[2])
            $x = Int($t[1] + ($t[3] / 2))
            $y = Int($t[2] + $t[4] / 2)

;~ Split into 2 actions for screenrecording purposes intentionally a slowdown
;~ Arguable that this delay should be configurable or removed on synchronizing differently in future
;~          First try to set the focus to make sure right window is active

;~  _UIA_LOG("Title is: <" &  _UIA_getPropertyValue($UIA_oUIElement,$UIA_NamePropertyId) &  ">" & $clickcount & ":" & $clickaction & ":" & $x & ":" & $y & ":" & @CRLF, $UIA_Log_Wrapper)

;~ TODO: Check if setting focus should happen as it influences behavior before clicking
;~ Tricky when using setfocus on menuitems, seems to do the click already
;~          $obj.setfocus()

;~          Mouse should move to keep it as userlike as possible
            MouseMove($x, $y, 0)
;~          mouseclick($clickAction,Default,Default,$clickCount,0)
            if not stringinstr($strAction,"move") Then
                MouseClick($clickAction, $x, $y, $clickCount, 0)
            EndIf
            Sleep($UIA_DefaultWaitTime)

        Case "setvalue","settextvalue"

;~ TODO: Find out how to set title for a window with UIA commands
;~ winsettitle(hwnd(_UIA_getVar("RTI.calculator.HWND")),"","nicer")
;~ winsettitle("Naamloos - Kladblok","","This works better")

            If ($controlType = $UIA_WindowControlTypeId) Then
                $hwnd = 0
                $obj2ActOn.CurrentNativeWindowHandle($hwnd)
;~              ConsoleWrite($hwnd)
                WinSetTitle(HWnd($hwnd), "", $p1)
            Else
                $obj2ActOn.setfocus()
                Sleep($UIA_DefaultWaitTime)

;~              Let take IAccessible pattern precedence over value pattern
                $tPattern = _UIA_getPattern($obj2ActOn, $UIA_LegacyIAccessiblePatternId)
                if _UIA_IsElement($tPattern) Then
                    $tPattern.setvalue($p1)
                Else
                    $tPattern = _UIA_getPattern($obj2ActOn, $UIA_ValuePatternId)
                    if _UIA_IsElement($tPattern) Then
                        $tPattern.setvalue($p1)
                    EndIf
                EndIf


            EndIf

        Case "setvalue using keys"
            $obj2ActOn.setfocus()
            Send("^a")
            Send($p1)
            Sleep($UIA_DefaultWaitTime)
        case "getvalue"
            $obj2ActOn.setfocus()
            Send("^a")
            Send("^c")
            $retVal=clipget()

        Case "sendkeys", "enterstring", "type", "typetext"
            $obj2ActOn.setfocus()
            Send($p1)
        Case "invoke"
            $obj2ActOn.setfocus()
            Sleep($UIA_DefaultWaitTime)
            $tPattern = _UIA_getPattern($obj2ActOn, $UIA_InvokePatternId)
            $tPattern.invoke()
        Case "focus", "setfocus", "activate"
;~          _UIA_LOG("reaching setfocus" & @CRLF, $UIA_Log_Wrapper)
;~          _UIA_LOG("Title is: <" & _UIA_getPropertyValue($obj2ActOn, $UIA_NamePropertyId) & ">" & @TAB _
;~                   & "Class   := <" & _UIA_getPropertyValue($obj2ActOn, $UIA_ClassNamePropertyId) & ">" & @TAB _
;~                   & "controltype:= " _
;~                   & "<" & _UIA_getControlName(_UIA_getPropertyValue($obj2ActOn, $UIA_ControlTypePropertyId)) & ">" & @TAB _
;~                   & ",<" & _UIA_getPropertyValue($obj2ActOn, $UIA_ControlTypePropertyId) & ">" & @TAB _
;~                   & ", (" & Hex(_UIA_getPropertyValue($obj2ActOn, $UIA_ControlTypePropertyId)) & ")" & @TAB _
;~                   & ", acceleratorkey:= <" & _UIA_getPropertyValue($obj2ActOn, $UIA_AcceleratorKeyPropertyId) & ">" & @TAB _
;~                   & ", automationid:= <" & _UIA_getPropertyValue($obj2ActOn, $UIA_AutomationIdPropertyId) & ">" & @TAB & @CRLF)
            _UIA_setVar("RTI.SEARCHCONTEXT", $obj2Acton)
            $obj2ActOn.setfocus()
            Sleep($UIA_DefaultWaitTime)

        Case "close"
            $tPattern = _UIA_getPattern($obj2ActOn, $UIA_WindowPatternId)
            $tPattern.close()
        Case "move","setposition"
            $tPattern = _UIA_getPattern($obj2ActOn, $UIA_TransformPatternId)
            $tPattern.move($p1, $p2)
        Case "resize"
            $tPattern = _UIA_getPattern($obj2ActOn, $UIA_WindowPatternId)
            $tPattern.SetWindowVisualState($WindowVisualState_Normal)

            $tPattern = _UIA_getPattern($obj2ActOn, $UIA_TransformPatternId)
            $tPattern.resize($p1, $p2)
        Case "minimize"
            $tPattern = _UIA_getPattern($obj2ActOn, $UIA_WindowPatternId)
            $tPattern.SetWindowVisualState($WindowVisualState_Minimized)
        Case "maximize"
            $tPattern = _UIA_getPattern($obj2ActOn, $UIA_WindowPatternId)
            $tPattern.SetWindowVisualState($WindowVisualState_Maximized)
        Case "normal"
            $tPattern = _UIA_getPattern($obj2ActOn, $UIA_WindowPatternId)
            $tPattern.SetWindowVisualState($WindowVisualState_Normal)
        Case "close"
            $tPattern = _UIA_getPattern($obj2ActOn, $UIA_WindowPatternId)
            $tPattern.close()
        Case "exist", "exists"
;~          This code will never be reached but just to be complete and if it reaches this then its just true
            $retVal=true
        Case "searchcontext", "context"
            _UIA_setVar("RTI.SEARCHCONTEXT", $obj2ActOn)
        Case "highlight"
            _UIA_Highlight($obj2ActOn)
        Case "getobject", "object"
            Return $obj2ActOn
        Case "attach"
            Return $obj2ActOn
        case "capture","screenshot","takescreenshot"
            $tRect = StringSplit(_UIA_getPropertyValue($obj2ActOn, $UIA_BoundingRectanglePropertyId), ";")
;~          _UIA_DrawRect($t[1], $t[3] + $t[1], $t[2], $t[4] + $t[2])

            consolewrite($p1 & ";" & $tRect[1] & ";" & ($tRect[3] + $tRect[1]) & ";" &  $tRect[2]& ";" &  ($tRect[4] +  $tRect[2]))
            _ScreenCapture_Capture($p1, $tRect[1], $tRect[2], $tRect[3] + $tRect[1], $tRect[4] + $tRect[2])

;~      Case "getInnerHTML"
;~          window.location.hash = 'category-name'; // address bar would become http://example.com/#category-name
;~      case "getBodyText

        case "dump", "dumpthemall"
            _UIA_DumpThemAll($obj2ActOn,$treescope_subtree)
        Case Else
            EndSwitch


    Return $retVal
EndFunc   ;==>_UIA_action

;~ Just dumps all information under a certain object
Func _UIA_DumpThemAll($oElementStart, $treeScope)
;~  Get result with findall function alternative could be the treewalker
    Local $pCondition, $pTrueCondition, $oCondition, $oAutomationElementArray
    Local $pElements, $iLength, $i
    local $dumpStr
    local $tStr

    $dumpStr="<treedump>"
    $dumpStr=$dumpStr & "<treeheader>***** Dumping tree *****</treeheader>"
;~  _UIA_LOG("<treedump>"   & @CRLF)
;~  _UIA_LOG("***** Dumping tree *****" & @CRLF)

;~     $UIA_oUIAutomation.CreateTrueCondition($pTrueCondition)
;~     $oCondition=ObjCreateInterface($pTrueCondition, $sIID_IUIAutomationCondition,$dtagIUIAutomationCondition)

    $oElementStart.FindAll($treeScope, $UIA_oTRUECondition, $pElements)

    $oAutomationElementArray = ObjCreateInterface($pElements, $sIID_IUIAutomationElementArray, $dtagIUIAutomationElementArray)

;~  If there are no childs found then there is nothing to search
    If _UIA_IsElement($oAutomationElementArray) Then
;~ All elements to inspect are in this array
        $oAutomationElementArray.Length($iLength)
    Else
        $dumpStr=$dumpStr & "<fatal>***** FATAL:???? _UIA_DumpThemAll no childarray found ***** </fatal>"
;~      _UIA_LOG("***** FATAL:???? _UIA_DumpThemAll no childarray found *****" & @CRLF, $UIA_Log_Wrapper)
        $iLength = 0
    EndIf

    For $i = 0 To $iLength - 1; it's zero based
        $oAutomationElementArray.GetElement($i, $UIA_pUIElement)
        $UIA_oUIElement = ObjCreateInterface($UIA_pUIElement, $sIID_IUIAutomationElement, $dtagIUIAutomationElement)
        $tStr="Title is: <" & _UIA_getPropertyValue($UIA_oUIElement, $UIA_NamePropertyId) & ">" & @TAB _
                 & "Class   := <" & _UIA_getPropertyValue($UIA_oUIElement, $UIA_ClassNamePropertyId) & ">" & @TAB _
                 & "controltype:= " _
                 & "<" & _UIA_getControlName(_UIA_getPropertyValue($UIA_oUIElement, $UIA_ControlTypePropertyId)) & ">" & @TAB _
                 & ",<" & _UIA_getPropertyValue($UIA_oUIElement, $UIA_ControlTypePropertyId) & ">" & @TAB _
                 & ", (" & Hex(_UIA_getPropertyValue($UIA_oUIElement, $UIA_ControlTypePropertyId)) & ")" & @TAB _
                 & ", acceleratorkey:= <" & _UIA_getPropertyValue($UIA_oUIElement, $UIA_AcceleratorKeyPropertyId) & ">" & @TAB _
                 & ", automationid:= <" & _UIA_getPropertyValue($UIA_oUIElement, $UIA_AutomationIdPropertyId) & ">" & @TAB
        $tstr=_UIA_EncodeHTMLString($tStr)

        $dumpStr=$dumpStr & "<elementinfo>" & $tStr & "</elementinfo>"

;~      _UIA_LOG($tStr)

    Next
    $dumpStr=$dumpStr & "</treedump>"

    _UIA_LOG($dumpStr)


EndFunc   ;==>_UIA_DumpThemAll

Func _UIA_StartSUT($SUT_VAR)
    Local $fullName = _UIA_getVar($SUT_VAR & ".Fullname")
    Local $processName = _UIA_getVar($SUT_VAR & ".processname")
    Local $app2Start = $fullName & " " & _UIA_getVar($SUT_VAR & ".Parameters")
    Local $workingDir = _UIA_getVar($SUT_VAR & ".Workingdir")
    Local $windowState = _UIA_getVar($SUT_VAR & ".Windowstate")
    Local $result, $result2 ; Holds the process id's
    Local $oSUT

;~  _UIA_LOG("SUT 1 Starting : " & $fullName & @CRLF, $UIA_Log_Wrapper)
    If FileExists($fullName) Then
;~      _UIA_LOG("SUT 2 Starting : " & $fullName & @CRLF, $UIA_Log_Wrapper)
;~      Only start new instance when not found
        $result2 = ProcessExists($processName)
        If $result2 = 0 Then
            _UIA_LOG("Starting : " & $app2Start & " from " & $workingDir, $UIA_Log_Wrapper)
            $result = Run($app2Start, $workingDir, $windowState)
            $result2 = ProcessWait($processName, 60)
;~          sleep(500) ;~ Just to give the system some time to show everything
        EndIf

;~ Wait for the window to be there
        $oSUT = _UIA_getObjectByFindAll($UIA_oDesktop, "processid:=" & $result2, $TreeScope_Children)
        If Not _UIA_IsElement($oSUT) Then
            _UIA_LOG("No window found in SUT : " & $app2Start & " from " & $workingDir & @CRLF, $UIA_Log_Wrapper)
        Else
;~ Add it to the Runtime Type Information
            _UIA_setVar($cRTI_Prefix & $SUT_VAR & ".PID", $result2)
            _UIA_setVar($cRTI_Prefix & $SUT_VAR & ".HWND", Hex(_UIA_getPropertyValue($oSUT, $UIA_NativeWindowHandlePropertyId)))
;~          _UIA_DumpThemAll($oSUT,$treescope_subtree)
        EndIf
    Else
        _UIA_LOG("No clue where to find the system under test (SUT) on your system, please start manually:" & @CRLF, $UIA_Log_Wrapper)
        _UIA_LOG($app2Start & @CRLF, $UIA_Log_Wrapper)
    EndIf
EndFunc   ;==>_UIA_StartSUT

Func _UIA_Highlight($oElement)
    Local $t
    $t = StringSplit(_UIA_getPropertyValue($oElement, $UIA_BoundingRectanglePropertyId), ";")
    _UIA_DrawRect($t[1], $t[3] + $t[1], $t[2], $t[4] + $t[2])
EndFunc   ;==>_UIA_Highlight

Func _UIA_NiceString($str)
    Local $tStr = $str
    $tStr = StringReplace($tStr, " ", "")
    $tStr = StringReplace($tStr, "\", "")
    Return $tStr
EndFunc   ;==>_UIA_NiceString

func _UIA_EncodeHTMLString($str)
    Local $tStr = $str
    $tStr = StringReplace($tStr, "&", "&amp;")
    $tStr = StringReplace($tStr, ">", "&gt;")
    $tStr = StringReplace($tStr, "<", "&lt;")
    $tStr = StringReplace($tStr, """", "&quot;")
    $tStr = StringReplace($tStr, "'", "&apos;")
;~  $tStr = StringReplace($tStr, @CRLF, "&#10;&#13;")
;~  $tStr = StringReplace($tStr, @CRLF, "<![CDATA["& @CRLF & "]]>")
;~  $tStr = StringReplace($tStr, @CRLF, "<br>")

    Return $tStr

EndFunc

func _UIA_LogFile($strName="log.xml", $reset=false)
    if $reset=true Then
        $__g_hFileLog=fileopen($strName, $FO_OVERWRITE + $FO_UTF8)

        filewrite($__g_hFileLog,"<?xml version=""1.0"" encoding=""UTF-8""?>")
        filewrite($__g_hFileLog,"<log space=""preserve"">")

;~      filewrite($__g_hFileLog,"<!DOCTYPE html><html><body>")
;~      filewrite($__g_hFileLog,"<h1>UIA logging</h1>")
    Else
        $__g_hFileLog=fileopen($strName,$FO_APPEND + $FO_UTF8)
    EndIf
EndFunc
func _UIA_LogFileClose()
;~  filewrite($__g_hFileLog,"</body></html>")
    filewrite($__g_hFileLog,"</log>" & @CRLF)
    fileclose($__g_hFileLog)
EndFunc

Func _UIA_LOG($s, $logLevel = 0)
    Local $logstr
    local $bFlushCache=false

;~ Check if we are caching data from multiple logging steps
    if $s=$__UIA_debugCacheOn Then
        $s=""
        $__l_UIA_CacheState=True
        $bFlushCache=true
    endif

    if $s=$__UIA_debugCacheOff Then
        $__l_UIA_CacheState=False
        $s=$__gl_XMLCache
    EndIf

;~  Assume if it starts with a tag that calling function has taken care of html encoding
    if stringleft($s,1)<>"<" Then
        $s=_UIA_EncodeHTMLString($s)
    EndIf

;~ Check if we are caching data from multiple logging steps
    if $__l_UIA_CacheState=True and $bFlushCache=false Then
        $__gl_XMLCache=$__gl_XMLCache & $s
    EndIf

    if ($__l_UIA_CacheState=false) or ($bFlushCache=true) Then

;~ Strip excessive CRLF
        if stringright($s,2)=@CRLF Then
            $s=stringleft($s,stringlen($s)-2)
        EndIf

        $logstr= "<logline level=""" & $logLevel  & """"
        $logstr = $logstr & " timestamp=""" & @YEAR & @MON & @MDAY & "-" & @HOUR & @MIN & @SEC & @MSEC &  """>"
        $logstr = $logstr & " " & $s & "</logline>" & @CRLF

        If _UIA_getVar("global.debug.file") = True Then
            FileWrite($__g_hFileLog, $logStr)
        Else
            If _UIA_getVar("global.debug") = True Then
                ConsoleWrite($logstr)
            EndIf
        EndIf

        $__gl_XMLCache=""
    EndIf

    return $_UIASTATUS_Success
EndFunc   ;==>_UIA_Debug

func _UIA_getBasePropertyInfo($oUIElement)
    local $title=_UIA_getPropertyValue($oUIElement,$UIA_NamePropertyId)
    local $class=_UIA_getPropertyValue($oUIElement,$uia_classnamepropertyid)
    local $controltypeName=_UIA_getControlName(_UIA_getPropertyValue($oUIElement,$UIA_ControlTypePropertyId))
    local $controltypeId=_UIA_getPropertyValue($oUIElement,$UIA_ControlTypePropertyId)
    local $nativeWindow=_UIA_getPropertyValue($oUIElement, $UIA_NativeWindowHandlePropertyId)
    local $controlRect=_UIA_getPropertyValue($oUIElement, $UIA_BoundingRectanglePropertyId)


    return "Title is: <" &  $title &  ">" & @TAB _
            & "Class   := <" & $class &  ">" & @TAB _
            & "controltype:= "  & "<" &  $controltypeName &  ">" & @TAB  _
            & ",<" &  $controltypeId &  ">" & @TAB _
            & ", (" &  hex($controltypeId )&  ")" & @TAB _
            & "rect := < " & $controlRect  & ">" & @TAB _
            & "hwnd := < " & $nativeWindow & ">" & @CRLF
EndFunc


#EndRegion UIA Testing Framework

#Region UIA Internal USE

; Draw rectangle on screen.
Func _UIA_DrawRect($tLeft, $tRight, $tTop, $tBottom, $color = 0xFF, $PenWidth = 4)
    Local $hDC, $hPen, $obj_orig, $x1, $x2, $y1, $y2
    $x1 = $tLeft
    $x2 = $tRight
    $y1 = $tTop
    $y2 = $tBottom
    $hDC = _WinAPI_GetWindowDC(0) ; DC of entire screen (desktop)
    $hPen = _WinAPI_CreatePen($PS_SOLID, $PenWidth, $color)
    $obj_orig = _WinAPI_SelectObject($hDC, $hPen)

    _WinAPI_DrawLine($hDC, $x1, $y1, $x2, $y1) ; horizontal to right
    _WinAPI_DrawLine($hDC, $x2, $y1, $x2, $y2) ; vertical down on right
    _WinAPI_DrawLine($hDC, $x2, $y2, $x1, $y2) ; horizontal to left right
    _WinAPI_DrawLine($hDC, $x1, $y2, $x1, $y1) ; vertical up on left

    ; clear resources
    _WinAPI_SelectObject($hDC, $obj_orig)
    _WinAPI_DeleteObject($hPen)
    _WinAPI_ReleaseDC(0, $hDC)
EndFunc   ;==>_UIA_DrawRect

;~ Small helper function to get an object out of a treeSearch based on the name / title
;~ Not possible to match on multiple properties then findall should be used
;~ Deprecate in future??? Most sophisticated stuff is in _UIA_getObjectByFindAll
Func _UIA_getFirstObjectOfElement($obj, $str, $treeScope)
    Local $tResult, $tval, $iTry, $t
    Local $pCondition, $oCondition
    Local $propertyID
    Local $i

;~  Split a description into multiple subdescription/properties
    $tResult = StringSplit($str, ":=", 1)

;~ If there is only 1 value without a property assume the default property name to use for identification
    If $tResult[0] = 1 Then
        $propertyID = $UIA_NamePropertyId
        $tval = $str
    Else
        For $i = 0 To UBound($UIA_propertiesSupportedArray) - 1
            If $UIA_propertiesSupportedArray[$i][0] = StringLower($tResult[1]) Then
                _UIA_LOG("matched: " & $UIA_propertiesSupportedArray[$i][0] & $UIA_propertiesSupportedArray[$i][1] & @CRLF, $UIA_Log_Wrapper)
                $propertyID = $UIA_propertiesSupportedArray[$i][1]

;~              Some properties expect a number (otherwise system will break)
                Switch $UIA_propertiesSupportedArray[$i][1]
                    Case $UIA_ControlTypePropertyId
                        $tval = Number($tResult[2])
                    Case Else
                        $tval = $tResult[2]
                EndSwitch
            EndIf
        Next
    EndIf

    _UIA_LOG("Matching: " & $propertyID & " for " & $tval & @CRLF, $UIA_Log_Wrapper)

;~ Tricky when numeric values to pass
    $UIA_oUIAutomation.createPropertyCondition($propertyID, $tval, $pCondition)

    $oCondition = ObjCreateInterface($pCondition, $sIID_IUIAutomationPropertyCondition, $dtagIUIAutomationPropertyCondition)

    $iTry = 1
    $UIA_oUIElement = ""
    While Not _UIA_IsElement($UIA_oUIElement) And $iTry <= $UIA_tryMax
        $t = $obj.Findfirst($treeScope, $oCondition, $UIA_pUIElement)
        $UIA_oUIElement = ObjCreateInterface($UIA_pUIElement, $sIID_IUIAutomationElement, $dtagIUIAutomationElement)
        If Not _UIA_IsElement($UIA_oUIElement) Then
            Sleep(100)
            $iTry = $iTry + 1
        EndIf
    WEnd

    If _UIA_IsElement($UIA_oUIElement) Then
;~      _UIA_LOG("UIA found the element" & @CRLF, $UIA_Log_Wrapper)
        If _UIA_getVar("Global.Highlight") = True Then
            _UIA_Highlight($UIA_oUIElement)
        EndIf

        Return $UIA_oUIElement
    Else
;~      _UIA_LOG("UIA failing ** NOT ** found the element" & @CRLF, $UIA_Log_Wrapper)
        If _UIA_getVar("Global.Debug") = True Then
            _UIA_DumpThemAll($obj, $treeScope)
        EndIf

        Return ""
    EndIf

EndFunc   ;==>_UIA_getFirstObjectOfElement

Func _UIA_IsElement($control)
    Return IsObj($control)
EndFunc   ;==>_UIA_IsElement

#EndRegion UIA Internal USE


;~ ***** Experimental catching the events that are flowing around *****
;~ ;===============================================================================
;~ #interface "IUnknown"
;~ Global Const $sIID_IUnknown = "{00000000-0000-0000-C000-000000000046}"
;~ ; Definition
;~ Global $dtagIUnknown = "QueryInterface hresult(ptr;ptr*);" & _
;~      "AddRef dword();" & _
;~      "Release dword();"
;~ ; List
;~ Global $ltagIUnknown = "QueryInterface;" & _
;~      "AddRef;" & _
;~      "Release;"
;~ ;===============================================================================
;~ ;===============================================================================
;~ #interface "IDispatch"
;~ Global Const $sIID_IDispatch = "{00020400-0000-0000-C000-000000000046}"
;~ ; Definition
;~ Global $dtagIDispatch = $dtagIUnknown & _
;~      "GetTypeInfoCount hresult(dword*);" & _
;~      "GetTypeInfo hresult(dword;dword;ptr*);" & _
;~      "GetIDsOfNames hresult(ptr;ptr;dword;dword;ptr);" & _
;~      "Invoke hresult(dword;ptr;dword;word;ptr;ptr;ptr;ptr);"
;~ ; List
;~ Global $ltagIDispatch = $ltagIUnknown & _
;~      "GetTypeInfoCount;" & _
;~      "GetTypeInfo;" & _
;~      "GetIDsOfNames;" & _
;~      "Invoke;"
;~ ;===============================================================================
;~ ; #FUNCTION# ====================================================================================================================
;~ ; Name...........: UIA_ObjectFromTag($obj, $id)
;~ ; Description ...: Get an object from a DTAG
;~ ; Syntax.........:
;~ ; Parameters ....:
;~ ;
;~ ; Return values .: Success      - Returns 1
;~ ;                  Failure       - Returns 0 and sets @error on errors:
;~ ;                  |@error=1     - UI automation failed
;~ ;                  |@error=2     - UI automation desktop failed
;~ ; Author ........: TRANCEXX
;~ ; Modified.......:
;~ ; Remarks .......: None
;~ ; Related .......:
;~ ; Link ..........:
;~ ; Example .......: Yes
;~ ; ===============================================================================================================================
;~ http://www.autoitscript.com/forum/topic/153859-objevent-possible-with-addfocuschangedeventhandler/
;~ Func UIA_ObjectFromTag($sFunctionPrefix, $tagInterface, ByRef $tInterface)
;~     Local Const $tagIUnknown = "QueryInterface hresult(ptr;ptr*);" & _
;~             "AddRef dword();" & _
;~             "Release dword();"
;~     ; Adding IUnknown methods
;~     $tagInterface = $tagIUnknown & $tagInterface
;~     Local Const $PTR_SIZE = DllStructGetSize(DllStructCreate("ptr"))
;~     ; Below line really simple even though it looks super complex. It's just written weird to fit one line, not to steal your eyes
;~     Local $aMethods = StringSplit(StringReplace(StringReplace(StringReplace(StringReplace(StringTrimRight(StringReplace(StringRegExpReplace($tagInterface, "\h*(\w+)\h*(\w+\*?)\h*(\((.*?)\))\h*(;|;*\z)", "$1\|$2;$4" & @LF), ";" & @LF, @LF), 1), "object", "idispatch"), "variant*", "ptr"), "hresult", "long"), "bstr", "ptr"), @LF, 3)
;~     Local $iUbound = UBound($aMethods)
;~     Local $sMethod, $aSplit, $sNamePart, $aTagPart, $sTagPart, $sRet, $sParams
;~     ; Allocation. Read http://msdn.microsoft.com/en-us/library/ms810466.aspx to see why like this (object + methods):
;~     $tInterface = DllStructCreate("ptr[" & $iUbound + 1 & "]")
;~     If @error Then Return SetError(1, 0, 0)
;~     For $i = 0 To $iUbound - 1
;~         $aSplit = StringSplit($aMethods[$i], "|", 2)
;~         If UBound($aSplit) <> 2 Then ReDim $aSplit[2]
;~         $sNamePart = $aSplit[0]
;~         $sTagPart = $aSplit[1]
;~         $sMethod = $sFunctionPrefix & $sNamePart
;~         $aTagPart = StringSplit($sTagPart, ";", 2)
;~         $sRet = $aTagPart[0]
;~         $sParams = StringReplace($sTagPart, $sRet, "", 1)
;~         $sParams = "ptr" & $sParams
;~         DllStructSetData($tInterface, 1, DllCallbackGetPtr(DllCallbackRegister($sMethod, $sRet, $sParams)), $i + 2) ; Freeing is left to AutoIt.
;~     Next
;~     DllStructSetData($tInterface, 1, DllStructGetPtr($tInterface) + $PTR_SIZE) ; Interface method pointers are actually pointer size away
;~     Return ObjCreateInterface(DllStructGetPtr($tInterface), "", $tagInterface, False) ; and first pointer is object pointer that's wrapped
;~ EndFunc

;~ TODO: javascript: var e = document.createElement("input");e.setAttribute("value","Hello world");document.body.appendChild(e);void(0);
;~ xjavascript:(function(){document.body.appendChild(document.createElement('script')).src='file://test.js';})(); "path/to/your/jsfile"
;~ javascript:(function(){document.body.appendChild(document.createElement('script')).src='file://c:\test.js';})();
;~  javascript: var e = document.createElement("input");e.setAttribute("value",document.body.innerHTML);document.body.appendChild(e);e.setFocus();void(0);
;~ window.location.hash = 'category-name'; // address bar would become http://example.com/#category-name


;~ TODO take over from IE.AU3 UDF as an example
; #FUNCTION# ====================================================================================================================
; Name...........: _UIA_Introduction
; Description ...: Shows cross browser on how to show html page
; Syntax.........: _UIA_Introduction("basic")
; Parameters ....: none
; Return values .: Success      - Returns 1
;                  Failure      - Returns 0 and sets @error on errors:
;                  |@error=1     - UI automation failed
;                  |@error=2     - UI automation desktop failed
; Author ........:
; Modified.......:
; Remarks .......: based on IE.AU3 logic
; Related .......:
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================; ===============================================================================================================================
Func _UIA_Introduction($sModule = "basic")
    Local $sHtml = ""
    Switch $sModule
        Case "basic"
            $sHtml &= '<!DOCTYPE html>' & @CR
            $sHtml &= '<html>' & @CR
            $sHtml &= '<head>' & @CR
            $sHtml &= '<meta content="text/html; charset=UTF-8" http-equiv="content-type">' & @CR
            $sHtml &= '<title>_UIA_Introduction ("basic")</title>' & @CR
            $sHtml &= '<style>body {font-family: Arial}' & @CR
            $sHtml &= 'td {padding:6px}</style>' & @CR
            $sHtml &= '</head>' & @CR
            $sHtml &= '<body>' & @CR
            $sHtml &= '<table border=1 id="table1" style="width:600px;border-spacing:6px;">' & @CR
            $sHtml &= '<tr>' & @CR
            $sHtml &= '<td>' & @CR
            $sHtml &= '<h1>Welcome to UIWrappers.au3</h1>' & @CR
            $sHtml &= 'UIAWrappers.au3 is a UDF (User Defined Function) library for the ' & @CR
            $sHtml &= '<a href="http://www.autoitscript.com">AutoIt</a> scripting language.' & @CR
            $sHtml &= '<br>  ' & @CR
            $sHtml &= 'It allows you to either create or attach to an browser and do ' & @CR
            $sHtml &= 'just about anything you could do with it interactively with the mouse and ' & @CR
            $sHtml &= 'keyboard, but do it through script.' & @CR
            $sHtml &= '<br>' & @CR
            $sHtml &= 'You can navigate to pages, click links, fill and submit forms etc. You can ' & @CR
            $sHtml &= 'also do things you cannot do interactively like change or rewrite page ' & @CR
            $sHtml &= 'content and JavaScripts, read, parse and save page content. ' & @CR
            $sHtml &= 'Browser "events are a little harder to catch although it can be done with favlets and javascript".<br>' & @CR
            $sHtml &= 'The module uses the IUIAutomation interface in AutoIt to interact with the elements and browsers ' & @CR
            $sHtml &= 'and partly allows access to the DOM (Document Object Model) supported by the browser.' & @CR
            $sHtml &= '<br>' & @CR
            $sHtml &= 'Here are some links for more information and helpful tools:<br>' & @CR
            $sHtml &= 'Reference Material: ' & @CR
            $sHtml &= '<ul>' & @CR
            $sHtml &= '<li><a href="http://msdn1.microsoft.com/">MSDN (Microsoft Developer Network)</a></li>' & @CR
            $sHtml &= '<li><a href="http://msdn2.microsoft.com/en-us/library/aa752084.aspx" target="_blank">InternetExplorer Object</a></li>' & @CR
            $sHtml &= '<li><a href="http://msdn2.microsoft.com/en-us/library/ms531073.aspx" target="_blank">Document Object</a></li>' & @CR
            $sHtml &= '<li><a href="http://msdn2.microsoft.com/en-us/ie/aa740473.aspx" target="_blank">Overviews and Tutorials</a></li>' & @CR
            $sHtml &= '<li><a href="http://msdn2.microsoft.com/en-us/library/ms533029.aspx" target="_blank">DHTML Objects</a></li>' & @CR
            $sHtml &= '<li><a href="http://msdn2.microsoft.com/en-us/library/ms533051.aspx" target="_blank">DHTML Events</a></li>' & @CR
            $sHtml &= '</ul><br>' & @CR
            $sHtml &= 'Helpful Tools: ' & @CR
            $sHtml &= '<ul>' & @CR
            $sHtml &= '<li><a href="http://www.autoitscript.com/forum/index.php?showtopic=19368" target="_blank">AutoIt IE Builder</a> (build IE scripts interactively)</li>' & @CR
            $sHtml &= '<li><a href="http://www.debugbar.com/" target="_blank">DebugBar</a> (DOM inspector, HTTP inspector, HTML validator and more - free for personal use) Recommended</li>' & @CR
            $sHtml &= '<li><a href="http://www.microsoft.com/downloads/details.aspx?FamilyID=e59c3964-672d-4511-bb3e-2d5e1db91038&amp;displaylang=en" target="_blank">IE Developer Toolbar</a> (comprehensive DOM analysis tool)</li>' & @CR
            $sHtml &= '<li><a href="http://slayeroffice.com/tools/modi/v2.0/modi_help.html" target="_blank">MODIV2</a> (view the DOM of a web page by mousing around)</li>' & @CR
            $sHtml &= '<li><a href="http://validator.w3.org/" target="_blank">HTML Validator</a> (verify HTML follows format rules)</li>' & @CR
            $sHtml &= '<li><a href="http://www.fiddlertool.com/fiddler/" target="_blank">Fiddler</a> (examine HTTP traffic)</li>' & @CR
            $sHtml &= '</ul>' & @CR
            $sHtml &= '</td>' & @CR
            $sHtml &= '</tr>' & @CR
            $sHtml &= '</table>' & @CR
            $sHtml &= '</body>' & @CR
            $sHtml &= '</html>'
        Case Else
            _UIA_LOG("Error UIA_Introduction UIASTATUS_InvalidValue")
            Return SetError($_UIASTATUS_InvalidValue, 1, 0)
    EndSwitch
;~  Local $oObject = _IECreate()
;~  _UIADocWriteHTML($oObject, $sHtml)
    Return SetError($_UIASTATUS_Success, 0, 0)
EndFunc   ;==>_IE_Introduction

func _UIADocWriteHTML($obj_or_string, $sHTML)
    $oElement=_UIA_getObject($obj_or_string)
;~  IE
    $addressBarStr="controltype:=UIA_PaneControlTypeId;class:=Address Band Root;indexrelative:=1"

;~  Find the addressbar

;~  $oAddressBar=

EndFunc

Func _UIA_VersionInfo()
    _UIA_LOG("<information> Information" & "_UIA_VersionInfo" & "version " & _
            $__gaUIAAU3VersionInfo[0] & _
            $__gaUIAAU3VersionInfo[1] & "." & _
            $__gaUIAAU3VersionInfo[2] & "-" & _
            $__gaUIAAU3VersionInfo[3] & "Release date: " & $__gaUIAAU3VersionInfo[4] & "</information>" & @CRLF,$uia_log_wrapper)
    Return SetError($_UIASTATUS_Success, 0, $__gaUIAAU3VersionInfo)
EndFunc   ;==>_IE_VersionInfo

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

I do not get it...I am running the example for calculator - same one that comes from this >LINK, so there should be nothing that I need to provide? I am running the example, but the only thing that happens is that the two windows open, calc.exe and notepad.exe. After I get the error in the OP, the script closes - being that the the error is about a variable must be type "Object" I believe that is the issue. Unless I am wrong, as the error is coming from the file UIAWrappers.au3. Am I missing something?

The only files that are in the folder are XML files not log.txt file:

This is what it contains:

<?xml version="1.0" encoding="UTF-8"?>

-<log space="preserve">


-<logline timestamp="20150122-150549999" level="5">

<information> Information_UIA_VersionInfoversion T0.5-0Release date: 20140912</information>

</logline>

<logline timestamp="20150122-150550029" level="5"> matched: class30012</logline>

<logline timestamp="20150122-150550029" level="5"> Matching: 30012 for CalcFrame</logline>

</log>

Let me know if I need to change the example, in order to get more information.


All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

you have to try with simplespy to see what it gives back for all of your controls on calculator and notepad. this can be very different per operating system and language

99.99% sure you have incorrect propertyvalues identifying your control

it also can be you have many other applications open and it gets duplicates/confusion on other edit controls (for example notepad++)

I believe latest version has some protection mechanism not to break but although it then continues it just gives a gracefull shutdown

Put some debugging lines in your code so you know where it breaks (and if it breaks on $oCalc put that line after $oNotepad to see if it finds at least notepad)

$oCalc=_UIA_getFirstObjectOfElement($UIA_oDesktop,"class:=" & $cCalcClassname, $treescope_children) 
consolewrite("Calc passed")
$oNotepad=_UIA_getFirstObjectOfElement($UIA_oDesktop,"class:="& $cNotepadClassName, $treescope_children
consolewrite("Notepad passed")

Share this post


Link to post
Share on other sites

I added the lines as suggested, and neither passed. I put some lines in the UIAWrapper.au3, to get the $propertyID = 30012 and the $tval = CalcFrame ?

Here is the output of simplespy on the calc.exe on the button that is labled # '1'

Mouse position is retrieved 1206-734
At least we have an element [1][Button]

Having the following values for all properties: 
Title is: <1>   Class   := <Button> controltype:= <UIA_ButtonControlTypeId> ,<50000>    , (0000C350)    1185;719;34;27
*** Parent Information top down ***
3: Title is: <Desktop>  Class   := <#32769> controltype:= <UIA_PaneControlTypeId>   ,<50033>    , (0000C371)    0;0;1680;1050
"Title:=Desktop;controltype:=UIA_PaneControlTypeId;class:=#32769"   
2: Title is: <Calculator>   Class   := <CalcFrame>  controltype:= <UIA_WindowControlTypeId> ,<50032>    , (0000C370)    1166;476;228;322
"Title:=Calculator;controltype:=UIA_WindowControlTypeId;class:=CalcFrame"   
1: Title is: <> Class   := <CalcFrame>  controltype:= <UIA_PaneControlTypeId>   ,<50033>    , (0000C371)    1174;526;212;264
"Title:=;controltype:=UIA_PaneControlTypeId;class:=CalcFrame"   
0: Title is: <> Class   := <#32770> controltype:= <UIA_PaneControlTypeId>   ,<50033>    , (0000C371)    1185;591;190;191
"Title:=;controltype:=UIA_PaneControlTypeId;class:=#32770"  


;~ *** Standard code ***
#include "UIAWrappers.au3"
AutoItSetOption("MustDeclareVars", 1)

Local $oP2=_UIA_getObjectByFindAll($UIA_oDesktop, "Title:=Calculator;controltype:=UIA_WindowControlTypeId;class:=CalcFrame", $treescope_children)   
_UIA_Action($oP2,"setfocus")
Local $oP1=_UIA_getObjectByFindAll($oP2, "Title:=;controltype:=UIA_PaneControlTypeId;class:=CalcFrame", $treescope_children)    
_UIA_Action($oP1,"setfocus")
Local $oP0=_UIA_getObjectByFindAll($oP1, "Title:=;controltype:=UIA_PaneControlTypeId;class:=#32770", $treescope_children)   
_UIA_Action($oP0,"setfocus")
_UIA_setVar("1.mainwindow","title:=1;classname:=Button")
_UIA_action("1.mainwindow","setfocus")


*** Detailed properties of the highlighted element ***
UIA_title:= <1>
UIA_text:= <1>
UIA_regexptitle:= <1>
UIA_class:= <Button>
UIA_regexpclass:= <Button>
UIA_iaccessiblechildId:= <0>
UIA_id:= <131>
UIA_handle:= <1705756>
UIA_RuntimeId:= <42;1705756>
UIA_BoundingRectangle:= <1185;719;34;27>
UIA_ProcessId:= <2100>
UIA_ControlType:= <50000>
UIA_LocalizedControlType:= <button>
UIA_Name:= <1>
UIA_HasKeyboardFocus:= <False>
UIA_IsKeyboardFocusable:= <True>
UIA_IsEnabled:= <True>
UIA_AutomationId:= <131>
UIA_ClassName:= <Button>
UIA_Culture:= <0>
UIA_IsControlElement:= <True>
UIA_IsContentElement:= <True>
UIA_IsPassword:= <False>
UIA_NativeWindowHandle:= <1705756>
UIA_IsOffscreen:= <False>
UIA_Orientation:= <0>
UIA_FrameworkId:= <Win32>
UIA_IsRequiredForForm:= <False>
UIA_IsDockPatternAvailable:= <False>
UIA_IsExpandCollapsePatternAvailable:= <False>
UIA_IsGridItemPatternAvailable:= <False>
UIA_IsGridPatternAvailable:= <False>
UIA_IsInvokePatternAvailable:= <True>
UIA_IsMultipleViewPatternAvailable:= <False>
UIA_IsRangeValuePatternAvailable:= <False>
UIA_IsScrollPatternAvailable:= <False>
UIA_IsScrollItemPatternAvailable:= <False>
UIA_IsSelectionItemPatternAvailable:= <False>
UIA_IsSelectionPatternAvailable:= <False>
UIA_IsTablePatternAvailable:= <False>
UIA_IsTableItemPatternAvailable:= <False>
UIA_IsTextPatternAvailable:= <False>
UIA_IsTogglePatternAvailable:= <False>
UIA_IsTransformPatternAvailable:= <False>
UIA_IsValuePatternAvailable:= <False>
UIA_IsWindowPatternAvailable:= <False>
UIA_ValueIsReadOnly:= <True>
UIA_RangeValueValue:= <0>
UIA_RangeValueIsReadOnly:= <True>
UIA_RangeValueMinimum:= <0>
UIA_RangeValueMaximum:= <0>
UIA_RangeValueLargeChange:= <0>
UIA_RangeValueSmallChange:= <0>
UIA_ScrollHorizontalScrollPercent:= <0>
UIA_ScrollHorizontalViewSize:= <100>
UIA_ScrollVerticalScrollPercent:= <0>
UIA_ScrollVerticalViewSize:= <100>
UIA_ScrollHorizontallyScrollable:= <False>
UIA_ScrollVerticallyScrollable:= <False>
UIA_SelectionCanSelectMultiple:= <False>
UIA_SelectionIsSelectionRequired:= <False>
UIA_GridRowCount:= <0>
UIA_GridColumnCount:= <0>
UIA_GridItemRow:= <0>
UIA_GridItemColumn:= <0>
UIA_GridItemRowSpan:= <1>
UIA_GridItemColumnSpan:= <1>
UIA_DockDockPosition:= <5>
UIA_ExpandCollapseExpandCollapseState:= <3>
UIA_MultipleViewCurrentView:= <0>
UIA_WindowCanMaximize:= <False>
UIA_WindowCanMinimize:= <False>
UIA_WindowWindowVisualState:= <0>
UIA_WindowWindowInteractionState:= <0>
UIA_WindowIsModal:= <False>
UIA_WindowIsTopmost:= <False>
UIA_SelectionItemIsSelected:= <False>
UIA_TableRowOrColumnMajor:= <2>
UIA_ToggleToggleState:= <2>
UIA_TransformCanMove:= <False>
UIA_TransformCanResize:= <False>
UIA_TransformCanRotate:= <False>
UIA_IsLegacyIAccessiblePatternAvailable:= <True>
UIA_LegacyIAccessibleChildId:= <0>
UIA_LegacyIAccessibleName:= <1>
UIA_LegacyIAccessibleRole:= <43>
UIA_LegacyIAccessibleState:= <1048704>
UIA_LegacyIAccessibleDefaultAction:= <Press>
UIA_IsDataValidForForm:= <False>
UIA_ProviderDescription:= <[pid:3812,hwnd:0x1A071C Main:Nested [pid:2100,hwnd:0x1A071C Annotation(parent link):Microsoft: Annotation Proxy (unmanaged:uiautomationcore.dll); Main:Microsoft: MSAA Proxy (unmanaged:uiautomationcore.dll)]; Hwnd(parent link):Microsoft: HWND Proxy (unmanaged:uiautomationcore.dll)]>
UIA_IsItemContainerPatternAvailable:= <False>
UIA_IsVirtualizedItemPatternAvailable:= <False>
UIA_IsSynchronizedInputPatternAvailable:= <False>

Let me know, if I should try something else?


All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

which OS version are you on?

try to add this in the beginning to see if you have a starting object

if isobj($UIA_oDesktop) then
consolewrite("Desktop is there")
endif

on my (dutch) system it works perfectly so hard to say

my spy gives this so seems equal to your system except for the language Bureaublad instead of Desktop

Having the following values for all properties: 
Title is: <3>   Class   := <Button> controltype:= <UIA_ButtonControlTypeId> ,<50000>    , (0000C350)    1789;253;34;27
*** Parent Information top down ***
3: Title is: <Bureaublad>   Class   := <#32769> controltype:= <UIA_PaneControlTypeId>   ,<50033>    , (0000C371)    0;0;1920;1080
Title:=Bureaublad;controltype:=UIA_PaneControlTypeId;class:=#32769  
2: Title is: <Rekenmachine> Class   := <CalcFrame>  controltype:= <UIA_WindowControlTypeId> ,<50032>    , (0000C370)    1497;10;423;322
Title:=Rekenmachine;controltype:=UIA_WindowControlTypeId;class:=CalcFrame   
1: Title is: <> Class   := <CalcFrame>  controltype:= <UIA_PaneControlTypeId>   ,<50033>    , (0000C371)    1505;60;407;264
Title:=;controltype:=UIA_PaneControlTypeId;class:=CalcFrame 
0: Title is: <> Class   := <#32770> controltype:= <UIA_PaneControlTypeId>   ,<50033>    , (0000C371)    1516;125;385;191
Title:=;controltype:=UIA_PaneControlTypeId;class:=#32770

but based on the error you get its already failing in the init function. You could try to uncomment the msgbox

Func _UIA_Init()
    Local $UIA_pTRUECondition

;~ The main object with acces to the windows automation api 3.0
    $UIA_oUIAutomation = ObjCreateInterface($sCLSID_CUIAutomation, $sIID_IUIAutomation, $dtagIUIAutomation)
    If _UIA_IsElement($UIA_oUIAutomation) = 0 Then
;~      msgbox(1,"UI automation failed", "UI Automation failed",10)
        Return SetError($_UIASTATUS_NoUIAutomationFound, 0, 0)
    EndIf

if it indeed fails there check your os and windows if uiautomationcore.dll is in your windows systemfolders

if your are on windows xp you have to install .net 3.0 manually

 

Using the Microsoft UI Automation technology on Windows XP, Windows Vista, Windows Server 2003 or Windows Server 2008 requires that Windows Automation API 3.0 be installed. It can be installed from Windows Update or downloaded from Microsoft’s web site:

Go.gifhttp://support.microsoft.com/kb/971513

Windows Automation API 3.0 is included in Windows 7, Windows 8, Windows Server 2008 R2 and Windows Server 2012 by default, so, you do not need to install it manually in these operating systems.

Share this post


Link to post
Share on other sites

Not on XP, but Windows 7 pro 64bit.

So I would like to ask, what you did to my system? lol

Before entering the test for isobj($UIA_oDesktop), it did not work. After running that command, it appears to work. And I am not sure why, so I took out the command and all commands that I had entered for testing and it still works. So for the life of me, I do not know what changed or what was broken.

Thanks for your help, and I am sure that I will be back -- also, even though it did run, I am still not getting a log.txt file?


All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

@junkew

OK, but I am still not getting the log.txt file...and the only things I had changed are the Dutch to English translation, and the debugging code that you had offered. Should a log.txt file be created no matter what?


All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

#17 ·  Posted (edited)

;~  Some settings to use as a default
    _UIA_setVar("Global.Debug", True)
    _UIA_setVar("Global.Debug.File", True)
    _UIA_setVar("Global.Highlight", True) 

you can configure things in uia.cfg and that includes settings for logging but in code you can set it like above (thats the default)

Edited by junkew

Share this post


Link to post
Share on other sites

So I should be seeing log files, as I have not chaned any defaults. Can you verify?


All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Share this post


Link to post
Share on other sites

the xml files are the logfiles that are created during running of the script

Take your simple spy output sample code and try to run maybe slightly modify to this

;~ *** Standard code ***
#include "UIAWrappers.au3"
AutoItSetOption("MustDeclareVars", 1)

Local $oP2=_UIA_getObjectByFindAll($UIA_oDesktop, "Title:=Calculator;controltype:=UIA_WindowControlTypeId;class:=CalcFrame", $treescope_children)   
_UIA_Action($oP2,"setfocus")
Local $oP1=_UIA_getObjectByFindAll($oP2, "Title:=;controltype:=UIA_PaneControlTypeId;class:=CalcFrame", $treescope_children)    
_UIA_Action($oP1,"setfocus")
Local $oP0=_UIA_getObjectByFindAll($oP1, "Title:=;controltype:=UIA_PaneControlTypeId;class:=#32770", $treescope_children)   
_UIA_Action($oP0,"setfocus")
_UIA_setVar("button 1","title:=1;classname:=Button")
_UIA_action("button 1","setfocus")

or leave out the object #32770 I do not recognize that as a logical object of calculator  

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now