Delay 1000
            Plugin Bkgnd.LeftClick(Hwnd,937,248)
            Gosub 看网络
            Goto 1
        EndIf 
    EndIf 
Return 看是否有收获
Sub 我的农场
    Delay 500
    Plugin Bkgnd.LeftClick(Hwnd, 672, 30)
    Delay 2000
    Plugin Bkgnd.LeftClick(Hwnd, 754, 251)
    Delay 500
    Gosub 给我农场收获
    Gosub 给我农场除虫
    Gosub 给我农场浇水
    Gosub 给我农场除草
    Delay YanShiA
    Gosub 看网络
    Goto 开始
Return 我的农场
Sub 给我农场收获
    Delay 500
    Plugin Bkgnd.KeyPress(Hwnd, 82)
    Delay 500
    Gosub 动工
    Delay 1000
Return 给我农场收获
Sub 给我农场除草
    Delay 500
    Plugin Bkgnd.KeyPress(Hwnd, 87)
    Delay 500
    Gosub 动工
    Delay 500
Return 给我农场除草
Sub 给我农场浇水
    Delay 500
    Plugin Bkgnd.KeyPress(Hwnd, 81)
    Delay 500
    Gosub 动工
    Delay 500
Return 给我农场除草
Sub 给我农场除虫
    Delay 500
    Plugin Bkgnd.KeyPress(Hwnd, 69)
    Delay 500
    Gosub 动工
    Delay 500
Return 给我农场除草
Sub 动工
    VBS x=330:y=145
    For 6
        Delay 100
        Plugin Bkgnd.LeftClick(Hwnd, x, y)
        VBS x=x-100:y=y+50
        Delay 100
        Plugin Bkgnd.LeftClick(Hwnd, x, y)
        VBS x=x-100:y=y+50
        Delay 100
        Plugin Bkgnd.LeftClick(Hwnd, x, y)
        VBS x=x+300:y=y-50
    EndFor 
    Delay 1000
    Gosub 看网络
    Delay 1000
Return 动工
Sub 看网络
    Delay 1000
    Plugin XY = BkgndColor.FindColor(Hwnd,482,377,548,405, "FFD339")
    MyArray = Split(XY, "|")
    X = Clng(MyArray(0)): Y = Clng(MyArray(1))
    If X>0 and Y>0
        Plugin Bkgnd.LeftClick(Hwnd, X, Y)
        Delay 1000
    EndIf 
    Delay 200
    Plugin XY = BkgndColor.FindColor(Hwnd,482,377,548,405, "F9C736")
    MyArray = Split(XY, "|")
    X = Clng(MyArray(0)): Y = Clng(MyArray(1))
    If X>0 and Y>0
        Plugin Bkgnd.LeftClick(Hwnd, X, Y)
        Delay 1000
    EndIf 
    Delay 200
    Plugin aXaY = BkgndColor.FindColor(Hwnd,437,365,511,397, "0892FF")
    MyArray = Split(aXaY, "|")
    aX = Clng(MyArray(0)): aY = Clng(MyArray(1))
    If aX>0 and aY>0
        Plugin Bkgnd.LeftClick(Hwnd, aX, aY)
        Delay 1000
        Goto 开始
    EndIf 
    Delay 200
    Plugin aXaY = BkgndColor.FindColor(Hwnd,437,365,511,397, "0F94FD")
    MyArray = Split(aXaY, "|")
    aX = Clng(MyArray(0)): aY = Clng(MyArray(1))
    If aX>0 and aY>0
        Plugin Bkgnd.LeftClick(Hwnd, aX, aY)
        Delay 1000
        Goto 开始