Guest User

Untitled

a guest
Jun 28th, 2025
10
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.27 KB | None | 0 0
  1. #Persistent
  2. SetTitleMatchMode, 2
  3. #SingleInstance, Force
  4.  
  5. Toggle := false
  6.  
  7. F1::
  8. Toggle := true
  9. ToolTip, Macro Activated, 10, 10
  10. SetTimer, RemoveToolTip, 2000
  11. ; Get screen dimensions
  12. SysGet, MonitorWorkArea, MonitorWorkArea, 0
  13. screenWidth := MonitorWorkAreaRight - MonitorWorkAreaLeft
  14. screenHeight := MonitorWorkAreaBottom - MonitorWorkAreaTop
  15. centerX := screenWidth // 2
  16. centerY := screenHeight // 2
  17. clickY := centerY + 300 ; 300 pixels down from center
  18.  
  19. While (Toggle) {
  20. ; Hold E for 1500 ms
  21. Send, {e down}
  22. Sleep, 1500
  23. Send, {e up}
  24. Sleep, 200
  25. Send, {v}
  26.  
  27. ; Wait for 9500 ms
  28. Sleep, 10000
  29.  
  30. ; Press ` then sleep 200 ms
  31. Send, ``
  32. Sleep, 200
  33.  
  34. ; Click at centerX, clickY
  35. MouseMove, %centerX%, %clickY%, 0
  36. Sleep, 100
  37. Click
  38. Sleep, 100
  39.  
  40. ; Sleep for 2000 ms before repeating
  41. Sleep, 500
  42. }
  43. return
  44.  
  45. F2::
  46. Toggle := false
  47. ToolTip, Macro Deactivated, 10, 10
  48. SetTimer, RemoveToolTip, 2000
  49. ; Release E key in case it was held when toggled off
  50. Send, {e up}
  51. return
  52.  
  53. RemoveToolTip:
  54. SetTimer, RemoveToolTip, Off
  55. ToolTip
  56. return
Advertisement
Add Comment
Please, Sign In to add comment