Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #MaxThreadsPerHotkey 4
- SetStoreCapslockMode, Off
- hICON := Base64toHICON() ; Create a HICON
- Menu, Tray, Icon, HICON:*%hICON% ; AHK makes a copy of HICON when * is used
- Menu, Tray, Icon
- Menu, Tray, NoStandard
- Menu, Tray, Add, Pottu Macro, MenuHandler ; Creates a new menu item.
- Menu, Tray, Icon, Pottu Macro, HICON:*%hICON%
- Menu, Tray, Add ; Creates a separator line.
- Menu, Tray, Standard
- DllCall( "DestroyIcon", "Ptr",hICON ) ; Destroy original HICON
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- Random ranSleep, 10, 60
- Random ranSleep2, 320, 400
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- xbutton1::
- If WinActive("Path of Exile")
- {
- SendInput {1}
- sleep %ranSleep%
- SendInput {2}
- sleep %ranSleep%
- SendInput {3}
- sleep %ranSleep%
- SendInput {4}
- sleep %ranSleep%
- SendInput {5}
- sleep %ranSleep%
- SendInput {r}
- }
- return
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- MenuHandler:
- return
- ;;;;;;;;;;;;;;; ICON GEN https://autohotkey.com/boards/viewtopic.php?t=36640
- Base64toHICON() { ; 16x16 PNG image (768 bytes), requires WIN Vista and later
- Local B64 := "iVBORw0KGgoAAAANSUhEUgA"
- . "AABAAAAAQCAYAAAAf8/9hAAAACXBIWXMAAAsTAAALEwEAmpwYAAAB8UlEQVQ4jYWST4vTQBy"
- . "G39n+3XSztexuXYLtdlkQahZKWy+7euhFe/EgeBDXi/0Cfgu/iuBlERRP4knIsYdqEQkWq7WVJv2TZJqkmc54aUHaQt"
- . "7TML+HZ3hnJoLNkNWi0WgUVVVNt1qt8XI/BoD/D+9sEQhCCKnVao8lSWopivK1Xq9XlzO+Dm8TQAhByuVy"
- . "zTCMCKU0oapqFYAAsAgVkGXa7fbrfD5Ps9ms1e/336/XWyW65XQBYDGZTJq6rr/lnLuapg1X43U+sq"
- . "1CqVSqXt6rvbu6evrg4uKykskcPnEc+9Ng0DdCKwDA0c3TVweHSskYUXR/DSDt37qTL9y+LhRO5FBBpXL3"
- . "mSynHjI2J45LiOf7BNwiJ2fVYvY49yhUEEukXyTlM4BEEMw92A6DILJI7mYQj+/fDxXI6eMktYfE8xf"
- . "IKymcF3NwZxNimgb29uTTdX7jFQLfHLFESvgeI71eD7FYHMMxx2gSRcBTG/9gQ8CFNLPGf9DdzYHsm"
- . "KDUgk0JpmMKz+79Dq3A2egjWzASOF9g/P0JY7SAa3UQ0A5SkvgQKpjR6RspIbqex2DPGMAt+HOBWHT+vdP"
- . "5ES5oNpsz17WeHx3ELVmKIB71BGOucF3npa7r4XcAAJqmfVYU5Tydlm9YVoDAnzLTNL9tY/8BL8HhacCFg/"
- . "YAAAAASUVORK5CYII=", Bin, Blen, nBytes:=768, hICON:=0
- VarSetCapacity( Bin,nBytes,0 ), BLen := StrLen(B64)
- If DllCall( "Crypt32.dll\CryptStringToBinary", "Str",B64, "UInt",BLen, "UInt",0x1
- , "Ptr",&Bin, "UIntP",nBytes, "Int",0, "Int",0 )
- hICON := DllCall( "CreateIconFromResourceEx", "Ptr",&Bin, "UInt",nBytes, "Int",True
- , "UInt",0x30000, "Int",16, "Int",16, "UInt",0, "UPtr" )
- Return hICON
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement