Код:
Func Chromeaut($url, $BTitles)
; Запуск Chrome с параметром --force-renderer-accessibility
; При отсутствии этого параметра доступ к элементам страницы будет запрещён
Run($ChromePath & " --force-renderer-accessibility")
$hWnd = WinWait($BTitles, "", 10)
If Not $hWnd Then Exit
; Создание элемента с использованием дескриптора окна
$oParent = _UIA_GetElementFromHandle($hWnd)
; Поиск кнопки с именем "Новая вкладка" и клик по ней
$oElement = _UIA_GetControlTypeElement($oParent, "UIA_ButtonControlTypeId", "Новая вкладка")
_UIA_ElementMouseClick($oElement)
; Поиск строки адреса и клик по ней
$oElement = _UIA_GetControlTypeElement($oParent, "UIA_EditControlTypeId", "Адресная строка и строка поиска")
_UIA_ElementMouseClick($oElement)
; Переход на сайт
ClipPut($url1 & $url2)
;Send("^v")
Send("^v" & "{enter}")
; Ожидание загрузки страницы по наличию элемента "Предупреждение. Эта страница не зашифрована по"
_UIA_WaitControlTypeElement($oParent, "UIA_TextControlTypeId", "Предупреждение. Эта страница не зашифрована по правилам безопасной связи. Имена пользователей, пароли и другие сведения будут передаваться открытым текстом. За дополнительными сведениями обратитесь к администратору.", Default, False)
; Поиск элемента для ввода логина (через соседний элемент "Имя пользователя:")
$oElement = _UIA_GetControlTypeElement($oParent, "UIA_TextControlTypeId", "Имя пользователя:", Default, False)
; переход к полю логин
if IsObj($oElement) then
_UIA_ElementMouseClick($oElement)
Send("{TAB}")
Send("^a")
Send($login)
Else
Exit
EndIf
; Поиск элемента для ввода пароля (через соседний элемент "Пароль:")
$oElement = _UIA_GetControlTypeElement($oParent, "UIA_TextControlTypeId", "Пароль:", Default, False)
; переход к полю пароль
if IsObj($oElement) then
_UIA_ElementMouseClick($oElement)
Send("{TAB}")
Send("^a")
Send($pass)
Send("{TAB}")
Else
Exit
EndIf
; Поиск и нажатие кнопки "Вход"
$oElement = _UIA_GetControlTypeElement($oParent, "UIA_ButtonControlTypeId", "Вход")
_UIA_ElementDoDefaultAction($oElement)
; Ожидание загрузки страницы по наличию ссылки "TPS-PORTAL"
$oElement = _UIA_WaitControlTypeElement($oParent, "UIA_HyperlinkControlTypeId", "TPS-PORTAL")
EndFunc