AHK: Возможно ли получить цвет пикселя неактивного окна

Red   := SubStr(Color, 7, 2)
Green := SubStr(Color, 5, 2)
Blue  := SubStr(Color, 3, 2)

WinGet WindowID, id, Безымянный - Paint
hdc_frame := DllCall( "GetDC", UInt, WindowID )
hdc_buffer := DllCall("gdi32.dll\CreateCompatibleDC", UInt,  hdc_frame)
hbm_buffer := DllCall("gdi32.dll\CreateCompatibleBitmap", UInt,hdc_frame, Int,A_ScreenWidth, Int,A_ScreenHeight)
DllCall( "gdi32.dll\SelectObject", UInt,hdc_buffer, UInt,hbm_buffer)
DllCall( "PrintWindow", UInt , tablelist_%a_index% , UInt , hdc_buffer , UInt , 0 ) 
getlength = 200
getheight = 100
x1 = 0
y1 = 0 
DllCall("gdi32.dll\BitBlt" , UInt,hdc_frame    , Int, 0, Int, 0, Int, getlength, Int, getheight, UInt,hdc_buffer, Int, x1, Int, y1 , UInt, 0xCC0020 )      
pixel_x = 20
pixel_y = 20
pix := DllCall("GetPixel", UInt, hdc_buffer, Int, pixel_x, Int, pixel_y)
DllCall( "gdi32.dll\DeleteObject", "uint", hbm_buffer )
DllCall( "gdi32.dll\DeleteDC" , "uint", hdc_frame )
DllCall( "gdi32.dll\DeleteDC" , "uint", hdc_buffer )
MsgBox, %pix%
ExitApp

X := 940
Y := 70

WinGet, hWnd, ID, ahk_class MSPaintApp

hDC := DllCall("GetDC", Ptr, hWnd, Ptr)
hMemDC := DllCall("CreateCompatibleDC", Ptr, hDC)
WinGetPos,,, Width, Height, ahk_id %hWnd%
hBitmap := DllCall("CreateCompatibleBitmap", Ptr, hDC, Int, Width, Int, Height, Ptr)
DllCall("SelectObject", Ptr, hMemDC, Ptr, hBitmap)
DllCall("PrintWindow", Ptr, hWnd, Ptr, hMemDC, UInt, 0)
ColorBGR := DllCall("GetPixel", Ptr, hMemDC, UInt, X, UInt, Y)

DllCall("DeleteObject", Ptr, hBitmap)
DllCall("DeleteDC", Ptr, hMemDC)
DllCall("ReleaseDC", Ptr, hWnd, Ptr, hDC)

SetFormat, IntegerFast, Hex   ; не обязательно, нужно только для демонстрации
MsgBox, % ColorRGB := DllCall("Ws2_32\ntohl", UInt, ColorBGR, Ptr) >> 8

hwnd := WinActive("A"), WinPos := WinGetP(hwnd), x := WinPos.Client2Win.w//2, y := 100

hDC := Window_CreateCapture(hwnd)
colorBGR := Client_GetPixel(hDC, x, y, WinPos) ; client x y
; colorBGR2 := Client_GetPixel(hDC, 700, 400, WinPos)
; colorBGR := GetPixel(hDC, x, y) ; window x y
Window_DeleteWindowCapture(hwnd, hDC)

CoordMode Mouse, Client
MouseMove x, y
MsgBox % "Pixel (" x ", " y ") from window client area: " Format("{:#08x}",colorBGR)
Return

Window_CreateCapture(hwnd) {
	Return DllCall("user32.dll\GetDCEx", "UInt", hwnd, "UInt", 0, "UInt", 1|2)
}
GetPixel(hDC, x, y) {
	Return DllCall("gdi32.dll\GetPixel", "UInt", hDC, "Int", x, "Int", y, "UInt") ; colorBGR
}
Client_GetPixel(hDC, x, y, WinPos) {
	Return DllCall("gdi32.dll\GetPixel", "UInt", hDC, "Int", x+WinPos.Client2Win.x, "Int", y+WinPos.Client2Win.y, "UInt")
}
Window_DeleteWindowCapture(hwnd, hDC) {
	DllCall("user32.dll\ReleaseDC", "UInt", hwnd, "UInt", hDC)
}
WinGetP(hwnd) {
	WinGetPos, x, y, w, h, ahk_id %hWnd%
	WinP := {x:x, y:y, w:w, h:h}
	VarSetCapacity(pt, 16)
	NumPut(x, pt, 0) || NumPut(y, pt, 4) || NumPut(w, pt, 8) || NumPut(h, pt, 12)
	if (!DllCall("GetClientRect", "uint", hwnd, "uint", &pt))
		Return
	if (!DllCall("ClientToScreen", "uint", hwnd, "uint", &pt))
		Return
	x := NumGet(pt, 0, "int"), y := NumGet(pt, 4, "int")
	w := NumGet(pt, 8, "int"), h := NumGet(pt, 12, "int")
	Client := {x:x, y:y, w:w, h:h}
	Client2Win := {x:x-WinP.x, y:y-WinP.y, w:w, h:h}
	Return WinP := {x:WinP.x, y:WinP.y, w:WinP.w, h:WinP.h, Client2Win:Client2Win, Client:Client}
}

