Код:
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