1.             令 again = 0
  2.         条件结束
  3.     否则
  4.         令 Hwnd = Window.Find("TXGuiFoundation","QQ2012")
  5.         调用 Window.Hide(Hwnd)
  6.         令 记录 = 记录 + 1
  7.         调用 WRjilu(0,记录)
  8.         如果 CInt(记录) >= QQ总数 并且 循环 = 1 则
  9.             调用 File.WriteFileEx(AllPath & "Log.txt",Sys.GetDateTime() & " 重置记录到1,开始循环。")
  10.             令 记录 = 1
  11.             调用 WRjilu(0,记录)
  12.         条件结束
  13.         令 句柄(Check数量) = Hwnd
  14.         令 Check数量 = Check数量 + 1
  15.         如果 CInt(记录) <= CInt(QQ总数) 并且 Check数量 < 数量 则
  16.             调用 start()
  17.         否则如果 CInt(记录) > CInt(QQ总数) 则
  18.             令 again = 0
  19.         条件结束
  20.     条件结束
  21. 子程序结束
  22. 令 tmptime = 0
  23. 循环 挂机时长 次
  24.     如果 挂机时长 Mod 30 = 0 则
  25.         调用 Msg.Tips("挂机时间还剩余：" & 挂机时长 - tmptime & "秒!")
  26.     条件结束
  27.     延时 1000 毫秒
  28.     令 tmptime = tmptime + 1
  29. 循环结束
  30. 调用 Msg.Tips("")
  31. 令 tt = 0
  32. 循环 tt 从 0 到 9
  33.     如果 句柄(tt) <> "" 则
  34.         调用 Window.Close(句柄(tt))
  35.     条件结束
  36.     向调试窗口输出："挂机QQ句柄：" & 句柄(tt)
  37.     延时 1000 毫秒
  38. 循环结束
  39. 清除数组 句柄
  40. 如果 again = 0 则
  41.     调用 File.WriteFileEx(AllPath & "Log.txt",Sys.GetDateTime() & " 挂机结束...")
  42.     脚本停止运行
  43. 否则如果 again = 1 则
  44.     RestartScript()
  45. 条件结束
  46. (语句无法识别，可能有错误): Event Form1.Button添加修改.Click //添加QQ号数据库
  47. 令 datapath = ".\Data\Data.ini"
  48. 令 QQ = Form1.InputBoxQQ号.Text
  49. 令 MM = Form1.InputBoxQ密码.Text
  50. 如果 QQ = "" 或者 MM = "" 则
  51.     弹出窗口 "QQ号和密码不能为空！"
  52. 否则
  53.     调用 WRini(0,QQ,MM)
  54.     调用 FindList()
  55. 条件结束
  56. (语句无法识别，可能有错误): End Event
  57. (语句无法识别，可能有错误): Event Form1.Button删除.Click //单个删除按钮
  58. 令 datapath = ".\Data\Data.ini"
  59. 令 QQ = Form1.InputBoxQQ号.Text
  60. 令 MM = Form1.InputBoxQ密码.Text
  61. 如果 QQ = "" 则
  62.     弹出窗口 "请输入你要删除的QQ号。"
  63. 否则如果 QQ <> "" 则
  64.     调用 WRini(2,QQ,0)
  65.     调用 FindList()
  66. 条件结束
  67. (语句无法识别，可能有错误): End Event
  68. (语句无法识别，可能有错误): Event Form1.Button清空.Click //删除所有按钮
  69. 如果 MsgBox("即将清空所有QQ.",1,"提示：") = 1 则
  70.     调用 WRini(3,0,0)
  71.     调用 FindList()
  72. 条件结束
  73. (语句无法识别，可能有错误): End Event
  74. (语句无法识别，可能有错误): Event Form1.Button1.Click //路径选择按钮
  75. 令 tmp = File.SelectFile()
  76. 如果 tmp <> "" 则
  77.     令 Form1.InputBoxQQpath.Text = tmp
  78. 条件结束
  79. (语句无法识别，可能有错误): End Event
  80. (语句无法识别，可能有错误): /*对数据库操作，a传递操作类型，b传递QQ号，c传递QQ密码；
  81. a的参数有()
  82. （0()
  83. 表示添加或修改，b，c传递不能为空(）)
  84. (语句无法识别，可能有错误): （1：表示读取密码 b不能为空，c为0；WRini 返回密码文本，QQ号不存在返回空文本）
  85. （2：删除，b不能为空，c为0。）()
  86. （3：删除所有，b为0，c为0。）()
  87. (语句无法识别，可能有错误): （4：读取所有QQ号，b为0，c为0。 WRini返回所有QQ号文本，如 5646445|6546544|54654654）
  88. 数据库密码：open2012()
  89. (语句无法识别，可能有错误): */
  90. 函数 WRini(a,b,c)
  91.     令 datapath = ".\Data\Data.ini"
  92.     Super_INI.OpenINI(".\Data\Data.ini","open2012")
  93.     根据 a 选择
  94.         (语句无法识别，可能有错误): Case 0 //添加或修改QQ
  95.         令 CheckQQ = Super_INI.ReadItem("QQ库表",b," ")
  96.         如果 CheckQQ = " " 则
  97.             Super_INI.WriteItem("QQ库表",b,c)
  98.             令 WRini = 0
  99.         否则如果 CheckQQ <> " " 则
  100.             如果 MsgBox("QQ:" & b & "已经存在,是否修改密码?",4,"提示:") = 6 则