А как быть, если в списке нету, а по факту кнопка есть?
Ну координаты кнопок я достать не могу, могу вытащить другой элемент, который не двигается относительно этих кнопок и потом к примеру делать клик мышкой
Вы это серьёзно?_UIA_ElementMouseClick($oPanel, "", $iDeltaX)_UIA_ElementGetBoundingRectangle() ; возвращает массив(!) координатДайте ссылку на ПО, интересно посмотреть - что это за зверь такой.tryinfinity сказал(а):
Ancestors: "Топливораздаточные колонки - Более 15 лет на рынке - azs-atris.ru" гиперссылка
"Топливораздаточные колонки - Более 15 лет на рынке - azs-atris.ruРекламаwww.azs-atris.ru/всё-для-АЗС Почему мне показано это об
"" список
"Реклама"_UIA_ElementGetParent()$oElement = _UIA_GetControlTypeElement($oParent, "UIA_HyperlinkControlTypeId", "Топливораздаточные колонки - Более 15 лет на рынке - azs-atris.ru")
_UIA_ElementDoDefaultAction($oElement)Попробуйте так
#include <UIAutomate.au3>
$oRootElement = _UIA_GetElementFromHandle(WinGetHandle("[RegexpTitle:- Mozilla Firefox]"))
; находим все ссылки
$aLinks = _UIA_FindAllElements($oRootElement, "ControlType", $UIA_HyperlinkControlTypeId)
For $i = 1 To $aLinks[0]
; получаем родителя ссылки
$oParent = _UIA_ElementGetParent($aLinks[$i])
; ищем слово "Реклама" в имени родителя
If StringInStr(_UIA_ElementGetPropertyValue($oParent, "Name"), "Реклама") Then ConsoleWrite("Рекламный блок" & @CRLF)
Next#include <UIAutomate.au3>
Opt("WinTitleMatchMode", 2)
WinActivate("Radmin VPN")
$hWnd = WinActivate("Radmin VPN") ;активация окна
$oParent = _UIA_GetElementFromHandle($hWnd) ; родитель
$oElement = _UIA_GetControlTypeElement($oParent, "UIA_MenuItemControlTypeId", "Help Alt+H") ; элемент
_UIA_ElementMouseClick($oElement); клик по элементу
$oElement = _UIA_GetControlTypeElement($oParent, "UIA_MenuItemControlTypeId", "About... Alt+A") ; элемент
_UIA_ElementMouseClick($oElement); клик по элементуWinActivate("Radmin VPN")
$hWnd = WinActivate("Radmin VPN") ;активация окна
$oParent = _UIA_GetElementFromHandle($hWnd) ; родитель
$oElement = _UIA_GetControlTypeElement($oParent, "UIA_MenuItemControlTypeId", "Network Alt+N") ; клик мыши по меню Network
_UIA_ElementMouseClick($oElement); клик по элементу
$hWnd = WinActivate("Radmin VPN") ;активация окна
$oParent = _UIA_GetElementFromHandle($hWnd) ; родитель
$oElement = _UIA_GetControlTypeElement($oParent, "UIA_MenuItemControlTypeId", "Create new network Alt+C") ; клик мыши по меню Create new network Alt+C
_UIA_ElementMouseClick($oElement); клик по элементуПотому что пункт меню About принадлежит другому окну - всплывающему меню
#include <UIAutomate.au3>
$hWnd = WinActivate("[title:Radmin VPN;class:Qt5QWindowIcon]") ; активация окна
$oParent = _UIA_GetElementFromHandle($hWnd) ; родитель (главное окно)
$oElement = _UIA_GetControlTypeElement($oParent, "UIA_MenuItemControlTypeId", "Help Alt+H") ; элемент
_UIA_ElementMouseClick($oElement) ; клик по элементу
$hWnd = WinWait("[class:Qt5QWindowPopupDropShadowSaveBits]", "", 1) ; ожидание окна меню
$oPopup = _UIA_GetElementFromHandle($hWnd) ; родитель (окно меню)
$oElement = _UIA_GetControlTypeElement($oPopup, "UIA_MenuItemControlTypeId", "About... Alt+A") ; элемент
_UIA_ElementMouseClick($oElement) ; клик по элементуУкажите вторым параметром нужную кнопку
_UIA_ElementMouseClick($oElement, "right")Global $checksys[7] = [6, GUICtrlRead($Checkbox1), GUICtrlRead($Checkbox2), GUICtrlRead($Checkbox3), GUICtrlRead($Checkbox4), GUICtrlRead($Checkbox5), GUICtrlRead($Checkbox6)
Global $checkname[7] = [6, GUICtrlRead($Checkbox1, 1), GUICtrlRead($Checkbox2, 1), GUICtrlRead($Checkbox3, 1), GUICtrlRead($Checkbox4, 1), GUICtrlRead($Checkbox5, 1), GUICtrlRead($Checkbox6, 1)]
Global $lists[7] = [6, $text1, $text2, $text3, $text4, $text5, $text6]
For $i = 1 To $checksys[0] Step 1
For $i = 1 To $checkname[0] Step 1
For $i = 1 To $lists[0] Step 1
$oneElement = _UIA_GetControlTypeElement($oParent, "UIA_TextControlTypeId", $lists[$i])
If IsObj($oneElement) and $checksys[$i]=1 and $lists[$i]=$checkname[$i] Then
MsgBox(4096, "Внимание!", "Найдено-" & $lists[$i])
EndIf
Next
Next
NextПопробуйте так
Global $oneElement
For $i = 1 To $lists[0] Step 1
If $checksys[$i]=1 and $lists[$i]=$checkname[$i] Then $oneElement = _UIA_GetControlTypeElement($oParent, "UIA_TextControlTypeId", $lists[$i])
If IsObj($oneElement) Then MsgBox(4096, "Внимание!", "Найдено-" & $lists[$i])
Next#include <UIAutomate.au3>
Opt("WinTitleMatchMode", 2)
ProcessClose("RvRvpnGui.exe")
; Запуск GUI Radmin VPN
Run(@ProgramFilesDir & "\Radmin VPN\RvRvpnGui.exe")
; Удаление файла-лога с записью начала теста
FileDelete('Time.txt')
; Удаление файла со списком имён сетей
FileDelete('NetworkName_wtith_pass_No_allow.txt')
; Запись начала времени теста
FileWrite(@ScriptDir & '\Time.txt' , @HOUR & ':' & @MIN & ':' & @SEC & ':' & @MSEC & @CRLF)
$i=1
While $i<=10
; Переменная имени сети. Задаётся рандом от 0 до 999999999
$Net_Name=Random(0,999999999,1)
; Запись переменной имени сети в файл, для дальнейших подключений join
FileWrite(@ScriptDir & '\NetworkName_wtith_pass_No_allow.txt' , $Net_Name & @CRLF)
; Переменная для отслеживания окна Create Network
$wnd = ControlGetHandle("[class:Qt5QWindowIcon]", "Create network", "")
$hWnd = WinActivate("[title:Radmin VPN;class:Qt5QWindowIcon]") ; активация окна
$oParent = _UIA_GetElementFromHandle($hWnd) ; родитель (главное окно)
$oElement = _UIA_GetControlTypeElement($oParent, "UIA_MenuItemControlTypeId", "Network Alt+N") ; элемент
_UIA_ElementMouseClick($oElement) ; клик по элементу
$hWnd = WinWait("[class:Qt5QWindowPopupDropShadowSaveBits]", "", 1) ; ожидание окна меню
$oPopup = _UIA_GetElementFromHandle($hWnd) ; родитель (окно меню)
$oElement = _UIA_GetControlTypeElement($oPopup, "UIA_MenuItemControlTypeId", "Create new network Alt+C") ; элемент
_UIA_ElementMouseClick($oElement) ; клик по элементу
; Ввод имени сети из рандомной переменной
Send($Net_Name)
; Переключение табуляцией на поле пароля
Send ("{TAB}")
; Ввод пароля аналогичного имени сети
Send($Net_Name)
; Переключение табуляцией на поле подтверждения пароля
Send ("{TAB}")
; Ввод пароляаналогичного имени сети
Send($Net_Name)
; Отправка enter
Send ("{ENTER}")
; Ожидание закрытия окна create network
WinWaitClose($wnd)
; Увеличение счётчика цикла на единицу
$i=$i+1
; Конец цикла
WEnd
; Запись в файл времени окончания теста
FileWrite(@ScriptDir & '\Time.txt' , @HOUR & ':' & @MIN & ':' & @SEC & ':' & @MSEC & @CRLF)InnI сказал(а):
Пробуйте так
For $i = 1 To $lists[0]
If $checksys[$i] = 1 And $lists[$i] = $checkname[$i] Then
$oCond1 = _UIA_CreatePropertyCondition("ControlType", $UIA_TextControlTypeId)
$oCond2 = _UIA_CreatePropertyCondition("Name", $lists[$i])
$oCond = _UIA_CreateLogicalCondition($oCond1, "AND", $oCond2)
$oneElement = _UIA_GetElementFromCondition($oParent, $oCond)
If IsObj($oneElement) Then MsgBox(4096, "Внимание!", "Найдено-" & $lists[$i])
EndIf
NextВсё зависит от программы: чем ближе "родитель", тем быстрей.
Всё в ваших руках. Создавайте условия при помощи _UIA_CreatePropertyCondition и _UIA_CreateLogicalCondition и ищите через _UIA_GetElementFromCondition.
Перебрать 300 строк - это пара десятков миллисекунд. Либо вы не всё видите. Либо у программы проблемы совместимости с IUIAutomation. Либо вы не там замеры делаете.
