Delay 3000
VBS dim Fruit,FruitL
UserVar Fruit=18 当摘取多少次果实后自动卖出
FruitL=0
MessageBox "请将鼠标移到Flash游戏窗口上面，脚本测试到游戏窗口后会再次提示才开始挂机     "
Gosub 检测鼠标下是否游戏窗口
MessageBox "游戏窗口验证成功，三秒后开始挂机     "
Delay 3000
Plugin Window.Active(WinF)
Rem 开始
Gosub 跳到自己的农田
Gosub 播种
Gosub 收获
Gosub 好友果实
Goto 开始
Sub 检测鼠标下是否游戏窗口
    While WinSWH(2)<>"550" and  WinSWH(3)<>"400"
        //得到鼠标下的句柄
        Plugin WinF=Window.MousePoint()
        //得到鼠标指向的句柄的窗口客户区大小
        Plugin WinS=Window.GetClientRect(WinF)
        //分割坐标
        WinSWH=Split(WinS,"|")
    EndWhile 
Return 检测鼠标下是否游戏窗口
Sub 跳到自己的农田
    //检测指定坐标点的颜色
    Plugin MeC=Bkgnd.GetPixelColor(WinF,36,28)
    //如果不符合则跳到自己的农场
    If MeC<>"000000"
        //鼠标移动到指定坐标
        Plugin Bkgnd.MoveTo(WinF,440,30)
        Delay 300
        //鼠标在指定坐标单击
        Plugin Bkgnd.LeftClick(WinF,440,30)
        Delay 300
    EndIf 
Return 跳到自己的农田
Sub 播种
    //i初始值为9
    i=9
    //下面是选择种子准备播种
    Plugin Bkgnd.MoveTo(WinF,70,350)
    Delay 300
    Plugin Bkgnd.LeftClick(WinF,70,350)
    Delay 300
    Plugin Bkgnd.MoveTo(WinF,65,320)
    Delay 300
    Plugin Bkgnd.LeftClick(WinF,65,320)
    Delay 300
    //循环9次，即检测农田的九块地
    For 9
        //调用农田坐标
        Gosub 农田坐标
        //得到农田坐标点的颜色
        Plugin FarmlandC=Bkgnd.GetPixelColor(WinF,FX,FY)
        //如果颜色符合则对相应的农田进行操作
        If FarmlandC="38587B"
            Gosub 对农田操作
        EndIf 
        //每检测一块地后向后一块地检测
        i=i-1
    EndFor 
Return 播种
Sub 收获
    i=9
    //移动到指定坐标
    Plugin Bkgnd.MoveTo(WinF,130,350)
    Delay 300
    //在指定坐标单击
    Plugin Bkgnd.LeftClick(WinF,130,350)
    Delay 300
    For 9
        //调用农田坐标
        Gosub 农田坐标
        //得到指定坐标点的颜色
        Plugin FarmlandC=Bkgnd.GetPixelColor(WinF,FX,FY)
        //颜色符合则对坐标的地进行操作
        If FarmlandC="2FA9C8"
            Gosub 对农田操作
            //收获一次后记录一次给变量FruitL
            FruitL=FruitL+1
            //如果收获数量到了用户设置的数据后出售果实
            If FruitL=Fruit
                //调用出售果实子程序
                Gosub 出售果实
            EndIf 
        EndIf 
        //每检测一块地后向后一块地检测
        i=i-1
    EndFor 
Return 收获
Sub 好友果实
    //得到指定坐标点的颜色
    Plugin Friend=Bkgnd.GetPixelColor(WinF,510,165)
    If Friend<>"000099"
        //条件符合移动鼠标到指定坐标并点击
        Plugin Bkgnd.MoveTo(WinF,490,35)
        Delay 300
        Plugin Bkgnd.LeftClick(WinF,490,35)