AutoHotkey Community

Start := A_TickCount
count = 26
Loop, %count%
   PixelGetColor, var, 1, 1,alt
end := A_TickCount
MsgBox % count " PixelGetColor calls took " (end - Start) "ms (" (end - start)/count "ms each)"
exitapp

#singleinstance force
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
coordmode,pixel,screen
coordmode,mouse,screen
gui,color,EEEEEE
gui,margin,0,0
gui,-caption +alwaysontop
loop, 5 {
   i := A_index
   loop, 5 {
      j := A_index
      x := 10*i -9
      y := 10*j -9
      gui, add, progress, w10 h10 x%x% y%y% vPixel%i%%j% backgroundRed
   }
}
gui,add,progress,w7 h1 x22 y25 backgroundBlack vc1
gui,add,progress,w1 h7 x25 y22 backgroundBlack vc2
guicontrol,+backgroundBlue,pixel33
gui,font,s14,
gui,add,text,x60 y15 vtext,#EEEEEEEE

gui,show,,ColorFinder
loop {
   mousegetpos,mx,my
   if (mx=lastx && my=lasty) {
      sleep 50
      continue
   }
   lastx := mx
   lasty := my
   ;now lets do the pixels

   loop, 5 {
      i := A_index
      loop, 5 {
         j := A_index
         pixelgetcolor,color,% mx -3 + i ,% my -3+j,RGB
         guicontrol, +background%color%, Pixel%i%%j%
      }
   }
   pixelgetcolor,color,%mx%,%my%,RGB
   stringtrimleft,color,color,2
   guicontrol,,text,#%color%
   guicontrol,movedraw, c1,w7
   guicontrol,movedraw,c2,h7
   guix := mx + 20
   guiy := my - 25
   gui,show,NA x%guix% y%guiy% w160 h52
}
return