By
NassauSky
Hi All,
I think I'm so close to solving an automation problem but need that last bit of help. Anyone familiar with automation might know this answer. The beginning of this code is a nice example from @IanN1990 which I dug into a little and found it's counting my tabs correctly in Chrome. How may I print out each tab name (probably some sort of property in the automation object)
#include "CUIAutomation2.au3"
; Window handle
Local $hWindow = WinGetHandle( "[CLASS:Chrome_WidgetWin_1]" )
If Not IsHWnd( $hWindow ) Then Return ConsoleWrite( "$hWindow ERR" & @CRLF )
ConsoleWrite( "$hWindow OK" & @CRLF )
; Activate window
WinActivate( $hWindow )
Sleep( 100 )
; UI Automation object
Local $oUIAutomation = ObjCreateInterface( $sCLSID_CUIAutomation, $sIID_IUIAutomation, $dtagIUIAutomation )
If Not IsObj( $oUIAutomation ) Then Return ConsoleWrite( "$oUIAutomation ERR" & @CRLF )
ConsoleWrite( "$oUIAutomation OK" & @CRLF )
; Desktop element
Local $pDesktop, $oDesktop
$oUIAutomation.GetRootElement( $pDesktop )
$oDesktop = ObjCreateInterface( $pDesktop, $sIID_IUIAutomationElement, $dtagIUIAutomationElement )
If Not IsObj( $oDesktop ) Then Return ConsoleWrite( "$oDesktop ERR" & @CRLF )
ConsoleWrite( "$oDesktop OK" & @CRLF )
; Chrome window
Local $pCondition
$oUIAutomation.CreatePropertyCondition( $UIA_ClassNamePropertyId, "Chrome_WidgetWin_1", $pCondition )
If Not $pCondition Then Return ConsoleWrite( "$pCondition ERR" & @CRLF )
ConsoleWrite( "$pCondition OK" & @CRLF )
Local $pChrome, $oChrome
$oDesktop.FindFirst( $TreeScope_Descendants, $pCondition, $pChrome )
$oChrome = ObjCreateInterface( $pChrome, $sIID_IUIAutomationElement, $dtagIUIAutomationElement )
If Not IsObj( $oChrome ) Then Return ConsoleWrite( "$oChrome ERR" & @CRLF )
ConsoleWrite( "$oChrome OK" & @CRLF )
; Tab item
Local $pCondition1
$oUIAutomation.CreatePropertyCondition( $UIA_ControlTypePropertyId, $UIA_TabItemControlTypeId, $pCondition1 )
If Not $pCondition1 Then Return ConsoleWrite( "$pCondition1 ERR" & @CRLF )
ConsoleWrite( "$pCondition1 OK" & @CRLF )
;~ Find All tab items
Local $pTabs, $oUIElementArray, $iElements, $pFound, $oFound, $value
$oChrome.FindAll( $TreeScope_Descendants, $pCondition1, $pTabs )
$oUIElementArray = ObjCreateInterface($pTabs, $sIID_IUIAutomationElementArray, $dtagIUIAutomationElementArray)
$oUIElementArray.Length( $iElements )
ConsoleWrite( "$iElements:" & $iElements & @CRLF )
For $i = 0 To $iElements - 1
Local $pFound
$oUIElementArray.GetElement($i, $pFound)
ConsoleWrite($pFound & @CRLF)
$pFound.GetCurrentPropertyValue($UIA_NamePropertyId,$value) ;<==PROBLEM HERE
ConsoleWrite($value & @CRLF)
Next
Thanks for any direction.
🙂