GetPixel_(x, y, hwnd) {
	WinPos := WinGetP(hwnd)
	hDC := Window_CreateCapture(hwnd)
	colorBGR := Client_GetPixel(hDC, x, y, WinPos)
	Window_DeleteWindowCapture(hwnd, hDC)
	Return colorBGR
}

Pos := WinGetP(hwnd)
hDC := Window_CreateCapture(hwnd)
If SearchPixel(hDC, 100, 200, 150, 250, Pos)
	MsgBox Found red pixel.
Window_DeleteWindowCapture(hwnd, hDC)
Return

SearchPixel(hDC, x1, y1, x2, y2, WinPos) {
	; поиск ведем по клиентским координатам, а битмап охватывает все окно, поэтому приводим клиентские кооординаты к оконным
	x1+=WinPos.Client2Win.x, x2+=WinPos.Client2Win.x, y1+=WinPos.Client2Win.y, y2+=WinPos.Client2Win.y

	x:=x1, y:=y1, red:=false
	While (x<=x2)
	{
		While (y<=y2)
		{
			colorBGR := DllCall("GetPixel", "UInt", hDC, "Int", x, "Int", y, "UInt") ; 0.3 ms
			; OutputDebug % Format("{:#08x}",colorBGR)
			if (!red && colorBGR=0x241CED) {
				red:=true
			}
			y+=1
		}
		x+=1
	}
	Return red
}

CoordMode Mouse, Screen

classApp := "ahk_class MSPaintApp"
exeApp := "mspaint.exe"
IfWinExist % classApp
	WinActivate % classApp
Else
	Run % exeApp
WinWaitActive % classApp
hwnd := WinActive(classApp)
sleep 200

MouseGetPos x, y
WinGetPos px, py,,, ahk_id %hwnd%

SetTitleMatchMode RegEx
IfWinNotExist ahk_class MozillaWindowClass
	WinExist("ahk_class Chrome")
WinActivate

hMemDC := CreateBitmap(hwnd, hDC, hBitmap)
col := PixelGetColorBackGround(hMemDC, x-px, y-py)
MsgBox % Format("{:#08x}",col) " | " timelapse "ms"
; здесь вы можете организовать поиск пикселя, последовательно находя цвета и сравнивая с искомым.
DeleteBitmap(hWnd, hDC, hBitmap)

Return

CreateBitmap(hWnd, ByRef hDC, ByRef hBitmap) {
	WinGetPos,,, Width, Height, ahk_id %hWnd%
	hDC := DllCall("GetDC", Ptr, hWnd, Ptr)
	hMemDC := DllCall("CreateCompatibleDC", Ptr, hDC)
	hBitmap := DllCall("CreateCompatibleBitmap", Ptr, hDC, Int, Width, Int, Height, Ptr)
	DllCall("SelectObject", Ptr, hMemDC, Ptr, hBitmap)
	DllCall("PrintWindow", Ptr, hWnd, Ptr, hMemDC, UInt, 0) ; 50-100 ms
	Return hMemDC
}
PixelGetColorBackGround(hMemDC, x, y) {
	Return DllCall("GetPixel", Ptr, hMemDC, UInt, x, UInt, y)
}
DeleteBitmap(hWnd, ByRef hDC, ByRef hBitmap) {
	DllCall("DeleteObject", Ptr, hBitmap)
	DllCall("DeleteDC", Ptr, hMemDC)
	DllCall("ReleaseDC", Ptr, hWnd, Ptr, hDC)
}

#Include Display.ahk


home::

Display_PixelSearch(60, 400, 50, 50, 0x241CED, coors [, 0x6071e])

msgbox, %coors%

return

Display_PixelSearch(x, y, w, h, color, variation [, id])

SetBatchLines -1
classApp := "ahk_class MSPaintApp", exeApp := "mspaint.exe"
classApp := "ahk_class MSPaintApp", exeApp := "mspaint.exe"
IfWinNotExist % classApp
{
	Run % exeApp
	Sleep 1000
}
hwnd := WinExist(classApp)

