1. 注释：删除文件
2. 调用 File.DeleteFile("d:\人气qq.txt")
3. 注释：定义数组 用来存放qq号
4. 定义变量 x(1000)
5. 定义变量 i
6. 定义变量 ym
7. 定义变量 url
8. 定义变量 a
9. 令 ys = 1
10. 标记 页数
11. 令 a = InputBox("输入要采集的页数")
12. 注释： 把变量转换为数字
13. 如果 a = "" 则
14.     跳转到标记 页数
15. 条件结束
16. 令 返回值 = cint(a)
17. 注释：判断a的值
18. 如果 a < 1 则
19.     跳转到标记 页数
20. 条件结束
21. 弹出窗口 "正在提取qq号 请稍等"
22. 循环 返回值 次
23.     令 url = "http://www.324324.cn/top/qzone_visit.php?page=" & ys
24.     令 html = WebOperation.GetHTML(url)
25.     注释：分割源码
26.     令 ym = split(html,"window.open('http://")
27.     令 i = 1
28.     向调试窗口输出：UBound(ym)
29.     注释：提取qq 号
30.     循环 UBound(ym) 次
31.         令 x(i) = split(ym(i),".qzone.qq.com")
32.         向调试窗口输出：x(i)(0)
33.         注释：保存提取的qq号
34.         调用 File.WriteFileEx("d:\人气qq.txt",x(i)(0))
35.         令 i = i + 1
36.         延时 20 毫秒
37.     循环结束
38.     向调试窗口输出：i
39.     向调试窗口输出：ys
40.     令 ys = ys + 1
41.     延时 cint(form1.ys.Text) 毫秒
42. 循环结束
43. 弹出窗口 "提取完成"
44. 启动程序或打开文件 "d:\人气qq.txt"
45. 注释：2012-2-26 19:06:31
46. Event(Form1.LoadOver)
47. 令 form1.rq.text = now
48. 向调试窗口输出：now
49. (语句无法识别，可能有错误): End Event
50. Event(Form1.Button1.Click)
51. 注释：创建临时会话
52. 启动程序或打开文件 "http://wpa.qq.com/msgrd?V=1&Uin=" & qq
53. (语句无法识别，可能有错误): End Event
54. Event(Form1.Button2.Click)
55. 注释：打开 提取页
56. 启动程序或打开文件 "http://www.324324.cn/top/qzone_visit.php?page=1"
57. (语句无法识别，可能有错误): End Event