#NoEnv
#SingleInstance, Force
Settitlematchmode, 2


SysGet, xbord, 32
SysGet, ybord, 33
SysGet, cap, 4


f12::
StartTime:=A_TickCount
WinGet, listst, List, ahk_class PokerStarsTableFrameClass
WinGet, listft, List, ahk_class QWidget,,Full Tilt
Loop, %listst%
{
win:=listst%A_index%
col%A_index%:=PixelColorA(0.5,0.5,win)
}
Loop, %listft%
{
win:=listft%A_index%
col%A_index%:=PixelColorA(0.5,0.5,win)
}
ElapsedTime:=A_TickCount - StartTime
Gui, 2:Add, Text,,%ElapsedTime% milliseconds have elapsed
Gui, 2:+ToolWindow
Gui, 2:Show, w180 h40
Sleep, 1000
Gui, 2:Destroy
return




CreateDIBSection(hDC, nW, nH, bpp = 32, ByRef pBits = "") {
   NumPut(VarSetCapacity(bi, 40, 0), bi)
   NumPut(nW, bi, 4)
   NumPut(nH, bi, 8)
   NumPut(bpp, NumPut(1, bi, 12, "UShort"), 0, "Ushort")
   NumPut(0,  bi,16)
   Return DllCall("gdi32\CreateDIBSection", "Uint", hDC, "Uint", &bi, "Uint", 0, "UintP", pBits, "Uint", 0, "Uint", 0)
}

PixelColorA(colxa,colya,id)
{
critical ;speed up
global xbord,ybord,cap
hdc_frame := DllCall( "GetDC", "UInt", id)
hdc_buffer := DllCall("gdi32.dll\CreateCompatibleDC", "UInt",  hdc_frame)
WinGetPos, X, Y, W, H, ahk_id %id%
hbm_buffer := CreateDIBSection(hdc_frame, w, h)
DllCall( "gdi32.dll\SelectObject", UInt,hdc_buffer, UInt,hbm_buffer)
DllCall( "PrintWindow", "UInt" , id , "UInt" , hdc_buffer , "UInt" , 0 )
WinGetPos, X, Y, W, H, ahk_id %id%
DllCall("RedrawWindow",uint,id,uint,0,uint,0,uint, 1|16|32|128|256|1024) ; with all children windows
w := w - (2*xbord)
h := h - (2*ybord) - cap
Transform, X, Floor, W*colxa
Transform, Y, Floor, H*colya
pixel_x := x + xbord
pixel_y := y + ybord + cap
pix := DllCall("GetPixel", "UInt", hdc_buffer, "Int", pixel_x , "Int", pixel_y) 
SetFormat, IntegerFast, hex
pix += 0  ; Sets Var (which previously contained 11) to be 0xb.
pix .= ""  ; Necessary due to the "fast" mode.
SetFormat, IntegerFast, d
DllCall( "gdi32.dll\DeleteObject", "uint", hbm_buffer )
DllCall( "gdi32.dll\ReleaseDC"    , "uint", hdc_frame )
DllCall( "gdi32.dll\DeleteDC"    , "uint", hdc_frame )
DllCall( "gdi32.dll\DeleteDC"    , "uint", hdc_buffer )
return pix
}