按键精灵的脚本 - 对于重复动作(含键盘鼠标)太好用了

一个demo 包含函数定义, 鼠标动作, 键盘输入, 时间控制, 流程控制, 跳转. 以后可供参考

点击(此处)折叠或打开

1. '搜索的视图大小。
   
2. STD_LEFT = 20
   
3. STD_TOP = 100
   
4. STD_RIGHT = 620
   
5. STD_BOTTOM = 1000
   
6.     
   
7. Function DoClick
   
8.     LeftDown 1
   
9.     Delay 20
   
10.     LeftClick 1
    
11.     Delay 20
    
12.     LeftUp 1
    
13.     Delay 1
    
14.     LeftUp 1
    
15.     Delay 1
    
16. End Function
    
17. 
    
18. Function CloseAGWindow
    
19.     MoveTo 616, 8
    
20.     Delay 500
    
21.     LeftClick 1
    
22.     LeftUp 1
    
23. End Function
    
24. 
    
25. Function LoadAGFromIM
    
26.     CloseAGWindow
    
27.     '==========以下是按键精灵录制的内容========== 需要把 99U 放置在屏幕右下角， 非自动隐藏状态。    
    
28.     iconRetry = 3
    
29.     While (iconRetry > 0)
    
30.         img = "C:\Users\ray\Desktop\AG_BMP\AppIco.bmp"
    
31.         FindPic 1000, 990, 1200, 1020, img, 0.9, BmpPos(0), BmpPos(1)
    
32.         If (BmpPos(0) >= 0) Then
    
33.             iconRetry = 0
    
34.         Else
    
35.             Delay 1000
    
36.             iconRetry = iconRetry -1
    
37.         End If
    
38.     Wend
    
39.     
    
40.     If (BmpPos(0) <= 0) Then
    
41.         BmpPos (0) = 1055
    
42.         BmpPos(1) = 1008
    
43.     End If
    
44.     
    
45.     If (BmpPos(0) >= 0) Then
    
46.         MoveTo BmpPos(0), BmpPos(1)
    
47.         Delay 100
    
48.         LeftDoubleClick 1
    
49.         Delay 78
    
50.         MoveTo 1017, 564
    
51.         LeftClick 1
    
52.     End If    
    
53.     
    
54.     MoveTo 1017, 564
    
55.     LeftClick 1
    
56.     
    
57. '==========以上是按键精灵录制的内容==========
    
58. End Function
    
59. 
    
60. Function btnBackClick        '返回按钮。
    
61.     MoveTo 89,116
    
62.     DoClick
    
63. End Function
    
64. 
    
65. Function ReloadApp            ' 浏览器刷新菜单
    
66.     MoveTo 79,62
    
67.     DoClick
    
68. End Function
    
69. 
    
70. 
    
71. '全局， 根据图像列表， 找到第一个匹配的对象， 并返回坐标点。
    
72. Dim BmpList(100)
    
73. Dim BmpIdx        '当前正在查找图像的位置 0 坐标开始
    
74. Dim BmpPos(2) '第一个找到的坐标位置。 X， Y
    
75. 
    
76. Function FindBmp(bmpPath)
    
77.     img = "C:\Users\ray\Desktop\AG_BMP\"' & bmpPath & "bmp"
    
78.     img = img & bmpPath
    
79.     img = img & ".bmp"
    
80.     isFileExist = Plugin.File.IsFileExist(img)
    
81.     If isFileExist = True Then
    
82.         FindPic STD_LEFT, STD_TOP, STD_RIGHT, STD_BOTTOM, img, 0.9, BmpPos(0), BmpPos(1)
    
83.     Else
    
84.         BmpPos(0) = -1
    
85.         BmpPos(1) = -1
    
86.     End If
    
87.     
    
88.     FindBmp = BmpPos(0)
    
89.     If (BmpPos(0) > 0) And (BmpPos(1) > 0) Then //得到确切的位置。即中心点坐标。
    
90.         Set Bmp = CreateObject("WIA.ImageFile")
    
91.         Bmp.LoadFile (img)
    
92.         width = Bmp.Width
    
93.         height = Bmp.Height
    
94.         BmpPos(0) = BmpPos(0) + Round(width/2)
    
95.         BmpPos(1) = BmpPos(1) + Round(height/2)
    
96.     End If        
    
97. End Function
    
98. 
    
99. '从 BmpList 中前 bmpCnt个中依次查找， 找到的内容进行反馈到 bmpInx 和 BmpPos中。
    
100. Dim BmpNamePrefix '图片前缀
     
101. Function LocateBmpFromList(BmpNameCnt) '图片个数
     
102.     BmpList(0) = BmpNamePrefix    
     
103.     idx = 1
     
104.     While idx < BmpNameCnt
     
105.         img = BmpNamePrefix & "_" & (idx - 1)
     
106.         BmpList(idx) = img        
     
107.         idx = idx + 1
     
108.     Wend
     
109.     
     
110.     idx = 0
     
111.     While idx < BmpNameCnt
     
112.         FindBmp (BmpList(idx))
     
