AutoHotkey Community

Code: Select all

IsInteger(Var) {
   Static Integer := "Integer"
   If Var Is Integer
      Return True
   Return False
}

Code: Select all

IsInteger(Var) {
   Static Integer := "Integer"
   If Var Is Integer
      Return True
   Return False
}

Code: Select all

Gdip_BitmapFromBRA(ByRef BRAFromMemIn, File, Alternate=0)
{
	if !BRAFromMemIn
		return -1
	Loop, Parse, BRAFromMemIn, `n
	{
		if (A_Index = 1)
		{
			StringSplit, Header, A_LoopField, |
			if (Header0 != 4 || Header2 != "BRA!")
				return -2
		}
		else if (A_Index = 2)
		{
			StringSplit, Info, A_LoopField, |
			if (Info0 != 3)
				return -3
		}
		else
			break
	}
	if !Alternate
		StringReplace, File, File, \, \\, All
	RegExMatch(BRAFromMemIn, "mi`n)^" (Alternate ? File "\|.+?\|(\d+)\|(\d+)" : "\d+\|" File "\|(\d+)\|(\d+)") "$", FileInfo)
	if !FileInfo
		return -4
;msgbox, %FileInfo2%`n%info2%`n%fileinfo1%                      ;// this shows the same in 1.1 and 1.0
	hData := DllCall("GlobalAlloc", "uint", 2, "uint", FileInfo2)
	pData := DllCall("GlobalLock", "uint", hData)
	DllCall("RtlMoveMemory", "uint", pData, "uint", &BRAFromMemIn+Info2+FileInfo1, "uint", FileInfo2)
	DllCall("GlobalUnlock", "uint", hData)
	DllCall("ole32\CreateStreamOnHGlobal", "uint", hData, "int", 1, "uint*", pStream)
	DllCall("gdiplus\GdipCreateBitmapFromStream", "uint", pStream, "uint*", pBitmap)
	DllCall(NumGet(NumGet(1*pStream)+8), "uint", pStream)
	return pBitmap
}

Code: Select all

SetBatchLines -1

#include Gdip.ahk

token := Gdip_Startup()
scrshot:=A_Desktop . "\ScrShot\" . A_Now . ".png"
WinGet, nox,, Nox App Player
;~ bitmap:=Gdip_BitmapFromScreen("hwnd:" . nox)
bitmap:=Gdip_BitmapFromHWND(nox)
Gdip_SaveBitmapToFile(bitmap, scrshot, 100)
GDIP_DisposeImage(bitmap)
GDIP_Shutdown(token)

return

Code: Select all

raster:=0x40000000 + 0x00CC0020
pBitmap:=Gdip_BitmapFromScreen(Screen,raster)