1.     子程序 覆盖级数不够
  2.         令 txt = ""
  3.         令 i = 0
  4.         标记 z(子程序 覆盖级数不够)
  5.         注释： 欲写入的数据
  6.         令 neirong = zhanghaomima(zhwz - 1) & fgf & zhanghaomima(zhwz) & fgf & "级数不够"
  7.         注释： 写入第几行
  8.         令 jihang = ii + 1
  9.         如果 Len(txt行(i)) >= 1 则
  10.             注释：///3333333333
  11.         条件结束
  12.         如果 i = jihang - 1 则
  13.             注释：///4
  14.         条件结束
  15.         注释： 覆盖
  16.         令 txt = txt & neirong & vbCrLf
  17.         (语句无法识别，可能有错误): Else /////4
  18.         令 txt = txt & txt行(i) & vbCrLf
  19.         (语句无法识别，可能有错误): End If /////4
  20.         令 i = i + 1
  21.         跳转到标记 z(子程序 覆盖级数不够)
  22.         (语句无法识别，可能有错误): Else /////3333333333
  23.         如果 i < jihang 则
  24.             注释：///5
  25.         条件结束
  26.         注释：If i<=jihang/////5
  27.         弹出窗口 "少于" & jihang & "行。关闭脚本在开启"
  28.         Media.Beep(2000,200)
  29.         脚本停止运行
  30.         (语句无法识别，可能有错误): End If /////5
  31.         (语句无法识别，可能有错误): End If /////3333333333
  32.         注释： 删除旧文檔
  33.         调用 File.DeleteFolder(zhlj)
  34.         注释： 储存新文檔
  35.         调用 File.WriteFileEx(zhlj,txt)
  36.         注释：MsgBox "练完保存了"
  37.         注释：EndScript//存完退出
  38.     子程序结束
  39.     子程序 覆盖体力不够
  40.         令 txt = ""
  41.         令 i = 0
  42.         标记 z(子程序 覆盖体力不够)
  43.         注释： 欲写入的数据
  44.         令 neirong = zhanghaomima(zhwz - 1) & fgf & zhanghaomima(zhwz) & fgf & "体力不够"
  45.         注释： 写入第几行
  46.         令 jihang = ii + 1
  47.         如果 Len(txt行(i)) >= 1 则
  48.             注释：///3333333333
  49.         条件结束
  50.         如果 i = jihang - 1 则
  51.             注释：///4
  52.         条件结束
  53.         注释： 覆盖
  54.         令 txt = txt & neirong & vbCrLf
  55.         (语句无法识别，可能有错误): Else /////4
  56.         令 txt = txt & txt行(i) & vbCrLf
  57.         (语句无法识别，可能有错误): End If /////4
  58.         令 i = i + 1
  59.         跳转到标记 z(子程序 覆盖体力不够)
  60.         (语句无法识别，可能有错误): Else /////3333333333
  61.         如果 i < jihang 则
  62.             注释：///5
  63.         条件结束
  64.         注释：If i<=jihang/////5
  65.         弹出窗口 "少于" & jihang & "行。关闭脚本在开启"
  66.         Media.Beep(2000,200)
  67.         脚本停止运行
  68.         (语句无法识别，可能有错误): End If /////5
  69.         (语句无法识别，可能有错误): End If /////3333333333
  70.         注释： 删除旧文檔
  71.         调用 File.DeleteFolder(zhlj)
  72.         注释： 储存新文檔
  73.         调用 File.WriteFileEx(zhlj,txt)
  74.         注释：MsgBox "练完保存了"
  75.         注释：EndScript//存完退出
  76.     子程序结束
  77.     子程序 关闭游戏()
  78.         调用 hauilang.guanbiyouxi(hwnd)
  79.     子程序结束
  80.     子程序 验证机器码和时间()
  81.         令 jqm = hauilang.ypxhl()
  82.         注释：Oalbccfaja3bCbccacUaXaKadahcRcAa1aLdxcXabb3dId
  83.         令 wlsj = hauilang.wlrq2()
  84.         如果 wlsj = "" 则
  85.             令 wlsj = hauilang.bjsj()
  86.             如果 wlsj = "" 则
  87.                 MsgBox("查看是否联网")
  88.                 脚本停止运行
  89.             条件结束
  90.         条件结束
  91.         如果 zcm = "0" 则
  92.             MsgBox("注册码不能是0!" & "机器码：" & jqm & "。已经复制了，发给作者开卡！")
  93.             调用 Sys.SetCLB(jqm)
  94.             脚本停止运行
  95.         条件结束
  96.         如果 Len(zcm) = 0 则
  97.             MsgBox("注册码不能是0!" & "机器码：" & jqm & "。已经复制了，发给作者开卡！")
  98.             调用 Sys.SetCLB(jqm)
  99.             脚本停止运行
  100.         条件结束