Advertisement
Guest User

Untitled

a guest
Mar 21st, 2017
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;Press your keyboards 'insert' key to toggle
  2. ;End key to close the application
  3.  
  4. Insert::
  5. NRA := !NRA
  6.  
  7. if (NRA)
  8.     SoundBeep 500, 150 ;High pitch noise (On)
  9. else
  10.     SoundBeep 100, 150 ;Low pitch noise (Off)
  11. return
  12.  
  13. #If NRA
  14.  
  15. End::
  16. ExitApp
  17.  
  18. LButton::
  19. Loop
  20. {
  21. SetMouseDelay 2 ;Try changing this from 1-4 depending on your PCs speed
  22. Click
  23. If (GetKeyState("LButton","P")=0)
  24. Break
  25. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement