ElseIf txt_record = "用户密码"
        X01=435:Y01=161:time01=500
        Gosub CX.直接点击
        //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个文本消息(内容："用户名")到客户区
        Plugin Bkgnd.SendString(Hwnd, user_name(var_user))
        X01=435:Y01=191:time01=500
        Gosub CX.直接点击
        //下面这句用于向后台窗口句柄(变量：Hwnd)发送一个文本消息(内容："密码")到客户区
        Plugin Bkgnd.SendString(Hwnd, user_pass_word(var_user))
        X01=451:Y01=303:time01=3500
        Gosub CX.直接点击
    ElseIf txt_record = "密码错误"
        X01=448:Y01=318:time01=500
        Gosub CX.直接点击
    EndIf 
EndFor 
Rem 持续攻击
txt_record = "持续攻击"
Gosub CX.日志.记录
For 50000
    If txt_record = "0"
    ElseIf buxue = 0
        Gosub CX.精灵恢复
    ElseIf txt_record = "挑战平台"
        Gosub CX.选择技能
    ElseIf txt_record = "传送仓" or txt_record = "机械室" or txt_record = "地球仪"
        Gosub CX.目的地
        If KKK = 1
            Goto 打开页面
        EndIf 
    ElseIf txt_record = "精灵太空站左翼"
        Gosub CX.精灵恢复
        Rem 进入塔内
        Gosub CX.选择楼层
    ElseIf txt_record = "勇者塔内"
        If Var1114_temp = "0"
            Gosub CX.精灵恢复
        EndIf 
        X00= 489 : Y00= 280
        //X01= X00 : Y01= Y00  : COL01 = "526163" : time01=200
        //X01= 46 : Y01= 532  : COL01 = "526163" : time01=100 :  xiaosh=1
        X01= 40 : Y01= 180  : COL01 = "0004F7"  : time01=100
        xiaosh=1 : wucha = 0
        Gosub CX.选中精灵然后缩小
    ElseIf txt_record = "火星一层"
        Color_N = "100CFF" :  X_n=0  :  Y_n=0
        a1 = 86 : a2 = 162 : b1 = 180 : b2 = 220
        A = 96 : B = 122 : C = 708 : D = 432 : COL01 = "63B27F" : COL02 =  "4204B5"
        COL02 = "4204B5" : COL01 = "FFF7AD"
        Gosub CX.找到精灵
    ElseIf txt_record = "云霄星一层"
        Color_N = "8C6984" :  X_n=0  :  Y_n=0
        a1 = 77 : a2 = 161 : b1 = 179 : b2 = 214
        A = 19 : B = 124 : C = 605 : D = 467 : COL01 = "63B27F" : COL02 =  "4204B5"
        COL01 = "00AAFF" : COL02 = "FF9A9C"
        COL01 = "00AAFF" : COL02 = "FFF7AD"
        Gosub CX.找到精灵
    ElseIf txt_record = "海洋星一层"
        Color_N = "9C929C" :  X_n=0  :  Y_n=0
        A = 390 : B = 252 : C = 880 : D = 500 : COL01 = "5AA28C" : COL02 =  "63E7BD"
        Gosub CX.找到精灵
    ElseIf txt_record = "云霄星二层"
        Color_N = "DECFBD" :  X_n=0  :  Y_n=0
        a1 = 0 : a2 = 0 : b1 = 0 : b2 = 0
        A = 55 : B = 165 : C = 840 : D = 450 : COL01 = "633000" : COL02 =  "6B3408"
        Gosub CX.找到精灵
    ElseIf txt_record = "精灵太空站"
        MessageBox "精灵太空站"
    ElseIf txt_record = "火星二层"
        Color_N = "003073" :  X_n=0  :  Y_n=0
        a1 = 221 : a2 = 318 : b1 = 325 : b2 = 405
        A = 260 : B = 120 : C = 680 : D = 460 : COL01 = "005DFF" : COL02 =  "0061FF"
        Gosub CX.找到精灵
    ElseIf txt_record = "挑战平台"
    ElseIf txt_record = "挑战平台"
    ElseIf txt_record = "挑战平台"
    ElseIf txt_record = "挑战平台"
    ElseIf txt_record = "挑战平台"
    ElseIf txt_record = "挑战平台"
    ElseIf txt_record = "挑战平台"
    ElseIf txt_record = "挑战平台"
    ElseIf txt_record = "挑战平台"
    ElseIf txt_record = "开始"
        Goto STAR
    ElseIf txt_record = "选择其他用户"
        Goto STAR
    ElseIf txt_record = "用户密码"
        Goto STAR
    ElseIf txt_record = "密码错误"
        Goto STAR
    EndIf 
    Rem 需要位置判断
    Gosub CX.位置判断
EndFor 
EndScript 
Sub CX.句柄_02
    VBS dim fso,file,filename
    VBS Set fso=CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(filename)=0
        VBS Set file =fso.CreateTextFile(filename,2)