If GetColor = "39A2FF"
        txt_record = "密码错误"
        Goto 位置判断结束
    EndIf 
    txt_record = 0
    Rem 位置判断结束
    Gosub CX.日志.记录
Return CX.位置判断
Sub CX.直接点击
    //下面这句用于向后台窗口句柄(变量：Hwnd)的客户区域(坐标：X01, Y01)处发送一个鼠标左键单击
    Plugin Bkgnd.LeftClick(Hwnd, X01, Y01)
    Delay time01
Return CX.直接点击
Sub CX.确定判断
    Rem 休息一分钟
    Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 271, 165)
    If GetColor =  "4AEBFF"
        Goto 休息一分钟
    EndIf 
    X11=408:Y11=330:COL11="633000":X12=X11:Y12=372:COL12="633000"
    Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, X11, Y11)
    If GetColor =  COL11
        Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, X12, Y12)
        If GetColor =  COL12
            X01=X11:Y01=Y11+10:time01=500
            Gosub CX.直接点击
            Goto 确定判断_结束
        EndIf 
    EndIf 
    X11=479:Y11=329:COL11="633000":X12=X11:Y12=372:COL12="633000"
    Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, X11, Y11)
    If GetColor =  COL11
        Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, X12, Y12)
        If GetColor =  COL12
            X01=X11:Y01=Y11+10:time01=500
            Gosub CX.直接点击
            Goto 确定判断_结束
        EndIf 
    EndIf 
    Rem 确定判断_结束
Return CX.确定判断
Sub CX.写入文件
    VBS dim fso,file,filename
    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,2)
    VBS file.WriteLine(txt)
    VBS file.Close
Return CX.写入文件
Sub CX.读文件
    VBS dim fso,file,filename
    VBS Set fso=CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(filename)=0
        VBS Set file =fso.CreateTextFile(filename,2)
        VBS file.WriteLine(101)
        VBS file.Close
    EndIf 
    VBS Set file=fso.OpenTextFile(filename,1)
    VBS txt=file.ReadLine
    VBS file.Close
Return CX.读文件
Sub CX.多确认
    Delay 50
    D_qr=0
    Rem 多确认开始
    Rem 休息一分钟2
    Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 271, 165)
    If GetColor =  "4AEBFF"
        Delay 10000
        Goto 休息一分钟2
    EndIf 
    //胜利，判断血量
    Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, 467, 229)
    If GetColor = "00FFFF"
        i=0
        For 6
            Xa=263-var3-i:Ya=35
            Plugin GetColor = Bkgnd.GetPixelColor(Hwnd, Xa, Ya)
            //MessageBox Xa & "|" & Ya & "|"  & Getcolor
            If GetColor = "0024FF"
                Goto 需要恢复
            ElseIf GetColor="AD6921" or GetColor="B56D29"
                buxue=0
                Goto 需要恢复
            EndIf 
            i=i+1
        EndFor 
        Rem 需要恢复
        Plugin Bkgnd.LeftClick(Hwnd, 477, 360)
        Plugin Bkgnd.LeftClick(Hwnd, 477, 360)
        D_qr=1
        Delay 200
        Goto 134.多确认结束
    EndIf 
    //胜利，判断血量
    //下面这句按从左到右，从上到下的顺序查找窗口句柄(变量：Hwnd)窗口的指定矩形区域内指定颜色
    Plugin XY = Bkgnd.FindColor(Hwnd, 475,310,476,452,"633000")