1. 展开附件 *.* 到 .\plugin 文件夹
2. 令 DBSoft注册 = DBSoft.RegDBSoft("0731A74F3AA9DC55C27CA168D151F792")
3. 用户定义变量 QQ密码="yiyou123" "QQ密码"
4. 用户定义变量 QQ密码提示1 "↑输入即将要申请QQ号的密码，注意：长度为6-16个字符"
5. 用户定义变量 QQ密码提示2 "↑不能包含空格，不能是9位一下纯数字,否则无法申请成功"
6. 用户定义变量 QQ保存路径="C:\QQ号.txt" "QQ号和密码保存路径"
7. 用户定义变量 QQ保存路径提示1 "↑请在""内正确的输入保存路径，“.txt”不能省略"
8. 令 WQM进程句柄 = Web.Bind("WQM.exe")
9. 延时 50 毫秒
10. 令 WQM窗口句柄 = DBSoft.FindHwndWithPid(WQM进程句柄,0)
11. 延时 50 毫秒
12. 调用 Window.Size(WQM窗口句柄,1024,768)
13. 延时 50 毫秒
14. 调用 Window.Move(WQM窗口句柄,0,0)
15. 延时 50 毫秒
16. 调用 Web.Go("http://zc.qq.com/chs/index.html?type=2")
17. 延时 50 毫秒
18. 从左上到右下查找图片 "Attachment:\经典账号.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 1
19. 如果 intX > 0 并且 intY > 0 则
20.     （鼠标）移动到 (intX, intY)
21.     （鼠标）左键单击, 1次
22. 条件结束
23. 延时 50 毫秒
24. 调用 Web.HtmlInput(QQ密码,"tag:INPUT&name:password")
25. 延时 50 毫秒
26. 调用 Web.HtmlInput(QQ密码,"tag:INPUT&name:pass_again")
27. 延时 50 毫秒
28. 调用 Web.HtmlSelect("2012","id:year_value")
29. 延时 50 毫秒
30. 调用 Web.HtmlSelect("1月","id:month_value")
31. 延时 50 毫秒
32. 调用 Web.HtmlSelect("1日","id:day_value")
33. 延时 50 毫秒
34. 调用 Web.HtmlSelect("中国","id:country_value")
35. 延时 50 毫秒
36. 调用 Web.HtmlSelect("云南","id:province_value")
37. 延时 50 毫秒
38. 调用 Web.HtmlSelect("昆明","id:city_value")
39. 延时 500 毫秒
40. 从左上到右下查找图片 "Attachment:\验证码.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 1
41. 如果 intX > 0 并且 intY > 0 则
42.     调用 等待输入验证码
43.     延时 50 毫秒
44.     调用 Web.Tips("输入验证码完成")
45. 条件结束
46. 延时 500 毫秒
47. 调用 Web.HtmlInput("易游","tag:INPUT&name:nick")
48. 延时 500 毫秒
49. 调用 Web.LeftClick(455,165)
50. 延时 500 毫秒
51. （键盘）按 "Tab" 键, 12次
52. 延时 500 毫秒
53. 调用 Web.ScrollTo(0,100)
54. 从左上到右下查找图片 "Attachment:\立即注册.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 1
55. 如果 intX > 0 并且 intY > 0 则
56.     （鼠标）移动到 (intX, intY)
57.     延时 50 毫秒
58.     （鼠标）左键单击, 1次
59. 条件结束
60. 延时 5000 毫秒
61. 令 QQ号 = Web.HtmlGet("text","id:newUin")
62. 如果 QQ号 > 0 则
63.     调用 提取QQ
64. 否则
65.     调用 Web.Tips("注册失败，超时或IP限制，或需要手机号码验证！")
66. 条件结束
67. 子程序 提取QQ
68.     调用 Web.Tips("注册成功，正在保存QQ")
69.     延时 500 毫秒
70.     调用 File.WriteFileEx(QQ保存路径,QQ号 & "-----" & QQ密码)
71.     延时 2000 毫秒
72.     调用 Web.Tips("保存成功，保存地址：" & QQ保存路径)
73. 子程序结束
74. 子程序 等待输入验证码
75.     调用 Web.Tips("请手动输入验证码，输入完成后，请按Enter键继续")
76.     延时 50 毫秒
77.     标记 等待(子程序 等待输入验证码)
78.     令 回车键 = （键盘）等待按任意键
79.     延时 50 毫秒
80.     如果 回车键 = 13 则
81.         跳转到标记 离开(子程序 等待输入验证码)
82.     条件结束
83.     延时 50 毫秒
84.     跳转到标记 等待(子程序 等待输入验证码)
85.     标记 离开(子程序 等待输入验证码)
86. 子程序结束