API tools faq
paste
Advertisement
Guest User

1232

a guest
Nov 11th, 2019
118
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.78 KB | None | 0 0
raw download clone embed print report
  1. /* ;Notes
  2. Written By: Hellbent AKA. CivReborn
  3. Youtube Channel: https://www.youtube.com/channel/UCge0TKjySLXd8xeLib8F0rA
  4. Date Started: June 24th, 2016
  5. Date Of Last Edit: June 24th, 2016
  6. Last PasteBin Save:
  7. Description: This is a simple auto clicker with GUI
  8. */
  9.  
  10. #SingleInstance, Force
  11. CoordMode, Mouse, Screen
  12. SetMouseDelay, -1
  13. ; Global Variables
  14. ;-----------------------
  15. Global Always :=
  16. Global Delay := 0
  17. Global X :=
  18. Global Y :=
  19. Global Start_Paused :=
  20. Global Click_At_Cursor :=
  21. Global Number_Of_Clicks :=
  22. Global Current_Click_Count := 0
  23. Global Forever :=
  24. Global SetAmount :=
  25. Global None :=
  26. Global OnGUI :=
  27. Global OnTooltip :=
  28. Global Click_Display :=
  29. ; GUI Layout
  30. ;-----------------------
  31. Gui, Font, cAqua s8 ;H
  32. Gui, Add, Checkbox, x10 gAlways_On_Top vAlways Checked,: Always On Top ;E
  33. Gui, Add, CheckBox, x+10 vStart_Paused gSubmitAll, : Paused At Start ;L
  34. Gui, Add, Checkbox, x+10 vClick_At_Cursor gSubmitAll, : Click At Cursor ;L
  35. Gui, Add, Button, x10 w170 h13 gSet_Click_Location, Set Click Location ;B
  36. Gui, Add, Edit, cblack x+10 w150 h15 vDisplay_Click_Location, ;E
  37. Gui, Add, Text, x10, Set delay between clicks: ;N
  38. Gui, Add, Edit, cblack x+20 w150 h15 vSet_Delay gSubmitDelay ;T
  39. Gui, Add, Text, x+10, (ms) ;H
  40. Gui, Add, Text, x10, Duration of auto clicker: ;E
  41. Gui, Add, Radio, x+20 gSubmitAll vForever, Forever ;L
  42. Gui, Add, Radio, x+20 gSubmitAll vSetAmount, Set Amount ;L
  43. Gui, Add, Text, x10, Number of clicks: ;B
  44. Gui, Add, Edit, cblack x+20 w225 h15 vNumber_Of_Clicks gSubmitAll, ;E
  45. Gui, Add, Text, x10, Click counter: ;N
  46. Gui, Add, Radio, x+20 gSubmitAll vNone, None ;T
  47. Gui, Add, Radio, x+20 gSubmitAll vOnGUI, On Gui ;H
  48. Gui, Add, Radio, x+20 gSubmitAll vOnTooltip, Tooltip ;E
  49. Gui, Add, Text, x10, Click Count: ;L
  50. Gui, Add, Edit, cBlack x+20 w150 h15 vClick_Display, ;L
  51. Gui, Add, Button, x+20 w80 h13 gReset_Count, Reset Count
  52. Gui, Add, Button, x10 w330 h13 gDisplayHotkeys,?? Hotkeys ?? ;B
  53. Gui, Add, Button, x10 w150 h20 gStart_Auto_Clicker, Start ;E
  54. Gui, Add, Button, x+30 w150 h20 gResetApp, Reset ;N
  55. Gui, Color, Black ;Aqua ;Silver ;T
  56. Gui, +AlwaysOnTop
  57. Gui, Show, w350 h190, ***Hellbents Auto Clicker***
  58. return
  59. ; Lables
  60. ;------------------
  61.  
  62. GuiClose:
  63. ExitApp
  64. return
  65. SubmitDelay:
  66. Gui, Submit, NoHide
  67. Delay := Set_Delay
  68. if(Delay<0)
  69. {
  70. Delay := 0
  71. }
  72. return
  73. Reset_Count:
  74. Current_Click_Count := 0
  75. GuiControl,,Click_Display,%Current_Click_Count%
  76. return
  77. ResetApp:
  78. Reload
  79. return
  80. Always_On_Top:
  81. Gui, Submit, NoHide
  82. if(Always==1)
  83. {
  84. Gui,+AlwaysOnTop
  85. }
  86. if(Always==0)
  87. {
  88. Gui,-AlwaysOnTop
  89. }
  90. return
  91. DisplayHotkeys:
  92. msgbox,4096,Hellbents Auto Clicker, Press Ctrl+Z to Pause the Auto Clicker`nPress Ctrl+X to Exit the Auto Clicker`n`nBy Hellbent AKA The Auto Clicker Guy`n`nChannel: https://www.youtube.com/channel/UCK7iJkWCFfDwLmAKf4JlCEw
  93. return
  94. SubmitAll:
  95. Gui, Submit, NoHide
  96. return
  97.  
  98. Set_Click_Location:
  99. Get_X_And_Y()
  100. GuiControl,, Display_Click_Location,`t %X% %Y%
  101. ;msgbox, %Number_Of_Clicks%
  102. return
  103. Start_Auto_Clicker:
  104. if(Start_Paused==1)
  105. {
  106. Pause On
  107. }
  108. Run_Auto_Clicker()
  109. return
  110. ; Functions
  111. ;---------------------
  112. Get_X_And_Y()
  113. {
  114. pressed := 0
  115. Loop
  116. {
  117. MouseGetPos, tempX, tempY
  118. Tooltip, X = %tempX% Y = %tempY%
  119. GetKeyState, Mouse_State, LButton
  120. Mouse_State := GetKeyState("LButton")
  121. if(Mouse_State==0)
  122. {
  123. pressed := 1
  124. }
  125. if(pressed==1)
  126. {
  127. if(Mouse_State==1)
  128. {
  129. X := tempX
  130. Y := tempY
  131. pressed := 0
  132. Tooltip,
  133. break
  134. }
  135. }
  136. }
  137. }
  138. Run_Auto_Clicker()
  139. {
  140. if(Click_At_Cursor==1)
  141. {
  142. if(Forever==1)
  143. {
  144. Loop
  145. {
  146. Click,
  147. if(OnGui==1)
  148. {
  149. Current_Click_Count++
  150. GuiControl,,Click_Display,%Current_Click_Count%
  151. }
  152. if(OnTooltip==1)
  153. {
  154. Current_Click_Count++
  155. Tooltip, %Current_Click_Count%
  156. }
  157. Sleep, %Delay%
  158. }
  159. }
  160. if(SetAmount==1)
  161. {
  162. Loop %Number_Of_Clicks%
  163. {
  164. Click,
  165. if(OnGui==1)
  166. {
  167. Current_Click_Count++
  168. GuiControl,,Click_Display,%Current_Click_Count%
  169. }
  170. if(OnTooltip==1)
  171. {
  172. Current_Click_Count++
  173. Tooltip, %Current_Click_Count%
  174. }
  175. Sleep, %Delay%
  176. }
  177. }
  178. }
  179. if(Click_At_Cursor==0&&X!=Null)
  180. {
  181. if(Forever==1)
  182. {
  183. Loop
  184. {
  185. Click, %X% %Y%
  186. if(OnGui==1)
  187. {
  188. Current_Click_Count++
  189. GuiControl,,Click_Display,%Current_Click_Count%
  190. }
  191. if(OnTooltip==1)
  192. {
  193. Current_Click_Count++
  194. Tooltip, %Current_Click_Count%
  195. }
  196. Sleep, %Delay%
  197. }
  198. }
  199. if(SetAmount==1)
  200. {
  201. Loop %Number_Of_Clicks%
  202. {
  203. Click, %X% %Y%
  204. if(OnGui==1)
  205. {
  206. Current_Click_Count++
  207. GuiControl,,Click_Display,%Current_Click_Count%
  208. }
  209. if(OnTooltip==1)
  210. {
  211. Current_Click_Count++
  212. Tooltip, %Current_Click_Count%
  213. }
  214. Sleep, %Delay%
  215. }
  216. }
  217. }
  218. Tooltip,
  219. }
  220. ; Hotkeys
  221. ;------------------------
  222. ^z:: Pause
  223. ^x::ExitApp
  224. RAW Paste Data
  225. /* ;Notes
  226. Written By: Hellbent AKA. CivReborn
  227. Youtube Channel: https://www.youtube.com/channel/UCge0TKjySLXd8xeLib8F0rA
  228. Date Started: June 24th, 2016
  229. Date Of Last Edit: June 24th, 2016
  230. Last PasteBin Save:
  231. Description: This is a simple auto clicker with GUI
  232. */
  233.  
  234. #SingleInstance, Force
  235. CoordMode, Mouse, Screen
  236. SetMouseDelay, -1
  237. ; Global Variables
  238. ;-----------------------
  239. Global Always :=
  240. Global Delay := 0
  241. Global X :=
  242. Global Y :=
  243. Global Start_Paused :=
  244. Global Click_At_Cursor :=
  245. Global Number_Of_Clicks :=
  246. Global Current_Click_Count := 0
  247. Global Forever :=
  248. Global SetAmount :=
  249. Global None :=
  250. Global OnGUI :=
  251. Global OnTooltip :=
  252. Global Click_Display :=
  253. ; GUI Layout
  254. ;-----------------------
  255. Gui, Font, cAqua s8 ;H
  256. Gui, Add, Checkbox, x10 gAlways_On_Top vAlways Checked,: Always On Top ;E
  257. Gui, Add, CheckBox, x+10 vStart_Paused gSubmitAll, : Paused At Start ;L
  258. Gui, Add, Checkbox, x+10 vClick_At_Cursor gSubmitAll, : Click At Cursor ;L
  259. Gui, Add, Button, x10 w170 h13 gSet_Click_Location, Set Click Location ;B
  260. Gui, Add, Edit, cblack x+10 w150 h15 vDisplay_Click_Location, ;E
  261. Gui, Add, Text, x10, Set delay between clicks: ;N
  262. Gui, Add, Edit, cblack x+20 w150 h15 vSet_Delay gSubmitDelay ;T
  263. Gui, Add, Text, x+10, (ms) ;H
  264. Gui, Add, Text, x10, Duration of auto clicker: ;E
  265. Gui, Add, Radio, x+20 gSubmitAll vForever, Forever ;L
  266. Gui, Add, Radio, x+20 gSubmitAll vSetAmount, Set Amount ;L
  267. Gui, Add, Text, x10, Number of clicks: ;B
  268. Gui, Add, Edit, cblack x+20 w225 h15 vNumber_Of_Clicks gSubmitAll, ;E
  269. Gui, Add, Text, x10, Click counter: ;N
  270. Gui, Add, Radio, x+20 gSubmitAll vNone, None ;T
  271. Gui, Add, Radio, x+20 gSubmitAll vOnGUI, On Gui ;H
  272. Gui, Add, Radio, x+20 gSubmitAll vOnTooltip, Tooltip ;E
  273. Gui, Add, Text, x10, Click Count: ;L
  274. Gui, Add, Edit, cBlack x+20 w150 h15 vClick_Display, ;L
  275. Gui, Add, Button, x+20 w80 h13 gReset_Count, Reset Count
  276. Gui, Add, Button, x10 w330 h13 gDisplayHotkeys,?? Hotkeys ?? ;B
  277. Gui, Add, Button, x10 w150 h20 gStart_Auto_Clicker, Start ;E
  278. Gui, Add, Button, x+30 w150 h20 gResetApp, Reset ;N
  279. Gui, Color, Black ;Aqua ;Silver ;T
  280. Gui, +AlwaysOnTop
  281. Gui, Show, w350 h190, ***Hellbents Auto Clicker***
  282. return
  283. ; Lables
  284. ;------------------
  285.  
  286. GuiClose:
  287. ExitApp
  288. return
  289. SubmitDelay:
  290. Gui, Submit, NoHide
  291. Delay := Set_Delay
  292. if(Delay<0)
  293. {
  294. Delay := 0
  295. }
  296. return
  297. Reset_Count:
  298. Current_Click_Count := 0
  299. GuiControl,,Click_Display,%Current_Click_Count%
  300. return
  301. ResetApp:
  302. Reload
  303. return
  304. Always_On_Top:
  305. Gui, Submit, NoHide
  306. if(Always==1)
  307. {
  308. Gui,+AlwaysOnTop
  309. }
  310. if(Always==0)
  311. {
  312. Gui,-AlwaysOnTop
  313. }
  314. return
  315. DisplayHotkeys:
  316. msgbox,4096,Hellbents Auto Clicker, Press Ctrl+Z to Pause the Auto Clicker`nPress Ctrl+X to Exit the Auto Clicker`n`nBy Hellbent AKA The Auto Clicker Guy`n`nChannel: https://www.youtube.com/channel/UCK7iJkWCFfDwLmAKf4JlCEw
  317. return
  318. SubmitAll:
  319. Gui, Submit, NoHide
  320. return
  321.  
  322. Set_Click_Location:
  323. Get_X_And_Y()
  324. GuiControl,, Display_Click_Location,`t %X% %Y%
  325. ;msgbox, %Number_Of_Clicks%
  326. return
  327. Start_Auto_Clicker:
  328. if(Start_Paused==1)
  329. {
  330. Pause On
  331. }
  332. Run_Auto_Clicker()
  333. return
  334. ; Functions
  335. ;---------------------
  336. Get_X_And_Y()
  337. {
  338. pressed := 0
  339. Loop
  340. {
  341. MouseGetPos, tempX, tempY
  342. Tooltip, X = %tempX% Y = %tempY%
  343. GetKeyState, Mouse_State, LButton
  344. Mouse_State := GetKeyState("LButton")
  345. if(Mouse_State==0)
  346. {
  347. pressed := 1
  348. }
  349. if(pressed==1)
  350. {
  351. if(Mouse_State==1)
  352. {
  353. X := tempX
  354. Y := tempY
  355. pressed := 0
  356. Tooltip,
  357. break
  358. }
  359. }
  360. }
  361. }
  362. Run_Auto_Clicker()
  363. {
  364. if(Click_At_Cursor==1)
  365. {
  366. if(Forever==1)
  367. {
  368. Loop
  369. {
  370. Click,
  371. if(OnGui==1)
  372. {
  373. Current_Click_Count++
  374. GuiControl,,Click_Display,%Current_Click_Count%
  375. }
  376. if(OnTooltip==1)
  377. {
  378. Current_Click_Count++
  379. Tooltip, %Current_Click_Count%
  380. }
  381. Sleep, %Delay%
  382. }
  383. }
  384. if(SetAmount==1)
  385. {
  386. Loop %Number_Of_Clicks%
  387. {
  388. Click,
  389. if(OnGui==1)
  390. {
  391. Current_Click_Count++
  392. GuiControl,,Click_Display,%Current_Click_Count%
  393. }
  394. if(OnTooltip==1)
  395. {
  396. Current_Click_Count++
  397. Tooltip, %Current_Click_Count%
  398. }
  399. Sleep, %Delay%
  400. }
  401. }
  402. }
  403. if(Click_At_Cursor==0&&X!=Null)
  404. {
  405. if(Forever==1)
  406. {
  407. Loop
  408. {
  409. Click, %X% %Y%
  410. if(OnGui==1)
  411. {
  412. Current_Click_Count++
  413. GuiControl,,Click_Display,%Current_Click_Count%
  414. }
  415. if(OnTooltip==1)
  416. {
  417. Current_Click_Count++
  418. Tooltip, %Current_Click_Count%
  419. }
  420. Sleep, %Delay%
  421. }
  422. }
  423. if(SetAmount==1)
  424. {
  425. Loop %Number_Of_Clicks%
  426. {
  427. Click, %X% %Y%
  428. if(OnGui==1)
  429. {
  430. Current_Click_Count++
  431. GuiControl,,Click_Display,%Current_Click_Count%
  432. }
  433. if(OnTooltip==1)
  434. {
  435. Current_Click_Count++
  436. Tooltip, %Current_Click_Count%
  437. }
  438. Sleep, %Delay%
  439. }
  440. }
  441. }
  442. Tooltip,
  443. }
  444. ; Hotkeys
  445. ;------------------------
  446. ^z:: Pause
  447. ^x::ExitApp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!