老婆爱玩QQ农场牧场,就让我帮她收菜,偷菜!在电脑上一遍一遍的点着鼠标。手累不说,鼠标左键也快受不了了。于是发扬懒人精神,做了个按键精灵版QQ农场助手。实现的功能很简单,希望懂得按键精灵的朋友有兴趣的话可以完善一下。
功能介绍:
1、自动点击好友头像,然后收菜,然后逐块地进行收菜锄草,杀虫,浇水。
2、操作完一页好友后,自动点击下一页按钮进行翻页,然后循环步骤1,直到好友的最后一页。
3、按键精灵版本:9。
代码如下:
'键盘按键按下后,延迟时间 Const DELAYTIME1 = 100 '键盘按键弹起后,延迟时间 Const DELAYTIME2 = 100 '每块地上执行完锄草,杀虫,浇水一种操作后,延迟时间 Const DELAYTIME3 = 1500 '点翻页按钮后,延迟时间 Const DELAYTIME4 = 1500 '点击好友头像后,延迟时间 Const DELAYTIME5 = 5000 'X坐标 Const X = 920 '脚本入口 Call allFarm() '循环所有好友农场 Sub allFarm() Dim runFlag runFlag = true While runFlag Call onePageFarm() '如果下一页按钮位置,是浅蓝色FFE47B IfColor 1026, 626, "FFE47B", 2 Then Call moveAndLeftClick(1021, 632, DELAYTIME4) Else runFlag = false End If Wend End Sub '操作每页农场 Sub onePageFarm() Dim y y = 317 Dim offsetY offsetY = 32 For 10 Call operOneFarm(X, y) y = y + offsetY Next End Sub '操作一个好友农场 Sub operOneFarm(x, y) '移动到好友头像,单击 Call moveAndLeftClick(x, y, DELAYTIME5) '收菜 Call t(432, 278) '锄草,杀虫,浇水 Call weq(198, 401) Call weq(280, 360) Call weq(353, 321) Call weq(432, 278) Call weq(511, 305) Call weq(420, 339) Call weq(363, 391) Call weq(277, 436) Call weq(362, 477) Call weq(427, 423) Call weq(515, 367) Call weq(584, 354) Call weq(661, 385) Call weq(584, 422) Call weq(515, 457) Call weq(433, 486) Call weq(508, 537) Call weq(602, 504) Call weq(665, 466) Call weq(733, 434) Call weq(803, 456) Call weq(748, 494) Call weq(677, 556) Call weq(589, 583) End Sub '锄草,杀虫,浇水 Sub weq(x, y) MoveTo x, y '锄草 Call actions("W") '杀虫 Call actions("E") '浇水 Call actions("Q") End Sub '收菜 Sub t(x, y) MoveTo x, y Call actions("T") End Sub '执行动作 Sub actions(actCode) KeyPress actCode, 1 Delay DELAYTIME2 LeftDown 1 Delay 1 LeftClick 1 Delay 1 LeftUp 1 Delay DELAYTIME3 End Sub '移动到某个位置,单击 Sub moveAndLeftClick(x, y, delayTime) '移动 MoveTo x, y '单击 LeftDown 1 Delay 1 LeftClick 1 Delay 1 LeftUp 1 Delay delayTime End Sub
近期评论