Advertisement
Guest User

Untitled

a guest
Feb 18th, 2017
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.99 KB | None | 0 0
  1. #RequireAdmin
  2. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  3. #AutoIt3Wrapper_icon=ct3.ico
  4. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  5. #include <Misc.au3>
  6. $dll = DllOpen("user32.dll")
  7. HotKeySet("{pgup}", "Start")
  8. HotKeySet("{pgdn}", "Pause")
  9. HotKeySet("{HOME}", "init")
  10.  
  11.  
  12. Opt("SendKeyDelay", 1)
  13.  
  14. $delay = 20
  15.  
  16.  
  17.  
  18.  
  19.  
  20. While 1
  21. Sleep(1000)
  22. WEnd
  23.  
  24. Func init()
  25.  
  26. SoundPlay(@WindowsDir & "\media\tada.wav", 1)
  27. sleep(1000)
  28. Global $aPos = MouseGetPos()
  29.  
  30.  
  31. SoundPlay(@WindowsDir & "\media\tada.wav", 1)
  32. sleep(1000)
  33. Global $aPos2 = MouseGetPos()
  34.  
  35. sleep(200)
  36. SoundPlay(@WindowsDir & "\media\tada.wav", 1)
  37.  
  38. EndFunc
  39.  
  40.  
  41. Func Start()
  42. While 1
  43. MouseMove($aPos[0], $aPos[1], 1) ;von
  44. Sleep($delay)
  45.  
  46. MouseDown("left")
  47. Sleep($delay)
  48.  
  49. MouseMove($aPos2[0], $aPos2[1], 1);nach
  50. Sleep($delay)
  51.  
  52. MouseUp("left")
  53. Sleep($delay)
  54. Send("{Enter}")
  55. Sleep(1)
  56. Send("{Enter}")
  57. Sleep($delay)
  58. WEnd
  59. EndFunc
  60.  
  61.  
  62. Func Pause()
  63.  
  64.     While 1
  65.     Sleep(1000)
  66.     WEnd
  67. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement