一键贴图

F1::
CoordMode, Mouse
MouseGetPos, x, y
贴图(x, y, A_AhkPath "\..\a.png")
Return

贴图(x, y, 图片路径, 序号=1) {
 i:="Pic" 序号
 Gui, %i%: Destroy
 Gui, %i%: +LastFound +AlwaysOnTop +ToolWindow -Caption +E0x20
 Gui, %i%: Color, FFFFFF
 WinSet, TransColor, FFFFFF 150
 Gui, %i%: Margin, 0, 0
 Gui, %i%: Add, Picture, w120 h-1 +Hwndmyid, %图片路径%
 ControlGetPos,,, w, h,, ahk_id %myid%
 x:=Round(x-w//2), y:=Round(y-h//2)
 Gui, %i%: Show, NA x%x% y%y%
}