#NoEnv
#SingleInstance Force
SendMode Input
SetWorkingDir %A_ScriptDir%

ImagesFolder := A_ScriptDir "\images"
TargetText := "Вытянуть"

FileGetSize, FolderSize, %ImagesFolder%
if (FolderSize = "") {
  MsgBox Папка с изображениями не найдена!
  ExitApp  
}

ImagesPath := []
Loop Files, %ImagesFolder%\*.png, FR
  ImagesPath.Push(A_LoopFilePath)   

if (ImagesPath.Length() = 0) {
  MsgBox Изображения PNG не найдены!
  ExitApp
}
 
F2::Pause 

Loop {

  Sleep 1000
  
  for index, imgPath in ImagesPath {

    ImageSearch, FoundX, FoundY, 0, 0, A_ScreenWidth, A_ScreenHeight, *50 %imgPath%

    if (ErrorLevel = 0) {
    
      MouseGetPos, OriginalX, OriginalY  
            
      ImageSearch, TextX, TextY, 0, 0, A_ScreenWidth, A_ScreenHeight, *50 *TransBlack %TargetText%
      
      if (!ErrorLevel) {        
        MouseClick, left, TextX, TextY, 1, 0 
        MouseMove, OriginalX, OriginalY                       
      }
      else 
        MsgBox, Текст "%TargetText%" не найден!
    
    }

  }

}

Esc::ExitApp