AutoHotkey Community

Code: Select all

SearchNeedle(hwnd, file)
	{
		Global RET, LIST, AAXDebug, AAXGDIalt
		If !gdipToken := Gdip_Startup()
			{
			   MsgBox, 48, gdiplus error!, Gdiplus failed to start. Please ensure you have gdiplus on your system
			   Return
			}
		if (AAXDebug=1)
			{
				file2:=A_TickCount ".png"
				bmpHaystack := Gdip_BitmapFromScreen("hwnd:" . HWND)
				Gdip_SaveBitmapToFile(bmpHaystack, file2, 100)
			}
		else
			{
				bmpHaystack := Gdip_BitmapFromScreen("hwnd:" . HWND)
			}
		bmpNeedle := Gdip_CreateBitmapFromFile(file)
		RET := Gdip_ImageSearch(bmpHaystack,bmpNeedle,LIST,0,0,0,0,25,"",1)
		Gdip_DisposeImage(bmpHaystack)
		Gdip_DisposeImage(bmpNeedle)
		Gdip_Shutdown(gdipToken)
	}

Code: Select all

Gdip_BitmapFromScreen(Screen=0, Raster="")
{
	if (Screen = 0)
	{
		Sysget, x, 76
		Sysget, y, 77	
		Sysget, w, 78
		Sysget, h, 79
	} ;--Siehe hier
	else if (SubStr(Screen, 1, 5) = "hwnd:")
	{
		Screen := SubStr(Screen, 6)
		if !WinExist( "ahk_id " Screen)
			return -2
		WinGetPos,x,y, w, h, ahk_id %Screen% 
	} ;--Bis hier
	else if (Screen&1 != "")
	{
		Sysget, M, Monitor, %Screen%
		x := MLeft, y := MTop, w := MRight-MLeft, h := MBottom-MTop
	}
	else
	{
		StringSplit, S, Screen, |
		x := S1, y := S2, w := S3, h := S4
	}

	if (x = "") || (y = "") || (w = "") || (h = "")
		return -1

	chdc := CreateCompatibleDC(), hbm := CreateDIBSection(w, h, chdc), obm := SelectObject(chdc, hbm), hhdc := hhdc ? hhdc : GetDC()
	BitBlt(chdc, 0, 0, w, h, hhdc, x, y, Raster)
	ReleaseDC(hhdc)
	
	pBitmap := Gdip_CreateBitmapFromHBITMAP(hbm)
	SelectObject(chdc, obm), DeleteObject(hbm), DeleteDC(hhdc), DeleteDC(chdc)
	return pBitmap
}

Code: Select all

GDIP_CopyHWNDAreaFromScreenToBitmap(HWND)
{
    if !WinExist( "ahk_id " . HWND)
        return -2
    WinGetPos,x,y, w, h, ahk_id %HWND%
    chdc := CreateCompatibleDC()
    hbm := CreateDIBSection(w, h, chdc)
    obm := SelectObject(chdc, hbm)
    hhdc := GetDC() ;Why should hhdc be true?
    BitBlt(chdc, 0, 0, w, h, hhdc, x, y, "")
    pBitmap := Gdip_CreateBitmapFromHBITMAP(hbm)
    ReleaseDC(hhdc)
    SelectObject(chdc, obm), DeleteObject(hbm), DeleteDC(hhdc), DeleteDC(chdc)
    return pBitmap
}

Code: Select all

#NoEnv
SetBatchLines, -1
pToken := Gdip_Startup()
Return
^LButton::
MouseGetPos, , , HWIN
PBITMAP := Gdip_BitmapFromHWND(HWIN)
HBITMAP := Gdip_CreateHBITMAPFromBitmap(PBITMAP)
Gui, Add, Pic, w800 h-1, HBITMAP:%HBITMAP%
Gui, Show, , Test
Return
GuiClose:
Gdip_Shutdown(pToken)
ExitApp
#Include GDIP.ahk

Code: Select all

#NoEnv
SetBatchLines, -1
pToken := Gdip_Startup()
HWIN := WinExist("ahk_exe Chrome.exe")
WinActivate
; PBITMAP := Gdip_BitmapFromHWND(HWIN) ; Alternative 1
PBITMAP := Gdip_BitmapFromScreen("HWND:" . HWIN) ; Alternative 2
HBITMAP := Gdip_CreateHBITMAPFromBitmap(PBITMAP)
Gdip_DisposeImage(PBITMAP)
Gui, Add, Pic, w800 h-1, HBITMAP:%HBITMAP%
Gui, Show, , Test
Return
GuiClose:
Gui, Destroy
Gdip_Shutdown(pToken)
ExitApp
#Include GDIP.ahk

Code: Select all

#NoEnv
#SingleInstance Force
SetBatchLines, -1
DetectHiddenWindows, On

; ===============================================================================================================================

WinGet, source, Id, A
MsgBox % source
Gui, Show, w800 h800
Gui, +LastFound
WinGet, target, Id, A
DetectHiddenWindows, On

DWM(target, source, 0.8)

; ===============================================================================================================================

DWM(target, source, zoom := 1, flags := 0x13, opacity := 150)
{
    VarSetCapacity(thumbnail, A_PtrSize, 0)
    if (DllCall("dwmapi.dll\DwmRegisterThumbnail", "ptr", target, "ptr", source, "ptr", &thumbnail) != 0)
        return (ErrorLevel := 1) & 0
    thumbnail := NumGet(thumbnail, 0, "ptr")

    WinGetPos, wx, wy, ww, wh, % "ahk_id " target
    VarSetCapacity(DWM_THUMBNAIL_PROPERTIES, 45, 0)
    NumPut(flags,   DWM_THUMBNAIL_PROPERTIES,  0, "uint")
    NumPut(0,       DWM_THUMBNAIL_PROPERTIES,  4, "int")
    NumPut(0,       DWM_THUMBNAIL_PROPERTIES,  8, "int")
    NumPut(ww,      DWM_THUMBNAIL_PROPERTIES, 12, "int")
    NumPut(wh,      DWM_THUMBNAIL_PROPERTIES, 16, "int")
    NumPut(0,       DWM_THUMBNAIL_PROPERTIES, 20, "int")
    NumPut(0,       DWM_THUMBNAIL_PROPERTIES, 24, "int")
    NumPut(ww/zoom, DWM_THUMBNAIL_PROPERTIES, 28, "int")
    NumPut(wh/zoom, DWM_THUMBNAIL_PROPERTIES, 32, "int")
    NumPut(opacity, DWM_THUMBNAIL_PROPERTIES, 36, "uchar")
    NumPut(1,       DWM_THUMBNAIL_PROPERTIES, 37, "int")
    NumPut(1,       DWM_THUMBNAIL_PROPERTIES, 41, "int")
    if (DllCall("dwmapi.dll\DwmUpdateThumbnailProperties", "ptr", thumbnail, "ptr", &DWM_THUMBNAIL_PROPERTIES) != 0)
        return (ErrorLevel := 2) & 0
    return 1
}