Xyberviri

FullAuto.au3

Dec 19th, 2018
579
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.63 KB | None | 0 0
  1. Global $FAEnabled = 0
  2. HotKeySet("{PAUSE}", "ToggleFullAuto")
  3. HotKeySet("{ESC}", "Terminate")
  4. #include <Misc.au3>
  5. ToolTip('FullAuto Running',0,0)
  6.  
  7. While 1
  8.     sleep(10)
  9.     If $FAEnabled Then
  10.     sleep(10)
  11.         If _IsPressed("01") Then
  12.             MouseUp("left") ; Set the left mouse button state as up.
  13.             Sleep(10)
  14.             MouseDown("left") ; Set the left mouse button state as down.
  15.             Sleep(10)
  16.         EndIf  
  17.     EndIf
  18.     sleep(10)
  19. WEnd
  20.  
  21. Func ToggleFullAuto()
  22.     $FAEnabled = NOT $FAEnabled
  23.         If $FAEnabled Then
  24.             ToolTip('FullAuto "Enabled"',0,0)
  25.         Else
  26.             ToolTip('FullAuto "Disabled"',0,0)
  27.         EndIf
  28. EndFunc
  29.  
  30. Func Terminate()
  31.     Exit 0
  32. EndFunc
Advertisement