113.         If (BmpPos(0) > 0) And (BmpPos(1) > 0) Then
     
114.             BmpIdx = idx
     
115.             LocateBmpFromList = BmpIdx
     
116.             Exit Function
     
117.         End If
     
118.         idx = idx + 1
     
119.     Wend
     
120.     
     
121.     BmpIdx = -1
     
122. End Function
     
123. 
     
124. MinSpan = 5
     
125. DefSpan = 10
     
126. sMinute = -10
     
127. eMinute = 0
     
128. spanMinute = 0
     
129. iNewDay = - 1
     
130. iTimeEscape = 0
     
131. iDoNothing = 0
     
132. sHour = 0 // reload per hour
     
133. 
     
134. Function InitVariant
     
135.     If (iNewDay < 0) Then
     
136.         iNewDay = Date
     
137.         sMinute = -10
     
138.     End If
     
139. End Function
     
140. 
     
141. Function CheckMinuteSpan
     
142.     eMinute = Minute(Now)
     
143.     If eMinute >= sMinute Then
     
144.         spanMinute = eMinute - sMinute
     
145.     Else
     
146.         spanMinute = eMinute - sMinute + 60
     
147.     End If
     
148. End Function
     
149. 
     
150. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
151. DebugImgIndex = 0
     
152. ' 主程序开始
     
153. Rem LOOP_START
     
154. 
     
155. eHour = Hour(Now)
     
156. If (eHour <> sHour) Then
     
157.     sHour = eHour    
     
158.     'LoadAGFromIM '重新启动一个守护实例， 查看是否打工成功。
     
159. End If
     
160. 
     
161. Delay 1000
     
162. InitVariant
     
163. iDoNothing = iDoNothing + 1
     
164. 
     
165. '========= 首页， 领取金币按钮 ==========
     
166. BmpNamePrefix = "GetCoin"
     
167. LocateBmpFromList(5)
     
168. If (BmpIdx >= 0) Then
     
169.     MoveTo BmpPos(0),BmpPos(1)                ' 领取金币位置
     
170.     DoClick
     
171.     Goto LOOP_START
     
172. End If
     
173. 
     
174. '========= 一键获取 按钮 ==========
     
175. BmpNamePrefix = "btnOneKeyGet"
     
176. LocateBmpFromList(5)
     
177. 
     
178. If (BmpIdx >= 0) Then
     
179.     CheckMinuteSpan
     
