按键精灵版QQ农场助手

老婆爱玩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