For 6
        a=x
        b=y
        For 3
            //移动到菜地并点击鼠标左键
            Plugin Bkgnd.LeftClick(HwndEx, a, b-20)
            a=a+100
            b=b-50
            Delay 500
        EndFor 
        x=x+100
        y=y+50
    EndFor 
    Delay 100
    Delay 100
    //展开好友栏（后台式）
    Delay yanshi*1000
    Plugin Bkgnd.LeftClick(HwndEx, 935, 278)
Return 采好友
Sub OnScriptExit
    Plugin Web.Tips("脚本停止运行")
Return 
Sub 登陆空间
    Delay 1000
    Plugin Web.Go("http://user.qzone.qq.com")
    Delay 1000
    Plugin Web.HtmlInput(QQ,"id:u&frame:0")
    Delay 1000
    Plugin Web.HtmlInput(QQPwd,"id:p&frame:0")
    Delay 1000
    Plugin Web.HtmlClick("id:login_button&frame:0")
    Delay 2000
    Gosub 登陆农场
Return 登陆空间
Sub 登陆农场
    Delay 2000
    Plugin Web.LeftClick(220,514)
    Delay 1000
    Plugin Web.LeftClick(680,291)
    Delay 5000
    //定位农田
    MessageBox "请将田地定位到左上角"
    Delay 5000
    //展开好友栏（后台式）
    Delay yanshi*1000
    Plugin Bkgnd.LeftClick(HwndEx, 935, 278)
    Goto <开始>
Return 登陆农场
Sub 下一页
    Delay 1000
    //点击下一页
    //判断是否是末页，如果是点击“首页”，不是点击下一页
    Plugin XY = Bkgnd.FindColor(HwndEx, 909,461,923, 475, "A2A2A2")
    MyArray = Split(XY, "|")
    X = CInt(MyArray(0)): Y = CInt(MyArray(1))
    If X>0
        Delay 2000
        Plugin Bkgnd.LeftClick(HwndEx, 930, 120)
    Else 
        Delay 1000
        Plugin Bkgnd.LeftClick(HwndEx, 916, 467)
        Delay time*1000
    EndIf 
    Goto <开始>
Return 下一页