1.                 Super_INI.WriteItem("QQ库表",b,c)
  2.                 令 WRini = 1
  3.             条件结束
  4.         条件结束
  5.         (语句无法识别，可能有错误): Case 1 //读取QQ的密码
  6.         令 CheckQQ = Super_INI.ReadItem("QQ库表",b," ")
  7.         如果 CheckQQ = " " 则
  8.             令 WRini = 0
  9.         否则如果 CheckQQ <> " " 则
  10.             令 WRini = CheckQQ
  11.         条件结束
  12.         (语句无法识别，可能有错误): Case 2 //删除QQ
  13.         令 CheckQQ = Super_INI.ReadItem("QQ库表",b," ")
  14.         如果 CheckQQ = " " 则
  15.             弹出窗口 "你要删除的QQ号不存在!"
  16.             令 WRini = 0
  17.         否则如果 CheckQQ <> " " 则
  18.             Super_INI.WriteItem("QQ库表",b,0)
  19.             令 WRini = 1
  20.         条件结束
  21.         (语句无法识别，可能有错误): Case 3 //删除所有QQ
  22.         令 WRini = Super_INI.WriteItem("QQ库表",0,0)
  23.         (语句无法识别，可能有错误): Case 4 //读取所有QQ号
  24.         令 WRini = Super_INI.EnumItemName("QQ库表")
  25.     选择结束
  26.     Super_INI.CloseINI()
  27.     令 Form1.InputBoxQQ号.Text = ""
  28.     令 Form1.InputBoxQ密码.Text = ""
  29. 函数结束
  30. (语句无法识别，可能有错误): Event Form1.LoadOver //窗口载入完成后执行的子程序
  31. 令 Form1.InputBoxQQ号.Text = ""
  32. 令 Form1.InputBoxQ密码.Text = ""
  33. 如果 File.ExistFile(".\Data") = 0 则
  34.     调用 File.CreateFolder(AllPath & "Data")
  35. 条件结束
  36. 如果 File.ExistFile(".\Data\Data.ini") = 0 则
  37.     Super_INI.OpenINI(".\Data\Data.ini","open2012")
  38.     Super_INI.CloseINI()
  39. 条件结束
  40. 调用 FindList()
  41. 令 IsFile = File.IsFileExit("c:\挂机记录.ini")
  42. 如果 IsFile = True 则
  43.     令 Form1.InputBox位置.Text = WRjilu(1,0)
  44. 否则如果 IsFile = False 则
  45.     调用 WRjilu(0,Form1.InputBox位置.Text)
  46. 条件结束
  47. (语句无法识别，可能有错误): End Event
  48. 子程序 FindList()
  49.     令 QQList = WRini(4,0,0)
  50.     定义变量 QM
  51.     令 QM = split(QQList,"|")
  52.     令 Form1.Label8.Caption = "挂机列表:(" & UBound(QM) & ")"
  53.     令 ii = 0
  54.     循环 ii 从 0 到 UBound(QM) - 1
  55.         如果 ii = 0 则
  56.             令 QQList = QM(ii)
  57.         否则
  58.             令 QQList = QQList & vbCrLf & QM(ii)
  59.         条件结束
  60.     循环结束
  61.     如果 QQList = "0" 则
  62.         令 Form1.InputBoxQQ列表.Text = ""
  63.     否则如果 QQList <> "0" 则
  64.         令 Form1.InputBoxQQ列表.Text = QQList
  65.     条件结束
  66. 子程序结束
  67. Event(Form1.Button2.Click)
  68. 调用 WRjilu(0,Form1.InputBox位置.Text)
  69. (语句无法识别，可能有错误): End Event
  70. 函数 WRjilu(a,b)
  71.     如果 a = 0 则
  72.         调用 File.WriteINI("挂机记录","位置",b,"C:\挂机记录.ini")
  73.         令 WRjilu = 0
  74.     否则如果 a = 1 则
  75.         令 WRjilu = File.ReadINI("挂机记录","位置","C:\挂机记录.ini")
  76.     条件结束
  77. 函数结束