API tools faq
paste
Guest User

ahk 4.0

a guest
Jul 17th, 2020
455
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.61 KB | None | 0 0
raw download clone embed print report
  1. ^S::
  2.  
  3. loop {
  4.  
  5. ToolTip, Go To choose Character Screen (Loop %A_index%), 0, 0
  6.  
  7. Sleep, 750
  8. Send {p} ; menu
  9. Sleep, 750
  10.  
  11. send {right}
  12. sleep ,750
  13. send {right}
  14. sleep ,750
  15. send {right}
  16. sleep ,750
  17. send {right}
  18. sleep ,750
  19. send {right}
  20. sleep ,750
  21. send {enter}
  22. sleep ,750
  23.  
  24. sleep ,750
  25. send {down}
  26. sleep ,750
  27. send {down}
  28. sleep ,750
  29. send {down}
  30. sleep ,750
  31. send {down}
  32.  
  33. sleep,750
  34. send {enter}
  35. sleep, 750
  36. send {enter}
  37.  
  38. ToolTip, Wating For Swap Character Screen Confirmation (Loop %A_index%), 0, 0
  39.  
  40. Loop {
  41. Sleep, 500
  42. PixelGetColor, color, 785,586
  43. Sleep, 500
  44. } Until (color="0xF4F4F4") ; character select screen confirmation
  45.  
  46. ToolTip, Step 3/12 - Switching To First Character And Disconnecting , 0, 0
  47.  
  48. Sleep, 500
  49. Send {Left} ; 1st char
  50. Sleep, 1000
  51. Send {Enter}
  52. Sleep, 5000
  53.  
  54. ;-------------------------------Edit The Directory Here-------------------------------
  55.  
  56. cmdline := "netsh advfirewall firewall add rule name=""BATCH GTA 5 BLOCK"" dir=out action=block program=""E:\gta v\GTAV\GTA5.exe"""
  57. runwait, %cmdline%,, Hide
  58.  
  59. ;-------------------------------------------------------------------------------------
  60.  
  61. Sleep, 5000
  62. Send {Enter}
  63. Sleep, 50
  64.  
  65. cmdline := "netsh advfirewall firewall delete rule name=""BATCH GTA 5 BLOCK"""
  66. runwait, %cmdline%,, Hide
  67.  
  68. Sleep, 7000
  69. Send {Enter}
  70.  
  71.  
  72. Sleep, 7000
  73. Send {Enter}
  74.  
  75. ToolTip, Suspending And Wating For Second Character To Load (Loop %A_index%), 0, 0
  76.  
  77. ;-----Suspend
  78.  
  79. Sleep 45000
  80. Process_Suspend("GTA5.exe")
  81. Sleep, 15000
  82. Process_Resume("GTA5.exe")
  83.  
  84. ;-----------xxxxxxxxxxxx----------------
  85.  
  86. ;----Suspend Function
  87. Process_Suspend(PID_or_Name){
  88. PID := (InStr(PID_or_Name,".")) ? ProcExist(PID_or_Name) : PID_or_Name
  89. h:=DllCall("OpenProcess", "uInt", 0x1F0FFF, "Int", 0, "Int", pid)
  90. If !h
  91. Return -1
  92. DllCall("ntdll.dll\NtSuspendProcess", "Int", h)
  93. DllCall("CloseHandle", "Int", h)
  94. }
  95.  
  96. ;----Resume Function
  97. Process_Resume(PID_or_Name){
  98. PID := (InStr(PID_or_Name,".")) ? ProcExist(PID_or_Name) : PID_or_Name
  99. h:=DllCall("OpenProcess", "uInt", 0x1F0FFF, "Int", 0, "Int", pid)
  100. If !h
  101. Return -1
  102. DllCall("ntdll.dll\NtResumeProcess", "Int", h)
  103. DllCall("CloseHandle", "Int", h)
  104. }
  105. ProcExist(PID_or_Name=""){
  106. Process, Exist, % (PID_or_Name="") ? DllCall("GetCurrentProcessID") : PID_or_Name
  107. Return Errorlevel
  108. }
  109. ;------
  110.  
  111. Loop {
  112. Sleep, 5000
  113. Send {Up}
  114. PixelGetColor, color, 653, 318
  115. } Until (color="0x000000")
  116.  
  117. ;------------------xxxxxxxxxxxxxx------------------
  118.  
  119. ToolTip, Selling Apts (Loop %A_index%), 0, 0
  120.  
  121. Sleep, 700
  122. Send {Down}
  123. Sleep, 700
  124. Send {Down}
  125. Sleep, 700
  126. Send {Enter}
  127. Sleep, 1700
  128. MouseClick, left, 604, 437, 5,25 ; Dynasty8
  129. Sleep, 1700
  130. MouseClick, left, 229, 320, 5,25 ; View Property
  131. Sleep, 1700
  132. MouseClick, left, 183, 186, 5,25 ; low to high
  133. Sleep, 1700
  134. MouseClick, left, 213, 312, 5,25
  135. Sleep, 1700
  136. MouseClick, left, 620, 435, 5,25
  137.  
  138. Sleep, 800
  139. Send {Enter}
  140. Sleep, 800
  141. Send {Enter}
  142. Sleep, 5000
  143.  
  144. sleep, 2000
  145. MouseClick, left, 381, 476, 5, 25 ; back to map
  146. Sleep, 1700
  147. MouseClick, left, 233, 183, 5, 25 ; high to low
  148. Sleep, 1700
  149. MouseClick, left, 183, 186, 5, 25 ; low to high
  150. Sleep, 1700
  151. MouseClick, left, 213, 312, 5, 25
  152. Sleep, 1700
  153. MouseClick, left, 620, 435, 5, 25
  154. Sleep, 1700
  155.  
  156. send {down}
  157. Sleep, 800
  158. Send {Enter}
  159. Sleep, 800
  160. Send {Enter}
  161. Sleep, 5000
  162.  
  163. sleep, 2000
  164. MouseClick, left, 381, 476, 5, 25 ; back to map
  165. Sleep, 1700
  166. MouseClick, left, 233, 183, 5, 25 ; high to low
  167. Sleep, 1700
  168. MouseClick, left, 183, 186, 5, 25 ; low to high
  169. Sleep, 1700
  170. MouseClick, left, 213, 312, 5, 25
  171. Sleep, 1700
  172. MouseClick, left, 620, 435, 5, 25
  173. Sleep, 1700
  174.  
  175. send {down}
  176. Sleep, 800
  177. send {down}
  178. Sleep, 800
  179. Send {Enter}
  180. Sleep, 800
  181. Send {Enter}
  182. Sleep, 5000
  183.  
  184. sleep, 2000
  185. MouseClick, left, 381, 476, 5, 25 ; back to map
  186. Sleep, 1700
  187. MouseClick, left, 233, 183, 5, 25 ; high to low
  188. Sleep, 1700
  189. MouseClick, left, 183, 186, 5, 25 ; low to high
  190. Sleep, 1700
  191. MouseClick, left, 213, 312, 5, 25
  192. Sleep, 1700
  193. MouseClick, left, 620, 435, 5, 25
  194. Sleep, 1700
  195.  
  196. send {down}
  197. Sleep, 800
  198. send {down}
  199. Sleep, 800
  200. send {down}
  201. Sleep, 800
  202. Send {Enter}
  203. Sleep, 800
  204. Send {Enter}
  205. Sleep, 5000
  206.  
  207. sleep, 2000
  208. MouseClick, left, 381, 476, 5, 25 ; back to map
  209. Sleep, 1700
  210. MouseClick, left, 233, 183, 5, 25 ; high to low
  211. Sleep, 1700
  212. MouseClick, left, 183, 186, 5, 25 ; low to high
  213. Sleep, 1700
  214. MouseClick, left, 213, 312, 5, 25
  215. Sleep, 1700
  216. MouseClick, left, 620, 435, 5, 25
  217. Sleep, 1700
  218.  
  219. send {down}
  220. Sleep, 800
  221. send {down}
  222. Sleep, 800
  223. send {down}
  224. Sleep, 800
  225. send {down}
  226. Sleep, 800
  227. Send {Enter}
  228. Sleep, 800
  229. Send {Enter}
  230. Sleep, 5000
  231.  
  232. sleep, 2000
  233. MouseClick, left, 381, 476, 5, 25 ; back to map
  234. Sleep, 1700
  235. MouseClick, left, 233, 183, 5, 25 ; high to low
  236. Sleep, 1700
  237. MouseClick, left, 183, 186, 5, 25 ; low to high
  238. Sleep, 1700
  239. MouseClick, left, 213, 312, 5, 25
  240. Sleep, 1700
  241. MouseClick, left, 620, 435, 5, 25
  242. Sleep, 1700
  243.  
  244. send {down}
  245. Sleep, 800
  246. send {down}
  247. Sleep, 800
  248. send {down}
  249. Sleep, 800
  250. send {down}
  251. Sleep, 800
  252. send {down}
  253. Sleep, 800
  254. Send {Enter}
  255. Sleep, 800
  256. Send {Enter}
  257. Sleep, 5000
  258.  
  259. sleep, 2000
  260. MouseClick, left, 654, 52, 5, 25 ; exit browser
  261.  
  262. ToolTip, loading single player p(Loop %A_index%), 0, 0
  263. sleep,800
  264. send {p}
  265. sleep,800
  266. send {right}
  267. sleep,800
  268. send {enter}
  269. sleep,800
  270. send {up}
  271. sleep,800
  272. send {up}
  273. sleep,800
  274. send {enter}
  275. sleep, 800
  276. send {enter}
  277.  
  278. ToolTip, Waiting To Load (Loop %A_index%), 0, 0
  279. Loop {
  280. Sleep, 5000
  281. Send {Up}
  282. Sleep, 500
  283. PixelGetColor, color, 653, 318
  284. } Until (color="0x000000") ; Load Confirmation
  285.  
  286. Sleep, 1500
  287.  
  288. If (A_Index >= 100) ;
  289. Return
  290. }
  291. ^Esc::ExitApp
Add Comment
Please, Sign In to add comment
Public Pastes
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!