1. 注释：功能：批量注册新浪通行证，并开通博客
2. 注释：前提：
3. 注释：1.安装按键精灵8
4. 注释：2.安装锐马远程人工代答软件http://www.rapidhorse.com
5. 注释：3.关闭屏幕保护，设置屏幕分辩率为1024*768
6. 注释：4.启动网页按键精灵，并最大化
7. 注释：5.注册帐号存储到d:\sina.txt
8. 注释：6.有问题请联络QQ787691218
9. (语句无法识别，可能有错误): Dim PageWaitSeconds //页面打开等待秒数，可根据网络速度自行调整
10. 令 PageWaitSeconds = 60000
11. (语句无法识别，可能有错误): Dim RepeatCount //循环次数
12. (语句无法识别，可能有错误): Dim UserName //随机用户名
13. (语句无法识别，可能有错误): Dim FileName //截屏临时文件名
14. (语句无法识别，可能有错误): Dim Result //验证码答题结果
15. 令 RepeatCount = 1
16. 注释：启动
17. 令 ProcessID = Web.Bind("wqm.exe")
18. 延时 2000 毫秒
19. 如果 ProcessID = 0 则
20.     弹出窗口 "网页按键精灵没有运行"
21.     脚本停止运行
22. 条件结束
23. 调用 Web.Tips("脚本开始运行")
24. 注释：获得WQM页面句柄，最大化，激活
25. 令 Hwnd = Web.GetHwnd()
26. 调用 Window.Max(Hwnd)
27. 延时 2000 毫秒
28. 调用 Window.Top(Hwnd,0)
29. 延时 2000 毫秒
30. Window.Active(Hwnd)
31. 延时 6000 毫秒
32. 循环当 RepeatCount < 100 时
33.     令 RepeatCount = RepeatCount + 1
34.     注释：访问网址
35.     调用 Web.Tips("访问网址 ...")
36.     调用 Web.Go("http://login.sina.com.cn/sso/logout.php?r=%2Fsignup%2Fsignup.php")
37.     延时 PageWaitSeconds 毫秒
38.     注释：获取随机用户名
39.     令 UserName = "a" + （命令库 算法）随机字符串(5) + （命令库 算法）随机数字串(5)
40.     令 UserName = LCase(UserName)
41.     注释：填写表单
42.     调用 Web.Tips("填写表单 ...")
43.     调用 Web.HtmlClick("id:emailname")
44.     延时 1000 毫秒
45.     调用 Web.HtmlInput(UserName,"id:emailname")
46.     调用 Web.HtmlClick("id:password")
47.     延时 3000 毫秒
48.     调用 Web.HtmlClick("id:typecom")
49.     调用 Web.HtmlCheck("true","id:typecom")
50.     延时 1000 毫秒
51.     调用 Web.HtmlInput("123456","id:password")
52.     延时 1000 毫秒
53.     调用 Web.HtmlInput("123456","id:password2")
54.     延时 1000 毫秒
55.     调用 Web.HtmlClick("tag:A&txt:我手机号码的后6位？")
56.     延时 1000 毫秒
57.     调用 Web.HtmlInput("123456","id:pwdA")
58.     延时 1000 毫秒
59.     调用 Web.HtmlInput(UserName,"id:nick")
60.     延时 1000 毫秒
61.     注释：点击验证码
62.     Web.ScrollTo(0,500)
63.     延时 1000 毫秒
64.     Web.LeftClick(400,320)
65.     延时 6000 毫秒
66.     注释：验证码发送
67.     调用 Web.Tips("验证码发送 ...")
68.     调用 Web.HtmlClick("id:door")
69.     延时 1000 毫秒
70.     令 Result = ""
71.     循环当 (Result = "" 或者 Result = "#resend") 时
72.         注释：获取临时文件名
73.         令 FileName = "C:\" + GameValidatorPlugin.GenerateFileName() + ".jpg"
74.         注释：截图
75.         调用 Pic.PrintScreen(400,350,750,550,FileName)
76.         注释：发送到远程进行答题
77.         令 Result = GameValidatorPlugin.SendFile(FileName)
78.         调用 File.DeleteFile(FileName)
79.         如果 Result = "#resend" 则
80.             注释：看不清
81.             调用 Web.Tips("验证码输入有误，请重新输入 ...")
82.             调用 Web.HtmlClick("tag:A&txt:看不清")
83.             延时 6000 毫秒
84.         条件结束
85.         标记 resend
86.     循环结束
87.     注释：填写验证码
88.     如果 (Result = "超时未回答" 或者 Result = "#timeout") 则
89.         注释：如果远程未回答，则中止
90.         注释：EndScript
91.     条件结束
92.     调用 Web.HtmlInput(Result,"id:door")
93.     延时 1000 毫秒
94.     注释：提交注册
95.     调用 Web.Tips("提交注册 ...")
96.     调用 Web.HtmlClick("tag:INPUT&value:提交")
97.     延时 PageWaitSeconds 毫秒
98.     如果 (Web.HtmlExists("tag:P&txt:验证码输入有误，请重新输入") > 0) 则
99.         注释：验证码输入有误，请重新输入
100.         调用 Web.Tips("验证码输入有误，请重新输入 ...")