Gosub [shaomiao]
    If intX>0 or intY >0
        //下面这句按从中间到四周的顺序查找窗口句柄(变量：HwndEx)窗口的指定的矩形区域内指定颜色
        Plugin XY = Bkgnd.FindCenterColor(HwndEx, 320,179, 641, 222, "E9A95B")
        //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
        MyArray = Split(XY, "|")
        //下面这句将字符串转换成数值
        intX = CInt(MyArray(0)): intY = CInt(MyArray(1))
        If intX>0 and intY >0
            Plugin Bkgnd.LeftClick(HwndEx,intX ,intY )
            Plugin Bkgnd.MoveTo(HwndEx,690,480)
            Gosub yanchi
            Gosub [tanchuang]
        Else 
            Plugin Bkgnd.LeftClick(HwndEx,378,195)
            Gosub yanchi
            Plugin Bkgnd.LeftClick(HwndEx,421,195)
            Goto bye
        EndIf 
    Else 
        Goto bye
    EndIf 
    Goto [zuoce]
    Rem bye
Return 
Sub [shawen]
    //再查找一次看是否有蚊子
    Gosub [shaomiao]
    If intX>0 or intY >0
        Plugin Bkgnd.LeftClick(HwndEx,395,145)
        Delay 100
        Plugin Bkgnd.LeftClick(HwndEx,395,145)
        Delay 100
        Plugin Bkgnd.LeftClick(HwndEx,395,145)
        Delay 100
        Plugin Bkgnd.LeftClick(HwndEx,512,151)
        Delay 100
        Plugin Bkgnd.LeftClick(HwndEx,512,151)
        Delay 100
        Plugin Bkgnd.LeftClick(HwndEx,512,151)
        Delay 100
    EndIf 
Return 
Sub shezhi
    //下面这句取窗口句柄(变量：HwndEx)窗口的客户区(坐标：938, 249)处的颜色
    Plugin GetColor = Bkgnd.GetPixelColor(HwndEx, 938, 249)
    If GetColor = "7D7D7D"
        //下面这句用于向后台窗口句柄(变量：HwndEx)的客户区域(坐标：938, 249)处发送一个鼠标左键单击
        Plugin Bkgnd.LeftClick(HwndEx, 938, 249)
        Delay 1000
        Plugin Bkgnd.LeftClick(HwndEx, 930, 96)
    Else 
        //刷新
        Plugin Bkgnd.LeftClick(HwndEx, 930, 96)
        Gosub dengdai
    EndIf 
    Gosub dengdai
    Gosub dengdai
    //下面这句取窗口句柄(变量：HwndEx)窗口的客户区(坐标：826,467)处的颜色
    Plugin GetColor = Bkgnd.GetPixelColor(HwndEx, 826,467)
    If GetColor = "7D7D7D"
        Goto likai
    Else 
        Gosub dengdai
        Gosub [tanchuang]
    EndIf 
    Rem likai
Return 
Sub jiankang
    //下面部分用于点击健康模式弹出窗口
    Plugin XY = Bkgnd.FindCenterColor(HwndEx,453,310,490,322, "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
        Goto bye
    EndIf 
Return