180.     If (spanMinute
181.         btnBackClick
     
182.     Else
     
183.         sMinute = Minute(Now)    
     
184.         MoveTo BmpPos(0), BmpPos(1)        
     
185.         DoClick    
     
186.         Delay 6000'等待倒计时结束
     
187.     End If
     
188. End If
     
189. 
     
190.  
     
191. ' 一键获取后出现的不理会和领取的按钮。
     
192. BmpNamePrefix = "btnGetit"
     
193. LocateBmpFromList(5)
     
194. If (BmpIdx >= 0) Then
     
195.     MoveTo BmpPos(0),BmpPos(1)                
     
196.     DoClick
     
197.     Delay 1000
     
198.     'Goto LOOP_START
     
199. End If
     
200. 
     
201. ' 一键获取后的关闭未处理事件。
     
202. BmpNamePrefix = "btnClose"
     
203. LocateBmpFromList(5)
     
204. If (BmpIdx >= 0) Then
     
205.     MoveTo BmpPos(0),BmpPos(1)                
     
206.     DoClick
     
207.     Delay 1000
     
208.     'Goto LOOP_START
     
209. End If
     
210. '========= 一键获取后， 完成打工的“尚有未处理事件”的提示框 ==========
     
211. BmpNamePrefix = "btnOneKeyGetEvent"
     
212. LocateBmpFromList(5)
     
213. If (BmpIdx >= 0) Then
     
214.     MoveTo BmpPos(0),BmpPos(1)                
     
215.     DoClick
     
216.     Delay 1000
     
217.     'Goto LOOP_START
     
218. End If
     
219. '========= 无人打工的界面 ==========
     
220. BmpNamePrefix = "AddSym"
     
221. LocateBmpFromList(5)
     
222. If (BmpIdx >= 0) Then
     
223.     MoveTo BmpPos(0),BmpPos(1)                
     
224.     DoClick
     
225.     Delay 3000
     
226.     sMinute = Minute(Now)    
     
227.     'Goto LOOP_START
     
228. End If
     
229. 
     
230. '========= 新派遣打工 按钮 ==========
     
231. BmpNamePrefix = "StartWork"
     
232. LocateBmpFromList(5)
     
233. If (BmpIdx >= 0) Then
     
234.     sMinute = Minute(Now)
     
235.     MoveTo 300,940
     
236.     DoClick
     
237.     Delay 1000
     
238.     'LoadAGFromIM '重新启动一个守护实例， 查看是否打工成功。
     
239.     
     
240.     Goto LOOP_START
     
241. End If            
     
242. 
     
243. '========= 首页， 派遣按钮 ==========
     
244. BmpNamePrefix = "btnStart"
     
245. LocateBmpFromList(5)
     
246. If (BmpIdx >= 0) Then
     
247.     CheckMinuteSpan
     
248.     If (spanMinute >= DefSpan) Then
     
249.         MoveTo 212,941
     
250.         DoClick
     
251.         Delay 1000
     
252.     End If
     
253.     
     
254.     Goto LOOP_START
     
255. End If
     
256. 
     
257. '========= 生产按钮 ==========
     
258. BmpNamePrefix = "btnProduce"
     
259. LocateBmpFromList(5)
     
260. If (BmpIdx >= 0) Then
     
261.     MoveTo BmpPos(0),BmpPos(1)
     
262.     DoClick
     
263.     Goto LOOP_START
     
264. End If
     
265. '====== MoreSee , repeat for more times doWorker action =====
     
266. BmpNamePrefix = "MoreWorker"
     
267. LocateBmpFromList(5)
     
268. If (BmpIdx >= 0) Then
     
269.     MoveTo BmpPos(0),BmpPos(1)    
     
270.     DoClick
     
271.     Goto LOOP_START
     
272. End If
     
273. 
     
274. '========= 重复登录按钮 ==========
     
275. BmpNamePrefix = "btnExit"
     
276. LocateBmpFromList(5)
     
277. If (BmpIdx >= 0) Then     
     
278.     '此时可能在手机端有操作， 那么冗余10分钟时间给手机端使用。
     
279.     Delay 600000
     
280.     MoveTo BmpPos(0), BmpPos(1)
     
281.     DoClick
     
282.     Goto LOOP_START
     
283. End If
     
284. 
     
285. '========= 个人中心页面/ 天使名*录页面 ==========
     
286. BmpNamePrefix = "selfcenter"
     
287. LocateBmpFromList(5)
     
288. If (BmpIdx >= 0) Then
     
289.     btnBackClick
     
290.     Goto LOOP_START
     
291. End If
     
292. BmpNamePrefix = "SomeBody"
     
293. LocateBmpFromList(5)
     
294. If (BmpIdx >= 0) Then
     
295.     btnBackClick
     
296.     Goto LOOP_START
     
297. End If
     
298. 
     
299. '========= 每日签到 ==========
     
300. BmpNamePrefix = "SigIn"
     
301. LocateBmpFromList(5)
     
302. If (BmpIdx >= 0) Then
     
303.     MoveTo BmpPos(0),BmpPos(1)
     
304.     DoClick
     
305.     Delay 1000
     
306. End If
     
307. 
     
308. BmpNamePrefix = "SigOK"
     
309. LocateBmpFromList(5)
     
310. If (BmpIdx >= 0) Then
     
311.     BmpNamePrefix = "SigClose"
     
312.     LocateBmpFromList(5)
     
313.     If (BmpIdx >= 0) Then
     
314.         MoveTo BmpPos(0),BmpPos(1)
     
315.         DoClick
     
316.         'LoadAGFromIM '重新启动一个守护实例， 查看是否打工成功。
     
317.         Goto LOOP_START
     
318.     End If
     
319. End If
     
320. 
     
321. 
     
322. 
     
323. '========= 如果到此， 判断是否在主页上。 ==========
     
324. BmpNamePrefix = "MainPage"
     
325. LocateBmpFromList(5)
     
326. If (BmpIdx >= 0) Then
     
327.     inMainPage = 1
     
328. Else
     
329.     inMainPage = 0
     
330. End If
     
331. 
     
332. If (inMainPage = 0) Then
     
333.     iTimeEscape = iTimeEscape + 1
     
334. Else
     
335.     iTimeEscape = 0
     
336. End If
     
337. 
     
338. If (iTimeEscape = 20) Then
     
339.     'LoadAGFromIM
     
340.     iTimeEscape = 0
     
341. ElseIf (iTimeEscape = 10) Then
     
342.     ReloadApp
     
343. Else
     
344.     If (iTimeEscape = 5) Then
     
345.         btnBackClick
     
346.         Delay 1000
     
347.     End If
     
348. End If
     
349. 
     
350. 
     
351. 'imgDebug = CStr(Month(Now)) & "-" & CStr(Day(Now)) & "_" & CStr(Hour(Now)) & "." & CStr(Minute(Now)) & "_" & CStr(DebugImgIndex) & ".bmp"
     
352. 'imgDebug = "C:\Users\ray\Desktop\AG_BMP\ScreenShot\" & imgDebug
     
353. 'Call Plugin.Pic.PrintScreen(0, 0, 600, 1000, imgDebug)
     
354. 'DebugImgIndex = DebugImgIndex + 1
     
355. 
     
356. '随机点击' 存在某些弹出框， 例如每日签到等情况
     
357. If (iTimeEscape = 5 ) Then
     
358.     rndPosX = 320
     
359.     rndPosY = 300
     
360.     
     
361.     While rndPosY < 900
     
362.         MoveTo rndPosX, rndPosY
     
363.         DoClick
     
364.         Delay 10
     
365.         rndPosY = rndPosY + 20
     
366.     Wend
     
367. End If
     
368. 
     
369.