EndScript 
        End If /////5
    End If /////3333333333
    // 删除旧文檔 
    Call Plugin.File.DeleteFolder(zhlj)
    // 储存新文檔 
    Call Plugin.File.WriteFileEx(zhlj,txt)

    //MsgBox "练完保存了"
    //EndScript//存完退出
    
End sub
Sub 覆盖体力不够
    txt="" 
    i=0 
    Rem z 
    // 欲写入的数据 
    neirong= zhanghaomima(zhwz-1) & fgf & zhanghaomima(zhwz)&fgf&"体力不够"
    // 写入第几行 
    jihang=ii+1
    If Len(txt行(i))>=1  /////3333333333
        If i=jihang-1/////4
            // 覆盖 
            txt = txt & neirong & vbCrLf 
        Else /////4
            txt = txt & txt行(i) &vbCrLf 
        End If /////4
        i=i+1 
        Goto z 
    Else /////3333333333
        If i<jihang/////5
            //If i<=jihang/////5
            MessageBox "少于"&jihang&"行。关闭脚本在开启"
            Plugin.Media.Beep 2000,200 
            EndScript 
        End If /////5
    End If /////3333333333
    // 删除旧文檔 
    Call Plugin.File.DeleteFolder(zhlj)
    // 储存新文檔 
    Call Plugin.File.WriteFileEx(zhlj,txt)

    //MsgBox "练完保存了"
    //EndScript//存完退出
    
End sub

Sub 关闭游戏()
    Call Plugin.hauilang.guanbiyouxi(hwnd)

End sub
Sub 验证机器码和时间()
    jqm = Plugin.hauilang.ypxhl()
    //Oalbccfaja3bCbccacUaXaKadahcRcAa1aLdxcXabb3dId
    wlsj = Plugin.hauilang.wlrq2()
    If wlsj="" then
        wlsj = Plugin.hauilang.bjsj()
        If  wlsj="" Then 
            MsgBox "查看是否联网"
            EndScript
        End If 
    End if


    If zcm = "0" Then
        MsgBox "注册码不能是0!" & "机器码："& jqm &"。已经复制了，发给作者开卡！"
        Call Plugin.Sys.SetCLB(jqm)
        EndScript
    End If
    If Len(zcm) = 0 Then  
        MsgBox "注册码不能是0!" & "机器码："& jqm &"。已经复制了，发给作者开卡！"
        Call Plugin.Sys.SetCLB(jqm)
        EndScript
    End If
    dim z //解密后的注册码
    z=Plugin.hauilang.jiemi(zcm)

    If z = "" Then '检测输入密码么
        MsgBox "注册码错误!" & "机器码："& jqm &"。已经复制了，发给作者开卡！"
        Call Plugin.Sys.SetCLB(jqm)
        EndScript
    End If
    Dim p //分割数组
    p = Split(z, "----")//UBound(p)
    If UBound(p) = 1 Then
        If jqm <> p(0) Then
            MsgBox "注册码错误!" & "机器码："& jqm &"。已经复制了，发给作者开卡！"
            Call Plugin.Sys.SetCLB(jqm)
            EndScript
        End If   
    End If
    If UBound(p) <> 1 Then '避免时间没加密
        MsgBox "注册码没有时间了!" & "机器码："& jqm &"。已经复制了，发给作者开卡！"
        Call Plugin.Sys.SetCLB(jqm)
        EndScript
    Else  '避免时间没加密
        dim m//到期时间
        m = DateDiff("d", wlsj, p(1)) '分割计算时间
        If m < 0 Then '分割计算时间
            MsgBox "到期了！" & "机器码是："& jqm &"。已经复制了，发给作者开卡！"