; делаем снимок
hMemDC := WindowBitmap_Capture(hwnd, hDC, hBitmap)
; находим пиксели
WinP := WinGetP(hwnd)
start:=A_TickCount
Brown:=0x577AB9
pix := WindowBitmap_SearchFirstPixel(hMemDC, Brown, WinP)
; col := WindowBitmap_PixelGetColor(hMemDC, x, y)
; MsgBox % (col = -1) ? "Error" : Format("{:#08x}",col)
period:=A_TickCount-start
; очищаем память
WindowBitmap_Delete(hWnd, hDC, hBitmap)

MsgBox % "Pixel " Brown (IsObject(pix) ? " found on " pix.x "x " pix.y "y" : " not found") " | " period "ms "
WinActivate ahk_id %hwnd%
MouseMove pix.x, pix.y
Return

WindowBitmap_PixelGetColor(hMemDC, x, y) {
	Return DllCall("GetPixel", Ptr, hMemDC, UInt, x, UInt, y)
}
WindowBitmap_Capture(hWnd, ByRef hDC, ByRef hBitmap) {
	WinGetPos,,, Width, Height, ahk_id %hWnd%
	hDC := DllCall("GetDC", Ptr, hWnd, Ptr)
	hMemDC := DllCall("CreateCompatibleDC", Ptr, hDC)
	hBitmap := DllCall("CreateCompatibleBitmap", Ptr, hDC, Int, Width, Int, Height, Ptr)
	DllCall("SelectObject", Ptr, hMemDC, Ptr, hBitmap)
	DllCall("PrintWindow", Ptr, hWnd, Ptr, hMemDC, UInt, 0) ; 0-50 ms depend on window size; GetPixel - 0.004 ms on each ( > 8sec on FullHD display capture)
	Return hMemDC
}
WindowBitmap_Delete(hWnd, ByRef hDC, ByRef hBitmap) {
	DllCall("DeleteObject", Ptr, hBitmap)
	DllCall("DeleteDC", Ptr, hMemDC)
	DllCall("ReleaseDC", Ptr, hWnd, Ptr, hDC)
}
WindowBitmap_SearchFirstPixel(hDC, searchColorBGR, WinP, x1:=0, y1:=0, x2:="", y2:="") {
	x1+=WinP.Client2Win.x, y1+=WinP.Client2Win.y
	x2 := x2 ? x2 : WinP.Client2Win.x + WinP.Client.w
	y2 := y2 ? y2 : WinP.Client2Win.y + WinP.Client.h

	y:=y1
	While (++y<y2)
	{
		x:=x1
		While (++x<x2)
		{
			colorBGR := DllCall("GetPixel", "UInt", hDC, "Int", x, "Int", y, "UInt")
			; OutputDebug % "[" Format("{:03}",x) "," Format("{:03}",y) "]: " Format("{:#08x}",colorBGR)
			if (colorBGR = searchColorBGR) {
				Return {x:x, y:y}
			}
		}
	}
	Return false
}
WinGetP(hwnd) {
	WinGetPos, xWin, yWin, wWin, hWin, ahk_id %hWnd%
	VarSetCapacity(pt, 16)
	NumPut(x, pt, 0) || NumPut(y, pt, 4) || NumPut(w, pt, 8) || NumPut(h, pt, 12)
	if (!DllCall("GetClientRect", "uint", hwnd, "uint", &pt))
	|| (!DllCall("ClientToScreen", "uint", hwnd, "uint", &pt))
		Return
	x := NumGet(pt, 0, "int"), y := NumGet(pt, 4, "int")
	w := NumGet(pt, 8, "int"), h := NumGet(pt, 12, "int")
	Client := {x:x, y:y, w:w, h:h}, Client2Win := {x:x-xWin, y:y-yWin, w:w, h:h}
	Return {x:xWin, y:yWin, w:wWin, h:hWin, Client2Win:Client2Win, Client:Client}
}

ColVar := Display_CompareColors(bgr1:="", bgr2:="", variat:="")

{
bgr1 := colorBGR
bgr2 := searchColorBGR
variat := 5
}

MsgBox % f1(5, 2)
MsgBox % f2(3, 7, 2) " c вариацией 2"
MsgBox % f2(3, 5, 3) " c вариацией 3"
MsgBox % f2(2+3, 5)
qwert:=7, asdf:=8
MsgBox % f2(qwert, asdf:=101)
Return

f1(a, b) {
	if (a > b) {
		Return % a ">" b
	}
	Return % a "<" b
}

f2(a, b, c:=0) {
	if Compare(a, b, c) {
		Return a "~" b
	}
	Return a " даже близко !=" b
}

Compare(haha, hoho, вариация) {
	If (Abs(haha - hoho) <= вариация)
		Return true ; true синоним 1
	Return false ; синоним 0
}