[对大神的代码做出小改良][感谢@张容恺大神]全职业通用挂1钱坑代码，带重启重连功能

wizard

1. //下面参数自己设
   
2. Dim tk
   
3. tk=1
   
4. //x y 是标准24人坑中心坐标
   
5. Dim x(6)
   
6. x(1) = 17
   
7. Dim y(6)
   
8. y(1) = 48
   
9. //杀死一个怪的时间（秒）
   
10. Dim time
    
11. time = 10
    
12. //商店的地址码，SD(1)对应 X1，Y1坑的商店地址码
    
13. Dim sd(6)
    
14. sd(1) = 91751
    
15. //负重， 设5就是捡5次之后执行一次卖商店的流程，以此类推
    
16. Dim fz
    
17. fz = 5
    
18. //从此向下，任何参数不要做任何调整，仍然需要设定的部分在最下方，请拉到本代码最下面，输入你的帐号和密码
    
19. Dim tfz
    
20. tfz = 0
    
21. Dim j
    
22. Dim Hwnd
    
23. Dim n
    
24. n = - 196615
    
25. Dim a(24)
    
26. Sub mob
    
27. a(1) = n + x(j) * 65536 + y(j)
    
28. a(2) = a(1)-1
    
29. a(3) = a(1) - 65536
    
30. a(4) = a(2) - 65536
    
31. a(5) = a(3) - 65536
    
32. a(6) = a(4) - 65536
    
33. a(7) = a(1)+16
    
34. a(8) = a(7)+1
    
35. a(9) = a(7) - 65536
    
36. a(10) = a(8) - 65536
    
37. a(11) = a(9) - 65536
    
38. a(12) = a(10) - 65536
    
39. a(13) = a(1) + 5 * 65536
    
40. a(14) = a(13) + 65535
    
41. a(15) = a(13) + 65536
    
42. a(16) = a(14) + 65536
    
43. a(17) = a(15) + 65536
    
44. a(18) = a(16) + 65536
    
45. a(19) = a(1) + 5 * 65536 + 16
    
46. a(20) = a(19) + 65537
    
47. a(21) = a(19) + 65536
    
48. a(22) = a(20) + 65536
    
49. a(23) = a(21) + 65536
    
50. a(24) = a(22) + 65536
    
51. End Sub
    
52. 
    
53. Sub getjb
    
54.         Hwnd = Plugin.Window.Foreground()
    
55. End Sub
    
56. 
    
57. Sub star
    
58. Delay 200
    
59. Call Plugin.Bkgnd.SendString(Hwnd, "run "&x(j)&","&y(j))
    
60. Delay 200
    
61. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
    
62. Delay 200
    
63. Call panduan
    
64. Delay 3000
    
65. End Sub
    
66. 
    
67. Sub panduan
    
68. a = HOUR(now)
    
69. b = minute(now)
    
70. If a=07 and b>=03 and b<=05
    
71.         Goto reconect
    
72.         Else
    
73. End If
    
74. End Sub
    
75. 
    
76. Sub sell
    
77. Call star
    
78. Delay 3000
    
79. Delay 200
    
80. Call Plugin.Bkgnd.SendString(Hwnd, "look 1@"&sd(j))
    
81. Delay 200
    
82. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
    
83. Delay 300
    
84. 
    
85. For t = 1 To fz * 4
    
86. Delay 200
    
87. Call Plugin.Bkgnd.SendString(Hwnd, "sell 1")
    
88. Delay 200
    
89. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
    
90. Delay 300
    
91. Next
    
92. 
    
93. End Sub
    
94. 
    
95. Sub kill
    
96. Dim i
    
97. For i = 1 To 24
    
98. Delay 1000
    
99. 
    
100. Call Plugin.Bkgnd.SendString(Hwnd, "run " & a(i))
     
101. Delay 200
     
102. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
     
103. Delay 200
     
104. Delay 1500
     
