Func GoTarget()
$ssylka=FileOpen(@ScriptDir&"\ok_links.txt", 0)
$urlstr1=FileReadLine(@ScriptDir&"\ok_links.txt", 1) ; В первой строке этого файла ссылка, по которой надо кликнуть
FileClose($ssylka)
Opt("WinTitleMatchMode", 2)
; Производим переход по целевой ссылке
WinActivate("Mozilla Firefox")
$oParent = _UIA_GetElementFromHandle(WinWait("Mozilla Firefox"))
_UIA_WaitControlTypeElement($oParent, "UIA_ButtonControlTypeId", "Reload current page", "LegacyIAccessible.Description", 0)
$aAll = _UIA_FindAllElements($oParent, "Value.Value", $urlstr1)
While IsArray($aAll)=0 ; Если ссылка для наведения фокуса "плавающая/искажающаяся", то из того же массива выбрать другую
URLFromArray() ; это функция, которая все ссылки страницы записывает в файл, выбирает случайную ссылку и пишет в строку 1 файла ok_links.txt
$ssylka=FileOpen(@ScriptDir&"\ok_links.txt", 0)
$urlstr1=FileReadLine(@ScriptDir&"\ok_links.txt", 1)
FileClose($ssylka)
Opt("WinTitleMatchMode", 2)
; Производим переход по целевой ссылке
WinActivate("Mozilla Firefox")
$oParent = _UIA_GetElementFromHandle(WinWait("Mozilla Firefox"))
_UIA_WaitControlTypeElement($oParent, "UIA_ButtonControlTypeId", "Reload current page", "LegacyIAccessible.Description", 0)
$aAll = _UIA_FindAllElements($oParent, "Value.Value", $urlstr1)
WEnd
For $i = 1 To $aAll[0]
_UIA_ElementSetFocus($aAll[$i])
If Not _UIA_ElementGetPropertyValue($aAll[$i], "IsOffscreen") Then
$aRect = _UIA_ElementGetBoundingRectangle($aAll[$i])
$x=Random(50,1000)
$y=Random(200,700)
MouseMove($x,$y, Random(5,30))
Sleep(200)
MouseMove(($aRect[0] + ($aRect[2] - $aRect[0]) / 2) + Random(-10, 10, 1), ($aRect[1] + ($aRect[3] - $aRect[1]) / 2) + Random(-1, 1, 1), 10)
ExitLoop
EndIf
Next
MouseClick("left")
_FFLoadWait()
Sleep(10000)
$urlstr=0
EndFunc