PhieuLang

UpChau

Sep 25th, 2013
139
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.36 KB | None | 0 0
  1. #include <Array.au3>
  2. #include <Timers.au3>
  3. Global $Paused
  4.  
  5.  
  6. if Not HotKeySet("{F2}", "clickF2") then Exit
  7. if Not HotKeySet("{F3}", "clickIgnore") then Exit
  8. if Not HotKeySet("{F1}", "clickF1") then Exit
  9. if Not HotKeySet("{F4}", "clickF4") then Exit
  10. if Not HotKeySet("{F5}", "clickF5") then Exit
  11.  
  12. Global $vitri = 0
  13. Global $vitri0 = 0
  14. $pos1 = 0
  15. While 1
  16.    Sleep(100)
  17. WEnd
  18.  
  19.  
  20. Func clickIgnore()
  21.    Local $pos = MouseGetPos()
  22.    for $i = 1 to 20
  23.       MouseMove(681,535,0)
  24.       MouseClick("",681,535)
  25.    Next
  26.    MouseMove(611,573,0)
  27.    MouseClick("",611,573)
  28.    Sleep(200)
  29.    MouseMove(688,486,0)
  30.    MouseClick("",688,486)
  31.    Sleep(2800)
  32.    MouseMove(758,314,0)
  33.    MouseClick("",758,314)
  34.    MouseMove($pos[0]+68,$vitri0,0)
  35. EndFunc
  36. Func clickF2()
  37.    Local $pos = MouseGetPos()
  38.    MouseClick("")
  39.    Sleep(100)
  40.    MouseMove($pos[0],$vitri,0)
  41.    MouseClick("",$pos[0],$vitri)
  42.    Sleep(150)
  43.    clickIgnore()
  44. EndFunc
  45. Func clickF4()
  46.    Local $pos = MouseGetPos()
  47.    $vitri = $pos[1]
  48. EndFunc
  49. Func clickF5()
  50.    Local $pos = MouseGetPos()
  51.    $vitri0 = $pos[1]
  52. EndFunc
  53.  
  54. Func ClickF1()
  55.    Local $pos = MouseGetPos()
  56.    MouseMove(758,314,0)
  57.    MouseClick("",758,314)
  58.    MouseMove($pos[0],$vitri0,0)
  59.    ;MouseClick("",$pos[1],$vitri0)
  60. EndFunc
  61.  
  62. Func TogglePause()
  63.    $Paused = Not $Paused
  64.    While $Paused
  65.         Sleep(100)
  66.    WEnd
  67. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment