#include "UIAutomate.au3"
Opt("WinTitleMatchMode", 2)
Run(@ProgramFilesDir & "\Google\Chrome\Application\chrome.exe www.iqoption.ru --force-renderer-accessibility")
$hWnd = WinWait(" - Google Chrome", "", 5)
If Not $hWnd Then Exit
$oParent = _UIA_GetElementFromHandle($hWnd)
$oElement = _UIA_WaitControlTypeElement($oParent, "UIA_ButtonControlTypeId", "Войти", Default, True, 20)
_UIA_ElementDoDefaulAction($oElement)
_UIA_WaitControlTypeElement($oParent, "UIA_TextControlTypeId", "Авторизация")
$aAllElements = _UIA_FindAllElements($oParent)
For $i = 1 To $aAllElements[0]
If _UIA_ElementGetPropertyValue($aAllElements[$i], "Name") = " Запомнить меня" Then
ConsoleWrite(_UIA_ElementGetPropertyValue($aAllElements[$i - 2], "Name") & @CRLF)
ConsoleWrite(_UIA_ElementGetPropertyValue($aAllElements[$i + 2], "Name") & @CRLF)
ExitLoop
EndIf
NextВо-первых, что мешает сразу прописать параметр --force-renderer-accessibility в ярлык запуска Chrome?
И зачем? :stars:
$aFinds = _UIA_FindElementsInArray($aAllElements, $UIA_NamePropertyId, "НАПАСТЬ")
If IsArray($aFinds) And $aFinds[0] > 0 Then
;Local $property = _UIA_CreatePropertyCondition($UIA_ControlTypePropertyId, 0xC364)
Local $aFindText = _UIA_FindAllElementsEx($aFinds[$aFinds[0]]) ;$property
If IsArray($aFindText) And $aFindText[0] > 0 Then
_DebugOut(_UIA_ElementGetPropertyValue($aFindText[1], $UIA_NamePropertyId))
EndIf
EndIfFor $i = 1 To $aAllElements[0]
If _UIA_ElementGetPropertyValue($aAllElements[$i], $UIA_NamePropertyId) = "НАПАСТЬ" Then
For $j = $i+1 To $aAllElements[0]
If _UIA_ElementGetPropertyValue($aAllElements[$j], $UIA_ControlTypePropertyId) = 0xC364 And _
_UIA_ElementGetPropertyValue($aAllElements[$j], $UIA_NamePropertyId) <> "НАПАСТЬ" Then
_DebugOut(_UIA_ElementGetPropertyValue($aAllElements[$j], $UIA_NamePropertyId))
ExitLoop 2
EndIf
Next
EndIf
NextЕсли вы про функцию _UIA_FindElementsInArray(), то она возвращает самостоятельный массив и была задумана, как "фильтр" по определённому свойству-значению. Если же у вас есть массив, в котором нужно найти определённый элемент, то просто пробегитесь по нему в цикле до нужного совпадения. Это всего 3-4 строчки кода...
И чем вас теперь это не устраивает?
Если вы про это
то вместо пользователя это бы делала функция. К тому же элемент с подходящим условием может быть не один и придётся возвращать массив индексов. А это ещё сложнее - перебирать массив для каждого элемента другого массива. Поэтому проще создать цикл под конкретное условие, что, собственно, вы и сделали.
я вижу другое, в теле функции цикл выполняется и у меня он выполняется второй раз, только для того, чтобы узнать индекс объекта-метки, и третий цикл для поиска нужного объекта.
Большого выигрыша я здесь не получу, не вижу упрощенного решения с помощью данных условий.
Теперь понял. Но для этого нужно делать отдельную функцию, в которой будет куча проверок на корректность переданных параметров, плюс тот же цикл, плюс сам вызов функции. А ваш код, который "так делал раньше", как раз это всё и делает. И если его заменить на два вызова подобной функции, то скорости это точно не прибавит.
Если ваша проблема только в "лишнем" текстовом элементе, то можно попробовать так
$pCond = _UIA_CreatePropertyCondition("Name", "НАПАСТЬ") ; условие
$aFind = _UIA_FindAllElementsEx($oParent, $pCond) ; поиск по условию
If Not @error Then
If $aFind[0] = 2 Then ; если найдено два, то берём следующий для второго
$Name = _UIA_ElementGetPropertyValue(_UIA_ElementGetPreviousNext($aFind[2])[1], "Name")
Else ; иначе берём следующий через один для первого
$Name = _UIA_ElementGetPropertyValue(_UIA_ElementGetPreviousNext(_UIA_ElementGetPreviousNext($aFind[1])[1])[1], "Name")
EndIf
EndIf
Вот ссылка на скачивание: https://www.microsoft.com/en-us/download/confirmation.aspx?id=13821yuraiva сказал(а):Подскажите пожалуйста ссылочку на скачивание API UIAutomation для Win XP. По ссылке указанной в шапке темы отыскать соответствующий файл не хватило сообразительности.Заранее благодарен.
.....................
Func Eror ($Eror)
$oParent = _UIA_GetElementFromHandle($hnd)
$oElement = _UIA_GetControlTypeElement($oParent, $UIA_TextControlTypeId, $Eror, "Name")
If IsObj($oElement) Then Return 1
EndFunc
....................!> _UIA_GetControlTypeElement : элементы указанного типа не найденыДа, работает. Но родительским элементом в этом случае нужно делать не окно IE, а контрол "Internet Explorer_Server"
$oParent = _UIA_GetElementFromHandle(ControlGetHandle("[class:IEFrame]", "", "Internet Explorer_Server1"))Дело в том, что интерфейс UIAutomation работает только с деревом видимых объектов. Скрытые (hidden) объекты найдены не будут.
#include 'UIAutomate.au3'
Local $oElement = _UIA_GetElementFromPoint(MouseGetPos(0), MouseGetPos(1))
Local $sVal = _UIA_ElementGetPropertyValue($oElement, 'LegacyIAccessible.Value')
If $sVal = '' Then
$sVal = _UIA_ElementGetPropertyValue($oElement, 'LegacyIAccessible.Name')
EndIf
MsgBox(0, '', $sVal)Пример для проводника
#include <WinAPI.au3>
#include "UIAutomate.au3"
$UIA_ConsoleWriteError = 0
While Sleep(100)
ToolTip(GetPath())
WEnd
Func GetPath()
Local $sPrefix = "Адрес: ", $oParent, $tPoint = _WinAPI_GetMousePos()
Local $hCtrl = _WinAPI_WindowFromPoint($tPoint)
If _WinAPI_GetClassName($hCtrl) <> "DirectUIHWND" Then Return ""
Local $oElement = _UIA_GetElementFromPoint($tPoint.X, $tPoint.Y)
If _UIA_ElementGetPropertyValue($oElement, "ControlType") = $UIA_ListItemControlTypeId Then
$sName = _UIA_ElementGetPropertyValue($oElement, "Name")
Else
$oParent = _UIA_ElementGetParent($oElement)
If _UIA_ElementGetPropertyValue($oParent, "ControlType") = $UIA_ListItemControlTypeId Then
$sName = _UIA_ElementGetPropertyValue($oParent, "Name")
Else
Return ""
EndIf
EndIf
$sPath = ControlGetText(_WinAPI_GetAncestor($hCtrl, 2), "", "ToolbarWindow322") ; Win7
;~ $sPath = ControlGetText(_WinAPI_GetAncestor($hCtrl, 2), "", "ToolbarWindow323") ; Win81, Win10
If StringRight($sPath, 1) <> "\" Then $sPath &= "\"
Return StringReplace($sPath & $sName, $sPrefix, "")
EndFuncДля рабочего стола эта UDF, в общем-то, и не нужна - достаточно GuiListView. Здесь главное как-то различать пользовательский рабочий стол и общий, т.к. в них могут находиться файлы с одинаковыми именами. И на системах х64 нужно запускать из-под х64
#include <GuiListView.au3>
While Sleep(100)
ToolTip(GetPath())
WEnd
Func GetPath()
Local $tPoint = _WinAPI_GetMousePos(), $hLV = _WinAPI_WindowFromPoint($tPoint)
If _WinAPI_GetClassName($hLV) <> "SysListView32" _
And _WinAPI_GetClassName(_WinAPI_GetAncestor($hLV, 2)) <> "Progman" Then Return ""
Local $aHitTest = _GUICtrlListView_HitTest($hLV)
If @error Or Not IsArray($aHitTest) Then Return ""
Local $sName = "\" & _GUICtrlListView_GetItemText($hLV, $aHitTest[0])
Local $aPaths[] = [@DesktopDir & $sName, @DesktopDir & $sName & ".lnk", _
@DesktopCommonDir & $sName, @DesktopCommonDir & $sName & ".lnk"]
For $i = 0 To UBound($aPaths) - 1
If FileExists($aPaths[$i]) Then Return $aPaths[$i]
Next
Return ""
EndFunc