Поиск пиксела на экране

EnableExplicit
 
#file = "D:\purebasic\pixel_finder\pixel.png"
#image = 0
#color_to_find = 16711680 ;000 000 255
 
UsePNGImageDecoder()
 
If LoadImage(#image, #file)
  Define x_counter.i = 0
  Define y_counter.i = 0
  If StartDrawing(ImageOutput(#image))
    For x_counter = 0 To ImageWidth(#image) - 1
      For y_counter = 0 To ImageWidth(#image) - 1
        If Point(x_counter, y_counter) = #color_to_find
          Debug "Finded BLUE Pixel at: " + Str(x_counter + 1) + " " + Str(y_counter + 1)
          Break
        EndIf
      Next
    Next
    StopDrawing()
  EndIf
  FreeImage(#image)
EndIf

;Ищет пиксель указанного цвета в указанной прямоугольной области экрана и ставит там курсор.
Procedure PixelSearch( left.i, top.i, right.i, bottom.i, color.l )
 
 DC=GetDC_(GetCapture_()) ; Дескриптор захваченного мышкой окна
  If DC
    For i=left To right
      For j=top To bottom
        If color = GetPixel_(DC,i,j)
          SetCursorPos_(i,j)            ; Перемещаем курсор в найденную позицию
          ReleaseDC_(GetCapture_(),DC)  ; освобождает контекст устройства
          ProcedureReturn 1           ; выход из процедуры при первом совпадении
        EndIf  
      Next
    Next
      
  EndIf
  
EndProcedure
; Авто mouse клик left button
Procedure Click_L_Mouse()
     mouse_event_(#MOUSEEVENTF_LEFTDOWN,0,0,0,0):Delay(10)  
     mouse_event_(#MOUSEEVENTF_LEFTUP,0,0,0,0):Delay(10)  
EndProcedure
; Авто mouse клик right button
Procedure Click_R_Mouse()
    mouse_event_(#MOUSEEVENTF_RIGHTDOWN,0,0,0,0):Delay(10)  
    mouse_event_(#MOUSEEVENTF_RIGHTUP,0,0,0,0):Delay(10)  
EndProcedure
 
; Проверка работы кода
 
ExamineDesktops() ; Если ищем цвет на всём экране монитора, иначе не надо
 
If PixelSearch(1,1,DesktopWidth(0),DesktopHeight(0),RGB(255,0,0)) ; красный цвет ищем
  ; Если цвет нашёл, то
  ; Кликнул мышкой по цвету
    Click_L_Mouse() ; !!!При запуске в IDE Пурика найдет иконку окна и откроет меню!!!
EndIf

;Ищет пиксель указанного цвета в указанной прямоугольной области экрана
Procedure PixelSearch( left.i, top.i, right.i, bottom.i, color.l )
 
 DC= CreateDC_("DISPLAY",0,0,0); Дескриптор экрана
  If DC
    For i=left To right
      For j=top To bottom
        If color = GetPixel_(DC,i,j)
             DeleteDC_(dc)                 ; освобождает контекст устройства
          ProcedureReturn 1           ; выход из процедуры при первом совпадении
        EndIf  
      Next
    Next
      
  EndIf
  DeleteDC_(dc)
EndProcedure
; Авто mouse клик left button
Procedure Click_L_Mouse()
     mouse_event_(#MOUSEEVENTF_LEFTDOWN,0,0,0,0):Delay(10)  
     mouse_event_(#MOUSEEVENTF_LEFTUP,0,0,0,0):Delay(10)  
EndProcedure
 
 
Repeat
 
 If PixelSearch(665,150,695,170,RGB(86,6,12)) ; ищем красный верхний прямоугольник по данным вашего скрина
  ; Если цвет нашёл, то
  ; Кликнул мышкой 
   For i=1 To 3
       Click_L_Mouse() ; очередь из 3-х выстрелов
   Next
 EndIf  
 
  Delay(10)
ForEver

#img=0
 
Procedure PixelSearch(x.i,y.i,Width.i,Height.i,color.l)
CreateImage(#img,Width,Height) 
SrcDc = GetDC_(0)
DestDc = StartDrawing(ImageOutput(#img))
BitBlt_(DestDc,0,0,Width,Height,SrcDc,x,y,#SRCCOPY)   
 
 For i = x To Width-1
    For j = y To Height-1
      If color = Point(i, j)
        StopDrawing()
        ProcedureReturn 1           ; выход из процедуры при первом совпадении
      EndIf  
    Next 
 Next 
 
 StopDrawing()
 ProcedureReturn 0
EndProcedure