105. Call Plugin.Bkgnd.SendString(Hwnd, "kill "&a(i))
     
106. Delay 200
     
107. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
     
108. Delay 200
     
109. Delay time * 1000
     
110. Delay 200
     
111. Call Plugin.Bkgnd.SendString(Hwnd, "get ALL_ITEM_IN "&a(i))
     
112. Delay 200
     
113. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
     
114. Delay 500
     
115. tfz=tfz+1
     
116. If tfz = fz Then
     
117.     tfz = 0
     
118.         Call sell        
     
119. End If
     
120. If i = 6 Then
     
121.         Call star
     
122. End If
     
123. If i = 12 Then
     
124.         Call star
     
125. End If
     
126. If i = 18 Then
     
127.         Call star
     
128. End If
     
129. If i = 24 Then
     
130.         Call star
     
131. End If
     
132. Next
     
133. End Sub
     
134. 
     
135. Rem getwindows
     
136. If Hwnd = 0 Then
     
137.         Call getjb
     
138.         Else
     
139.         Goto start        
     
140. End If
     
141. 
     
142. Rem start
     
143. For j = 1 To TK
     
144. Call star
     
145. Delay 10000
     
146. Call mob
     
147. Delay 1000
     
148. Call kill
     
149. Delay 1000
     
150. Next
     
151. goto start
     
152. 
     
153. Rem reconect
     
154. Call Plugin.Window.Active(Hwnd)
     
155. Delay 5000
     
156. Call Plugin.Window.Restore(Hwnd)
     
157. Delay 20000
     
158. MoveTo 1091, 701
     
159. Delay 3000
     
160. LeftClick 1
     
161. Delay 5000
     
162. MoveTo 1173, 724
     
163. Delay 3000
     
164. LeftClick 1
     
165. Delay 5000
     
166. //在下方相应位置输入你的帐号，注意不要把原有的双引号覆盖了
     
167. Call Plugin.Bkgnd.SendString(Hwnd, "你的帐号")
     
168. Delay 3000
     
169. Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
     
170. Delay 3000
     
171. //在下方相应位置输入你的密码，注意不要把原有的双引号覆盖了
     
172. Call Plugin.Bkgnd.SendString(Hwnd, "你的密码")
     
173. Delay 3000
     
174. Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
     
175. Delay 3000
     
176. MoveTo 1151, 774
     
177. Delay 3000
     
178. LeftClick 1
     
179. Delay 3000
     
180. MoveTo 1158, 782
     
181. Delay 3000
     
182. LeftClick 1
     
183. Delay 3000
     
184. Call Plugin.Window.Min(Hwnd)
     
185. Delay 60000
     
186. Goto start

复制代码

感谢QQ群内的@张容恺 大神发的

[daqian] 战士后台挂多坑打钱的按键脚本

根据他这个脚本，我加入了每天早上7点系统重启后自动重连的功能，并将他的多坑通用代码改为1坑代码，以方便大家使用

该代码需要自行设定的就是上方注释的部分和最下方的帐号密码部分，其他都不需要管。

修改好相应参数后，只需要无脑挂在那里即可。

除非是因网络LAG、服务器临时维护等原因造成的掉线外，针对系统每日早上的重启可以做到断线重连

该代码是所有类型的坑都通用，运行后直接最小化即可，其他 你什么都不用管，只用等着收钱就好。


另外，付费买那个什么挂坑收费脚本的，建议你别浪费那钱了。。。@张容恺 大神的脚本和这个脚本效率绝对不会让你失望。

gy6620118

请问大大这个是一个一个打怪的吗？如果是巫术之类的群攻职业，需要做什么修改吗？

wizard

gy6620118 发表于 2017-11-28 20:50
请问大大这个是一个一个打怪的吗？如果是巫术之类的群攻职业，需要做什么修改吗？

这是一个一个打的，所以总体来说比较适合近战职业

gy6620118

谢谢指导~