Advertisement
Guest User

Untitled

a guest
Aug 19th, 2017
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #SingleInstance, Force
  2. #NoEnv
  3. SetBatchLines, -1
  4. Process, Priority,, High
  5.  
  6. #Include, Gdip_All.ahk
  7. #Include, Gdip_ImageSearch.ahk
  8.  
  9. F1::
  10. vPathN = snicker.png
  11.  
  12. vScreen1 := 0
  13. vScreen2 := 0
  14. vScreen3 := A_ScreenWidth
  15. vScreen4 := A_ScreenHeight
  16. vScreen := vScreen1 "|" vScreen2 "|" vScreen3 "|" vScreen4
  17. vPos1 := 0, vPos2 := 0, vPos3 := vScreen3, vPos4 := vScreen4
  18.  
  19. pToken := Gdip_Startup()
  20.  
  21. pBitmapH := Gdip_BitmapFromScreen(vScreen, 0x40CC0020)
  22. Gdip_SaveBitmapToFile(pBitmapH, "Image.png")
  23.  
  24. pBitmapN := Gdip_CreateBitmapFromFile(vPathN)
  25.  
  26. vRet := Gdip_ImageSearch(pBitmapH, pBitmapN, vPosXY, vPos1, vPos2, vPos3, vPos4)
  27. vPos := InStr(vPosXY, ",")
  28. vPosX := SubStr(vPosXY, 1, vPos-1)
  29. vPosY := SubStr(vPosXY, vPos+1)
  30. MsgBox % vRet " (" vPosXY ")"
  31. ;MsgBox % vPosX " " vPosY
  32. Return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement