AHK: Одновременный поиск нескольких пикселей

color1 := 0x123456
color2 := 0xabcdef

FastPixel := new FastPixelSearch(0, 0, A_ScreenWidth, A_ScreenHeight)
res1 := FastPixel.Search(color1)
res2 := FastPixel.Search(color2)

if !res1
   MsgBox, Color %color1% not found
else
   MsgBox, % "x: " . res1.x . "`ny: " . res1.y

if !res2
   MsgBox, Color %color2% not found
else
   MsgBox, % "x: " . res2.x . "`ny: " . res2.y

class FastPixelSearch
{
   __New(x, y, w, h) {
      this.hBM := this.Api.HBitmapFromScreen(x, y, w, h, pvBits)
      this.pvBits := pvBits
      this.w := w
      this.size := w*h
   }
   
   Search(colorRGB) {
      static bin := 0
      (!bin && bin := this.Api.GetBin())
      (!(colorRGB >> 24) && colorRGB |= 0xFF000000)
      byte := DllCall(bin, "ptr", this.pvBits, "UInt", this.size, "UInt", colorRGB, "Int")
      if (byte == this.pvBits + this.size * 4)
         Return false
      offset := (byte - this.pvBits)//4
      Return {x: mod(offset, this.w), y: offset//this.w}
   }
   
   class Api
   {
      GetBin() {
         static PAGE_EXECUTE_READWRITE := 0x40, CRYPT_STRING_BASE64 := 0x1
         ; C source code - https://godbolt.org/z/oYx39nr5s
         code := A_PtrSize = 8 ? "idJIjQSRSDnBcw9EOQF1BInI6wZIg8EE6+zD"
                               : "VYnli1UIi0UMi00QjQSCOcJzDTkKdQSJ0OsFg8IE6+9dww=="
         size := StrLen( RTrim(code, "=") )*3//4
         bin := DllCall("GlobalAlloc", "UInt", 0, "Ptr", size, "Ptr")
         DllCall("VirtualProtect", "Ptr", bin, "Ptr", size, "UInt", PAGE_EXECUTE_READWRITE, "UIntP", old:=0)
         DllCall("crypt32\CryptStringToBinary", "Str", code, "UInt", 0, "UInt", CRYPT_STRING_BASE64
                                              , "Ptr", bin, "UIntP", size, "Ptr", 0, "Ptr", 0)
         Return bin
      }
      
      HBitmapFromScreen(X, Y, W, H, ByRef pvBits) {
         static rop := (SRCCOPY := 0x00CC0020) | (CAPTUREBLT := 0x40000000)
         hDC := DllCall("GetDC", "Ptr", 0, "Ptr")
         hBM := this.CreateDIBSection(W, H, hDC, pvBits)
         hMDC := DllCall("CreateCompatibleDC", "Ptr", hDC, "Ptr")
         hObj := DllCall("SelectObject", "Ptr", hMDC, "Ptr", hBM, "Ptr")
         DllCall("BitBlt", "Ptr", hMDC, "Int", 0, "Int", 0, "Int", W, "Int", H
                         , "Ptr", hDC, "Int", X, "Int", Y, "UInt", rop)
         DllCall("SelectObject", "Ptr", hMDC, "Ptr", hObj, "Ptr")
         DllCall("DeleteDC", "Ptr", hMDC)
         DllCall("ReleaseDC", "Ptr", 0, "Ptr", hDC)
         Return hBM
      }

      CreateDIBSection(w, h, hDC, ByRef pvBits) {
         VarSetCapacity(BITMAPINFO, 40, 0)
         NumPut(40, BITMAPINFO,  0)
         NumPut( w, BITMAPINFO,  4)
         NumPut(-h, BITMAPINFO,  8)
         NumPut( 1, BITMAPINFO, 12)
         NumPut(32, BITMAPINFO, 14)
         hBM := DllCall("CreateDIBSection", "Ptr", hDC, "Ptr", &BITMAPINFO, "UInt", 0
                                          , "PtrP", pvBits, "Ptr", 0, "UInt", 0, "Ptr")
         return hBM
      }
   }
   
   __Delete() {
      DllCall("DeleteObject", "Ptr", this.hBM)
   }
}

FastPixel := new FastPixelSearch(0, 0, A_ScreenWidth, A_ScreenHeight)

x := 100 ; координаты области относительно экрана
y := 100
w := 500
h := 500

xPix := 20 ; координаты пикселя внутри области
yPix := 20 ; левый верхний будет xPix := 1, yPix := 1

hBitmap := HBitmapFromScreen(x, y, w, h, pBits)
MsgBox, % pixelColor := GetPixel(pBits, w * 4, xPix, yPix)

HBitmapFromScreen(X, Y, W, H, ByRef pBits := "") {
   hDC := DllCall("GetDC", "Ptr", 0, "Ptr")
   hBM := CreateDIBSection(W, -H, pBits)
   hMDC := DllCall("CreateCompatibleDC", "Ptr", hDC, "Ptr")
   hObj := DllCall("SelectObject", "Ptr", hMDC, "Ptr", hBM, "Ptr")
   DllCall("BitBlt", "Ptr", hMDC, "Int", 0, "Int", 0, "Int", W, "Int", H
                   , "Ptr", hDC, "Int", X, "Int", Y, "UInt", SRCCOPY := 0x00CC0020)
   DllCall("SelectObject", "Ptr", hMDC, "Ptr", hObj, "Ptr")
   DllCall("DeleteDC", "Ptr", hMDC)
   DllCall("ReleaseDC", "Ptr", 0, "Ptr", hDC)
   Return hBM
}

CreateDIBSection(w, h, ByRef ppvBits := 0, bpp := 32) {
   hDC := DllCall("GetDC", "Ptr", 0, "Ptr")
   VarSetCapacity(BITMAPINFO, 40, 0)
   NumPut(40 , BITMAPINFO,  0)
   NumPut( w , BITMAPINFO,  4)
   NumPut( h , BITMAPINFO,  8)
   NumPut( 1 , BITMAPINFO, 12)
   NumPut(bpp, BITMAPINFO, 14)
   hBM := DllCall("CreateDIBSection", "Ptr", hDC, "Ptr", &BITMAPINFO, "UInt", 0, "PtrP", ppvBits, "Ptr", 0, "UInt", 0, "Ptr")
   DllCall("ReleaseDC", "Ptr", 0, "Ptr", hDC)
   return hBM
}

GetPixel(pBits, stride, x, y) {
   ; или NumGet(pBits + (x - 1) * 4 + stride * (y - 1), "UInt") & 0xFFFFFF если не нужно форматировать
   Return Format("{:#x}", NumGet(pBits + (x - 1) * 4 + stride * (y - 1), "UInt") & 0xFFFFFF)
}