PixelGetColor

;~ Coder X0013
;~ Skype : x00.13

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Color", 343, 214, 192, 124,$WS_EX_TOPMOST)
GUISetState(@SW_SHOWNORMAL)
$Pic1 = GUICtrlCreatePic("", 0, 0, 340, 212)
$Label1 = GUICtrlCreateLabel("Color", 8, 8, 344, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)

#EndRegion ### END Koda GUI section ###
HotKeySet("o","et")
Func et()
    Exit
EndFunc
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Pic1
While 1
Global $pp = MouseGetPos()
Global $p = PixelGetColor($pp[0],$pp[1])
 ToolTip("0x"&Hex($p),$pp[0],$pp[1],"Clor",4)
GUISetBkColor("0x"&Hex($p))
GUICtrlSetData($Label1,"0x"&Hex($p))
WEnd
    EndSwitch
WEnd