Advertisement
Guest User

Untitled

a guest
Jun 20th, 2019
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.36 KB | None | 0 0
  1. #MaxThreadsPerHotkey 4
  2. SetStoreCapslockMode, Off
  3.  
  4. hICON := Base64toHICON() ; Create a HICON
  5. Menu, Tray, Icon, HICON:*%hICON% ; AHK makes a copy of HICON when * is used
  6. Menu, Tray, Icon
  7.  
  8. Menu, Tray, NoStandard
  9. Menu, Tray, Add, Pottu Macro, MenuHandler ; Creates a new menu item.
  10. Menu, Tray, Icon, Pottu Macro, HICON:*%hICON%
  11. Menu, Tray, Add ; Creates a separator line.
  12. Menu, Tray, Standard
  13. DllCall( "DestroyIcon", "Ptr",hICON ) ; Destroy original HICON
  14.  
  15.  
  16. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  17. Random ranSleep, 10, 60
  18. Random ranSleep2, 320, 400
  19. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  20.  
  21. xbutton1::
  22. If WinActive("Path of Exile")
  23. {
  24. SendInput {1}
  25. sleep %ranSleep%
  26. SendInput {2}
  27. sleep %ranSleep%
  28. SendInput {3}
  29. sleep %ranSleep%
  30. SendInput {4}
  31. sleep %ranSleep%
  32. SendInput {5}
  33. sleep %ranSleep%
  34. SendInput {r}
  35. }
  36. return
  37.  
  38.  
  39.  
  40.  
  41. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  42. MenuHandler:
  43. return
  44.  
  45. ;;;;;;;;;;;;;;; ICON GEN https://autohotkey.com/boards/viewtopic.php?t=36640
  46.  
  47. Base64toHICON() { ; 16x16 PNG image (768 bytes), requires WIN Vista and later
  48. Local B64 := "iVBORw0KGgoAAAANSUhEUgA"
  49. . "AABAAAAAQCAYAAAAf8/9hAAAACXBIWXMAAAsTAAALEwEAmpwYAAAB8UlEQVQ4jYWST4vTQBy"
  50. . "G39n+3XSztexuXYLtdlkQahZKWy+7euhFe/EgeBDXi/0Cfgu/iuBlERRP4knIsYdqEQkWq7WVJv2TZJqkmc54aUHaQt"
  51. . "7TML+HZ3hnJoLNkNWi0WgUVVVNt1qt8XI/BoD/D+9sEQhCCKnVao8lSWopivK1Xq9XlzO+Dm8TQAhByuVy"
  52. . "zTCMCKU0oapqFYAAsAgVkGXa7fbrfD5Ps9ms1e/336/XWyW65XQBYDGZTJq6rr/lnLuapg1X43U+sq"
  53. . "1CqVSqXt6rvbu6evrg4uKykskcPnEc+9Ng0DdCKwDA0c3TVweHSskYUXR/DSDt37qTL9y+LhRO5FBBpXL3"
  54. . "mSynHjI2J45LiOf7BNwiJ2fVYvY49yhUEEukXyTlM4BEEMw92A6DILJI7mYQj+/fDxXI6eMktYfE8xf"
  55. . "IKymcF3NwZxNimgb29uTTdX7jFQLfHLFESvgeI71eD7FYHMMxx2gSRcBTG/9gQ8CFNLPGf9DdzYHsm"
  56. . "KDUgk0JpmMKz+79Dq3A2egjWzASOF9g/P0JY7SAa3UQ0A5SkvgQKpjR6RspIbqex2DPGMAt+HOBWHT+vdP"
  57. . "5ES5oNpsz17WeHx3ELVmKIB71BGOucF3npa7r4XcAAJqmfVYU5Tydlm9YVoDAnzLTNL9tY/8BL8HhacCFg/"
  58. . "YAAAAASUVORK5CYII=", Bin, Blen, nBytes:=768, hICON:=0
  59.  
  60. VarSetCapacity( Bin,nBytes,0 ), BLen := StrLen(B64)
  61. If DllCall( "Crypt32.dll\CryptStringToBinary", "Str",B64, "UInt",BLen, "UInt",0x1
  62. , "Ptr",&Bin, "UIntP",nBytes, "Int",0, "Int",0 )
  63. hICON := DllCall( "CreateIconFromResourceEx", "Ptr",&Bin, "UInt",nBytes, "Int",True
  64. , "UInt",0x30000, "Int",16, "Int",16, "UInt",0, "UPtr" )
  65. Return hICON
  66. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement