UserVar QQ=0 请输入QQ号(已登录请输入0)
UserVar QQPwd=0 请输入密码
UserVar yanshi=1 当没展开好友栏时把这个延时加大点
UserVar time=5 定时器(秒)
打开wqm程序
Plugin ProcessID=Web.Bind("wqm.exe")
If ProcessID=0
    MessageBox "网页按键精灵没有运行,请打开网页按键精灵(如果没有请下载安装7.x以上版本的按键精灵)"
    Plugin fileURL = File.SelectFile()
    VBSCall RunApp(fileURL)
EndIf 
Plugin Web.Tips("脚本开始运行")
Plugin Web.SetSize(1224,744)
//得到窗口句柄
//主窗口句柄
Plugin Hwnd=Web.GetHwnd()
//子窗口句柄
Plugin HwndEx = Window.FindEx(Hwnd, 0, "MacromediaFlashPlayerActiveX", 0)
//如果QQ=0跳过登陆直接挂农场
If QQ=0
    MessageBox "请将田地定位到左上角"
    //展开好友栏（后台式）
    Delay yanshi*1000
    Plugin Bkgnd.LeftClick(HwndEx, 935, 278)
    Goto <开始>
Else 
    Gosub 登陆空间
EndIf 
Rem <开始>
Delay 2000
//点击好友列表的坐标增值
z=0
//点击第a行的好友
i=1
//区域找色起始范围
//UX:上X坐标|UY:上Y坐标
//DX:下X坐标|DY:下Y坐标
UX=907
UY=143
DX=925
DY=158
//好友列表增值坐标
z=0
For 10
    //偷菜
    Delay 500
    Plugin XY = Bkgnd.FindColor(HwndEx, UX,UY,DX,DY, "FAF3F0")
    MyArray = Split(XY, "|")
    X = CInt(MyArray(0)): Y = CInt(MyArray(1))
    If X>0
        Plugin Bkgnd.LeftClick(HwndEx, 847, 151+z)
        Gosub 采
    Else 
    EndIf 
    //除草
    Delay 500
    Plugin XY = Bkgnd.FindColor(HwndEx, UX,UY,DX,DY, "1a7349")
    MyArray = Split(XY, "|")
    X = CInt(MyArray(0)): Y = CInt(MyArray(1))
    If X>0
        Plugin Bkgnd.LeftClick(HwndEx, 847, 151+z)
        Gosub 采
    Else 
    EndIf 
    //除虫
    Delay 500
    Plugin XY = Bkgnd.FindColor(HwndEx, UX,UY,DX,DY, "357894")
    MyArray = Split(XY, "|")
    X = CInt(MyArray(0)): Y = CInt(MyArray(1))
    If X>0
        Plugin Bkgnd.LeftClick(HwndEx, 847, 151+z)
        Gosub 采
    Else 
    EndIf 
    DY=DY+32
    UY=UY+32
    i=i+1
    z=z+31
    If i=11
        Delay 2000
        Gosub 下一页
    EndIf 
EndFor 
Goto <开始>
EndScript 
Sub 采
    //判断是否是自己的农场
    Gosub 采好友
Return 采
Sub 采自己
    //收菜种菜
Return 采自己
Sub 采好友
    //关闭好友栏（后台式）
    Delay 2000
    Plugin Bkgnd.LeftClick(HwndEx, 755, 278)
    Delay 500
    //开始偷菜，除草，除虫
    x=95
    y=280