Нажать кнопку Ok на дочерних окнах

[dex24]

Нужно нажать кнопку Ok на всех дочерних окнах (это по сути сообщение об ошибке, на ней только одна кнопка Ok, заголовок и текст)
Я попробовал

1. $aList = WinList()
2. For $i = 1 To $aList[0][0]
3. ControlClick($aList[$i][1], "", "[class:Button;text:ОК]")
4. ControlClick($aList[$i][1], "", "[class:Button;text:ОК]")
5. Next

но с дочерними окнами она не работает
Желательно, кончено, чтобы было логирование - когда окно было закрыто.
С autoIt вообще не знаком (только вчера увидел) - готов заплатить, чтобы сэкономить время для текущей задачи.

Сообщение автоматически объединено: 6 Сен 2020

Привет всем!
Не дождался ответа.
Слепил такой скрипт. Вроде работает. Может, кому пригодится.
Узнал класс окна через AutoIT v3 Window Info, чтобы Enter жать не во всех окнах подряд (у меня много окон с одинаковым названием и сообщение об ошибке, которое нужно закрыть - имеет такое же название, как и нужное окно).

#include <WinAPI.au3>
#include <File.au3>
DirCreate("C:\Logs")
While 1
$aList = WinList()
For $i = 1 To $aList[0][0]
; Если заголовок окна начинается на ОКНО!, И класс окна TMessageForm, то активируем это окно и жмем Enter
    If StringInStr ($aList[$i][0],"ОКНО!") > 0 And _WinAPI_GetClassName($aList[$i][1]) = "TMessageForm" Then
            WinActivate ($aList[$i][1])
            Send ("{ENTER}")
            _FileWriteLog("C:\Logs\Enter.log", "нажата Enter для окна: " & $aList[$i][0])
    EndIf
Next
Sleep (10000)
WEnd

 

[joiner]

можно искать окно по тексту окна, а не по заголовку

 

[dex24]

можно искать окно по тексту окна, а не по заголовку

Спасибо за точный по существу коммент! Я так и хотел сначала, но не осилил ) Дело было срочное, надо было, чтобы хоть как-то работало. Да и не программист я. Видимо, что-то вроде _IEBodyReadText нужно использовать?
Немного не по теме: мне кажется, правильнее будет "водка сорокАградуснее", несмотря на то, что тут явно просматривается птица сорока
В AutoIt Понравилась конструкция If ... EndIf - не надо уводить в подпрограмму, процедуру и т.п.