1. 延时 1000 毫秒
2. 调用 Web.Bind("wqm.exe")
3. 注释：<>===================================================打开网页免费申请
4. 调用 Web.Tips("打开申请界面")
5. Web.ClearCookie()
6. 调用 Web.Go("http://reg.email.163.com/unireg/call.do?cmd=register.entrance&from=email163&regPage=163")
7. 调用 Web.SetSize(1024,850)
8. 注释：iehwnd=Plugin.Web.GetHwnd()
9. 注释：Call Plugin.Window.Max(iehwnd)
10. 延时 1000 毫秒
11. 注释：<>===================================================输入名字
12. 调用 Web.LeftClick(200,250)
13. 延时 500 毫秒
14. 令 name = （命令库 算法）随机字符串(8)
15. 令 pwd = name & （命令库 算法）随机数字串(4)
16. 注释：保存注册信息
17. 令 Text = File.ReadFileEx("c:\163mail.txt")
18. 令 fileLen = File.GetFileLength("c:\163mail.txt")
19. 令 handle = File.OpenFile("c:\163mail.txt")
20. 调用 File.WriteFile(handle,Text & chr(13) & pwd)
21. 调用 File.CloseFile(handle)
22. 注释：保存信息结束
23. 调用 Web.HtmlInput(pwd,"id:nameIpt")
24. 注释：<>===================================================输入密码
25. 调用 Web.LeftClick(200,317)
26. 延时 500 毫秒
27. 调用 Web.Tips("输入密码，默认密码：a111111")
28. 调用 Web.KeyPress(69)
29. 循环 4 次
30.     调用 Web.KeyPress(49)
31. 循环结束
32. 调用 Web.KeyPress(55)
33. 延时 500 毫秒
34. 注释：<>===================================================确认密码
35. 调用 Web.LeftClick(200,387)
36. 延时 500 毫秒
37. 调用 Web.KeyPress(69)
38. 循环 4 次
39.     调用 Web.KeyPress(49)
40. 循环结束
41. 调用 Web.KeyPress(55)
42. 延时 500 毫秒
43. 注释：<>==================================================输入验证码
44. 调用 Web.LeftClick(220,470)
45. 调用 Web.Tips("等待输入验证码,结束按回车键")
46. 延时 500 毫秒
47. 标记 等待
48. 令 key = （键盘）等待按任意键
49. 注释：<>===================================================按回车键即可提交申请
50. 如果 key = 13 则
51.     跳转到标记 离开
52. 条件结束
53. 跳转到标记 等待
54. 标记 离开
55. 注释：<>===================================================确定并同意以下条款
56. 调用 Web.Tips("注册提交")
57. 调用 web.HtmlClick("id:mobileRegA")
58. 调用 web.HtmlClick("id:mobileRegA_d")
59. 调用 Web.LeftClick(230,590)
60. 延时 500 毫秒
61. 注释：<>===================================================判断是否注册成功，如果成功就结束就完成本次注册。如果不是继续验证码信息
62. 令 url = Web.GetURL
63. 令 url_reg = "reg.email.163.com"
64. 令 url_login = "cwebmail.mail.163.com"
65. 令 url_num = 0
66. 令 url_num = Instr(1,url,url_reg)
67. 注释：TracePrint url_num
68. 如果 url_num > 0 则
69.     调用 Web.LeftClick(405,405)
70.     调用 Web.Tips("等待再次输入验证码,结束按回车键")
71.     延时 500 毫秒
72.     标记 等待2
73.     令 key = （键盘）等待按任意键
74.     如果 key = 13 则
75.         跳转到标记 离开2
76.     条件结束
77.     跳转到标记 等待2
78.     标记 离开2
79.     调用 Web.Tips("注册提交")
80.     调用 web.HtmlClick("id:mobileRegA")
81.     调用 web.HtmlClick("id:mobileRegA_d")
82.     调用 Web.LeftClick(420,470)
83.     延时 500 毫秒
84. 条件结束
85. 脚本停止运行
86. 子程序 OnScriptExit()
87.     调用 Web.Tips("脚本停止运行")
88. 子程序结束