Goto END读句柄
        //MessageBox "程序句柄不在"
        //Goto END
    EndIf 
    VBS Set file=fso.OpenTextFile(filename,1)
    VBS Hwnd00=file.ReadLine
    VBS file.Close
    Rem END读句柄
Return CX.读句柄
Sub CX.日志.记录
    If Var1111="1"
        VBS dim fso,file,filename
        txt_record1="第" & right(riji+10000,5) & "回合："  & right(now,8) &  "：" &   txt_record
        VBS filename="..\日志.txt"
        VBS Set fso=CreateObject("Scripting.FileSystemObject")
        If fso.FileExists(filename)=0
            VBS Set file =fso.CreateTextFile(filename,2)
            VBS file.Close
        EndIf 
        VBS Set file=fso.OpenTextFile(filename,8)
        VBS file.WriteLine(txt_record1)
        VBS file.Close
        riji=1 + riji
        now01=timer
    EndIf 
Return CX.日志.记录
Sub CX.点击判断
    For 5
        Plugin Bkgnd.LeftClick(Hwnd, X00, Y00)
        For 10
            Delay time01 + time101
            Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, X01, Y01)
            If GetColor =  COL01  and xiaosh=0
                X3=X01:Y3=Y01
                Goto 判断点击 结束
            ElseIf GetColor <>  COL01 and xiaosh=1
                Goto 判断点击 结束
            EndIf 
        EndFor 
        a=1
        For wucha
            X001=X01-a:Y001=Y01-a:X002=X01+a:Y002=Y01+a
            //下面这句按从中间到四周的顺序查找窗口句柄(变量：Hwnd)窗口的指定的矩形区域内指定颜色
            Plugin XY = Bkgnd.FindCenterColor(Hwnd, X001, Y001, X002, Y002, COL01)
            //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
            MyArray = Split(XY, "|")
            //下面这句将字符串转换成数值
            X3 = CInt(MyArray(0)): Y3 = CInt(MyArray(1))
            a=a+1
            If X3 > 0 and Y3>0
                Goto 判断点击 结束
            EndIf 
        EndFor 
        Delay time101
    EndFor 
    Rem 判断点击 结束
    txt_record = "判断点击 结束"
    Gosub CX.日志.记录
    xiaosh=0
    wucha = 0
Return CX.点击判断
Sub CX.判断点击判断
    For 5
        Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, X01, Y01)
        For 10
            If GetColor =  COL01
                Goto 判断点颜色正确
            EndIf 
            Delay time01
        EndFor 
        a=1
        For 20
            X001=X01-a:Y001=Y01-a:X002=X01+a:Y002=Y01+a
            //下面这句按从中间到四周的顺序查找窗口句柄(变量：Hwnd)窗口的指定的矩形区域内指定颜色
            Plugin XY = Bkgnd.FindCenterColor(Hwnd, X001, Y001, X002, Y002, COL01)
            //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
            MyArray = Split(XY, "|")
            //下面这句将字符串转换成数值
            X = CInt(MyArray(0)): Y = CInt(MyArray(1))
            a=a+1
            If X > 0 and Y>0
                X01=X:Y01=Y
                txt_record = "误差=" & a
                Gosub CX.日志.记录
                Goto 判断点颜色正确
            EndIf 
        EndFor 
        Delay time101
    EndFor 
    Rem 判断点颜色正确
    For 5
        Plugin Bkgnd.LeftClick(Hwnd, X01, Y01)
        Delay time101
        Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, X01, Y01)
        For 5
            If GetColor <>  COL01
                Goto 判断点二颜色正确
            EndIf 
            Delay time01
        EndFor