AHK: Аналог PixelChecksum

SetBatchLines -1 
CoordMode, Pixel, Screen
DllCall("dwmapi\DwmEnableComposition", "UInt", 0) 
res1 := PixelChecksum(0, 0, 111, 111)
MsgBox Результат готов.

1::
    If (PixelChecksum(0, 0, 111, 111) = res1)
        MsgBox, Область НЕ изменилась!
    Else
        MsgBox, Область изменилась!
    Return

PixelChecksum(x1, y1, x2, y2) {
    Loop % y2-y1+1
    { 
        y := y1+A_Index-1
        Loop % x2-x1+1
        {
            PixelGetColor, c, x1+A_Index-1, y 
            sum .= c "|" 
        }
    }      
    Return sum
}  

#SingleInstance,force
SetBatchLines -1
CoordMode,tooltip,Screen
CoordMode,Pixel,Screen
;DllCall("dwmapi\DwmEnableComposition", "UInt", 0)


x1=400
x2=400
y1=600
y2=500
coef=5  ; coef - сколько точек проверять на всей области
res1:=PixelChecksum(x1,x2,y1,y2,coef)

loop
{
  sleep,30
  If (PixelChecksum(x1,x2,y1,y2,coef)=res1)
    tooltip,Область НЕ изменилась!
  Else
  {
    tooltip,`nИзменилась!`n_
    sleep,2000
    res1:=PixelChecksum(x1,x2,y1,y2,coef)
  }
}
Return

PixelChecksum(x1,y1,x2,y2,coef)  ; coef - сколько точек проверять на всей области
{
  xc:=Round((x2-x1)/coef)
  yc:=Round((y2-y1)/coef)
  if xc<1
    xc=1
  if yc<1
    yc=1
  yy:=xx:=0
  Loop
  {
    if (yy>y2-y1)
      break
    y:=y1+yy
    Loop
    {
      if (xx>x2-x1)
        break
      tooltip,%xx%,% x1+xx+3,% y+3,3
      PixelGetColor,c,x1+xx,y
      sum.=c
      xx+=xc
    }
    yy+=yc
    xx=0
  }
  yy=0
  Return sum
}

PixelCheck(N, X1,Y1, X2, Y2, ...)

if PixelCheck(N)
{
; Не изменились
}
else
{
; Изменились
}

SetBatchLines -1
CoordMode, Pixel
PixelCheck(1, 50,16)
PixelCheck(2, 1100,240, 910,150)
Return

F1::
MsgBox % PixelCheck(1) ? "Не изменилось (1)" : "Изменилось (1)"
Return

F2::
MsgBox % PixelCheck(2) ? "Не изменилось (2)" : "Изменилось (2)"
Return

PixelCheck(P*)
{
   Static X:=[], Y:=[], C:=[], N:=[]
   Slot := P[1]
   if P.MaxIndex() > 1 && N[Slot] := P.MaxIndex()>>1 
      Loop % N[Slot] {
         PixelGetColor, Ctmp, X[(Slot<<4)+A_index] := P[A_Index<<1], Y[(Slot<<4)+A_index] := P[(A_Index<<1)+1]
         C[(Slot<<4)+A_index] := Ctmp
      }
   else
   Loop % N[Slot] {
      PixelGetColor, Ctmp, X[(Slot<<4)+A_index], Y[(Slot<<4)+A_index]
      if (Ctmp != C[(Slot<<4)+A_index])
         Return 0
   }  
   Return 1
}

PixelCheck(P*)
{
   Static X:=[], Y:=[], C:=[], N:=[]
   Slot := P[1], Pos:= Slot << 8
   if P.MaxIndex() > 1 && N[Slot] := P.MaxIndex()>>1 
      Loop % N[Slot]
         C[Pos+A_index]:=PGColor(X[Pos+A_index]:=P[A_Index<<1],Y[Pos+A_index]:=P[(A_Index<<1)+1])
   else
   Loop % N[Slot]
      if (PGColor(X[Pos+A_index], Y[Pos+A_index]) != C[Pos+A_index])
         Return 0
   Return 1
}

PGColor(x,y)
{
   PixelGetColor, c, x, y
   Return c
}