1. (语句无法识别，可能有错误): Dim QM //QQ号数组
2. 定义环境变量 QQ号，密码
3. (语句无法识别，可能有错误): AllPath = "C:\" //long.txt路径
4. 令 wtime = CInt(Form1.InputBox操作延迟.Text)
5. 令 循环 = Form1.CheckBox1.Value
6. 令 数量 = Form1.ComboBox1.ListIndex + 1
7. (语句无法识别，可能有错误): Dim 句柄(9) //挂QQ的句柄
8. 令 Check数量 = 0
9. 令 again = 1
10. 令 挂机时长 = Clng(Form1.InputBox挂机时长.Text)
11. 调用 start()
12. 子程序 start()
13.     如果 File.IsFileExit("C:\挂机记录.ini") = True 则
14.         令 记录 = WRjilu(1,0)
15.     否则
16.         令 记录 = Form1.InputBox位置.Text
17.     条件结束
18.     令 QQList = WRini(4,0,0)
19.     如果 QQList <> "0" 则
20.         令 QM = split(QQList,"|")
21.         令 QQ总数 = UBound(QM)
22.         如果 CInt(记录) <= CInt(QQ总数) 则
23.             如果 CInt(数量) <= CInt(QQ总数) 则
24.                 令 QQ号 = QM(CInt(记录) - 1)
25.                 令 密码 = WRini(1,QQ号,0)
26.                 向调试窗口输出："QQ号：" & QQ号 & "密码" & 密码
27.                 如果 Form1.InputBoxQQpath.text <> "" 则
28.                     启动程序或打开文件 Form1.InputBoxQQpath.text
29.                 否则
30.                     弹出窗口 "请选择QQ启动程序，或者先保存设置."
31.                     脚本停止运行
32.                 条件结束
33.                 延时 Form1.InputBox启动延时.Text * 1000 毫秒
34.                 令 HwndEx = Window.Search("QQ2012")
35.                 向调试窗口输出："搜索到QQ句柄：" & HwndEx
36.                 如果 HwndEx <> - 1 则
37.                     定义变量 TmpHwnd
38.                     令 TmpHwnd = split(HwndEx,"|")
39.                     令 ii = 0
40.                     循环 ii 从 0 到 CInt(UBound(TmpHwnd) - 1)
41.                         令 HwndTMP = Window.FindEx(TmpHwnd(ii),0,"Edit",0)
42.                         如果 HwndTMP > 0 则
43.                             令 ii = CInt(UBound(TmpHwnd) - 1)
44.                             令 Hwnd = TmpHwnd(ii)
45.                         条件结束
46.                     循环结束
47.                     向调试窗口输出："确定QQ句柄：" & Hwnd
48.                     如果 Hwnd > 0 则
49.                         调用 QQlogo(Hwnd)
50.                     否则
51.                         调用 File.WriteFileEx(AllPath & "Log.txt",Sys.GetDateTime() & " 找不到QQ登录程序,请检查设置,脚本停止。")
52.                         弹出窗口 "找不到QQ登录程序,请检查设置。"
53.                         脚本停止运行
54.                     条件结束
55.                 条件结束
56.             否则
57.                 弹出窗口 "挂机数量不能大于QQ总数。"
58.                 脚本停止运行
59.             条件结束
60.         否则如果 CInt(记录) > CInt(QQ总数) 则
61.             弹出窗口 "开始位置不能大于QQ总数"
62.             脚本停止运行
63.         条件结束
64.     否则如果 QQList = "0" 则
65.         弹出窗口 "没有可以登录的QQ号，脚本将停止。"
66.         脚本停止运行
67.     条件结束
68. 子程序结束
69. 子程序 QQlogo(a)
70.     令 HwndEx = Window.FindEx(Hwnd,0,"Edit",0)
71.     调用 Bkgnd.LeftClick(a,274,160)
72.     延时 wtime * 1000 毫秒
73.     调用 Bkgnd.KeyPress(a,8)
74.     调用 Bkgnd.SendString(a,QQ号)
75.     延时 wtime * 1000 毫秒
76.     调用 Bkgnd.LeftClick(HwndEx,147,11)
77.     令 ii = 1
78.     循环 ii 从 1 到 len(密码)
79.         延时 wtime * 1000 毫秒
80.         调用 Bkgnd.KeyPress(HwndEx,Asc(UCase(Mid(密码,ii,1))))
81.     循环结束
82.     延时 wtime * 1000 毫秒
83.     调用 Bkgnd.LeftClick(a,344,265)
84.     调用 File.WriteFileEx(AllPath & "Log.txt",Sys.GetDateTime() & " 登录QQ：" & QQ号)
85.     延时 CInt(Form1.InputBox登录延时.Text) * 1000 毫秒
86.     调用 CheckAll()
87. 子程序结束
88. 注释：各种检查
89. 子程序 CheckAll()
90.     令 Hwnd = Window.Find("TXGuiFoundation","密码验证错误")
91.     如果 Hwnd > 0 则
92.         调用 Bkgnd.LeftClick(Hwnd,367,16)
93.         令 记录 = 记录 + 1
94.         调用 WRjilu(0,记录)
95.         调用 File.WriteFileEx(AllPath & "Log.txt",Sys.GetDateTime() & " QQ号:" & QQ号 & " 密码错误。")
96.         令 Hwnd = Window.Find("TXGuiFoundation","QQ2012")
97.         调用 Window.Close(Hwnd)
98.         如果 CInt(记录) <= CInt(QQ总数) 并且 Check数量 < 数量 则
99.             调用 start()
100.         否则如果 CInt(记录) > CInt(QQ总数) 则