AutoHotkey Community

Code: Select all

Menu, Tray, Add, test, handler

ico1:="iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAA4klEQVQ4T6XToU5DQRCF4e+6VvQBeIVCQuqQYCENinoMDQkCgcJQ"
ico1.="dE0FqkhEkzYoBAEErrwA8DqQSe5NNrTcbtNRK3b+nTnnbGHDKsr+AW4yWD3M0nsV4Afb+M6AnGIPZzhIAdW5jrGP9+RCa11AExMc"
ico1.="4xmHdYAjXOEaH9jFPYblBA08/Afo4A13OMcFRrhMRGyHZssAW3jFI8KdyqG/DnxiZxngBXPcrnAknCtSwEk5Xry4qjnYC4AuntDH"
ico1.="OCMPC4DcIAU7BPxKV8iNcjpYrDnISV/tNhVgihBxnYpP1dt4gl9sRC5dONyGKQAAAABJRU5ErkJggg=="

ico:=Base64PNG_to_HICON(ico1)  ; this work
; ico:=ImagePutHIcon(ico1)       ; this not work 

; show a icon in tray menu
Menu, Tray, Icon, test, HICON:%ico%

MsgBox

handler:
return

#Include ImagePut.ahk

Base64PNG_to_HICON(Base64PNG, W:=0, H:=0) {     ;   By SKAN on D094/D357 @ tiny.cc/t-36636
Local BLen:=StrLen(Base64PNG), Bin:=0,     nBytes:=Floor(StrLen(RTrim(Base64PNG,"="))*3/4)
  Return DllCall("Crypt32.dll\CryptStringToBinary", "Str",Base64PNG, "UInt",BLen, "UInt",1
            ,"Ptr",&(Bin:=VarSetCapacity(Bin,nBytes)), "UIntP",nBytes, "UInt",0, "UInt",0)
       ? DllCall("CreateIconFromResourceEx", "Ptr",&Bin, "UInt",nBytes, "Int",True, "UInt"
                 ,0x30000, "Int",W, "Int",H, "UInt",0, "UPtr") : 0            
}

Code: Select all

; Capture the screen.
pic := ImagePutBuffer(0)

; Display the image and move the cursor to the found pixel.
xy := pic.PixelSearch(0x1235FF)
ImageShow(pic)
MouseMove xy[1], xy[2]

;Imagesearch Example
xy := pic.ImageSearch("test_image.png")
ImageShow(pic)
MouseMove xy[1], xy[2]

;If you need to run image search multiple times, create a buffer for the second image so it will be faster.
test_image := ImagePutBuffer("test_image.png")
xy := pic.ImageSearch(test_image)
ImageShow(pic)
MouseMove xy[1], xy[2]

Code: Select all

imageputfile({file: "myfile.png", scale:0.5}, "output.jpg", 100) ;JPEG compression

Code: Select all

hBitmap := ImagePutHBitmap({file: "myfile.png", scale:[4096, 4096]}, 0xFFFFFF) ; Alpha color
ImagePutFile(hBitmap, "output.jpg", 100) ;JPEG compression
ImageDestroy(hBitmap) ; Otherwise it will leak memory. 

Code: Select all

PixelGetColor, OutputVar, X, Y [, Alt|Slow|RGB]
if OutputVar = color
{
	;dothis
}

Code: Select all

screen_capture := ImagePutBuffer(1) ; Capture Primary Screen
color := screen_capture[100, 200]
MsgBox % color

Code: Select all

str := ImagePutBase64(FileName, "png") ; Returns base64 string.

fileappend, %str% `n, %A_ScriptDir%\ABase64PNG.bin

Code: Select all

FileRead, base64Strings, %A_ScriptDir%\ABase64PNG.bin
base64Array := StrSplit(base64Strings, "`n")

Code: Select all

Gdip_PNGtoQ8PNG(thebitmap, RGBQuantize := 8) {
	pToken := Gdip_Startup()
	; Load the png with LoadPicture()
	pBitmapResource := Gdip_CreateARGBBitmapFromHBITMAP(thebitmap)
	Gdip_GetImageDimensions(pBitmapResource, wResource, hResource)
	Gdip_LockBits(pBitmapResource, 0, 0, wResource, hResource, strideResource, scanResource, bitmapDataResource)
	lookup := {1:0, 2:36, 3:72, 4:109, 5:145, 6:182, 7:218, 8:255}
	; quantization with 512 color = (Photoshop posterization by 8)
loop, % hResource
{
   y := A_Index - 1
   loop, % wResource
   {
      x := A_Index - 1
      pixelColorResource := NumGet(ScanResource+0, (A_Index-1)*4 + y*StrideResource, "uint")
	  if (pixelColorResource != 0x000000)
	  {
      Red := (pixelColorResource >> 16) & 0xFF
      Green := (pixelColorResource >> 8) & 0xFF
      Blue := pixelColorResource & 0xFF
Red := lookup[(Red // 32) + 1]
Green := lookup[(Green // 32) + 1]
Blue := lookup[(Blue // 32) + 1]
		; add 0xFF000000
	  pixelColorResource := (Red << 16) | (Green << 8) | Blue
	  pixelColorResource := pixelColorResource | 0xFF000000
      NumPut(pixelColorResource, ScanResource+0, (A_Index-1)*4 + y*StrideResource, "uint")
	  }
   }
}
	
	Gdip_UnlockBits(pBitmapResource, bitmapDataResource)
	; Save the bitmap to a file
	Gdip_SaveBitmapToFile(pBitmapResource, "C:\Q8\" thebitmapnowName ".png")
	Gdip_DisposeImage(pBitmapResource)
	Gdip_Shutdown(pToken)
	return
}

Code: Select all

#Include <ImagePut>

Str := ImagePutBase64("Lobo.jpg")

MyGui := Gui()
Pic := MyGui.Add("Pic", "w600 h-1 +Border", "HBITMAP:*" Str)
MyGui.OnEvent("Escape", (*) => ExitApp())
MyGui.OnEvent("Close", (*) => ExitApp())
MyGui.Show