//翻页时网络延时，等待1秒。
            Gosub yanchi
        Else 
            dng=100
        EndIf 
    EndIf 
Return 
Sub [toucai]
    //再查找一次看是否有可偷的菜。
    yjse="FFFFFC"
    Gosub [shaomiao]
    If intX>0 or intY >0
        Gosub yanchi
        Plugin Bkgnd.KeyPress(HwndEx, 82)
        Delay 10
        Plugin Bkgnd.LeftClick(HwndEx, 650, 570)
        Delay 100
        Plugin Bkgnd.LeftClick(HwndEx, 295, 203)
        Gosub yanchi
        Gosub jiankang
    Else 
        Goto bye
    EndIf 
    Gosub dengdai
    wait=0
    Rem [denghou]
    wait=wait+1
    Gosub [shaomiao]
    If intX>0 or intY >0
        Delay 500
        If wait>60
            Goto bye
        EndIf 
    Else 
        Delay 600
        Goto bye
    EndIf 
    Goto [denghou]
    Rem bye
Return 
Sub [shaomiao]
    //查找有无收菜的颜色
    //下面这句按从中间到四周的顺序查找窗口句柄(变量：Hwnd)窗口的指定的矩形区域内指定颜色
    Plugin XY = Bkgnd.FindCenterColor(HwndEx, 905, 144+32*(dng-1), 927, 158+32*(dng-1), yjse)
    //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
    MyArray = Split(XY, "|")
    //下面这句将字符串转换成数值
    intX = CInt(MyArray(0)): intY = CInt(MyArray(1))
Return 
Sub dengdai
    Randomize
    dengdai=int((1500 -900 + 1) * rnd + 900)
    Delay dengdai
Return 
Sub yanchi
    Randomize
    yanchi=int((500 -300 + 1) * rnd + 300)
    Delay yanchi
Return 
Sub [tanchuang]
    Plugin XY = Bkgnd.FindCenterColor(HwndEx,463,387,482,396, "FFFFFF")
    //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
    MyArray = Split(XY, "|")
    //下面这句将字符串转换成数值
    intX = CInt(MyArray(0)): intY = CInt(MyArray(1))
    If intX>0 and intY >0
        Plugin Bkgnd.LeftClick(HwndEx,intX,intY)
        Gosub yanchi
    EndIf 
Return 
Sub [touqu]
    smcs=0
    Rem [youce]
    //再查找一次看是否有可偷的
    Gosub [shaomiao]
    If intX>0 or intY >0
        Plugin Bkgnd.KeyPress(HwndEx, 82)
        Delay 10
        Plugin Bkgnd.LeftClick(HwndEx,449,521)
        Delay 100
        //下面这句按从中间到四周的顺序查找窗口句柄(变量：HwndEx)窗口的指定的矩形区域内指定颜色
        Plugin XY = Bkgnd.FindCenterColor(HwndEx, 515,167, 641, 219, "E9A95B")
        //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
        MyArray = Split(XY, "|")
        //下面这句将字符串转换成数值
        intX = CInt(MyArray(0)): intY = CInt(MyArray(1))
        If intX>0 and intY >0
            Plugin Bkgnd.LeftClick(HwndEx,intX ,intY )
            Delay 10
            Plugin Bkgnd.MoveTo(HwndEx,690,480)
            Gosub yanchi
            Gosub [tanchuang]
        Else 
            Goto [zuoce]
        EndIf 
    Else 
        Goto bye
    EndIf 
    Goto [youce]
    Rem [zuoce]