按键精灵 新浪通行证，并开通博客

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.   
10. Dim PageWaitSeconds //页面打开等待秒数，可根据网络速度自行调整   
11. PageWaitSeconds = 60000   
12.   
13. Dim RepeatCount     //循环次数   
14. Dim UserName        //随机用户名   
15. Dim FileName        //截屏临时文件名   
16. Dim Result          //验证码答题结果   
17. RepeatCount = 1   
18.   
19. //启动   
20. ProcessID=Plugin.Web.Bind("wqm.exe")   
21. Delay 2000   
22. If ProcessID=0 then   
23.   MessageBox "网页按键精灵没有运行"  
24.   EndScript  
25. End If  
26.   
27. Call Plugin.Web.Tips("脚本开始运行")   
28. //获得WQM页面句柄，最大化，激活   
29. Hwnd=Plugin.Web.GetHwnd()   
30. Call Plugin.Window.Max(Hwnd)   
31. Delay 2000   
32. Call Plugin.Window.Top(Hwnd, 0)   
33. Delay 2000   
34. Plugin.Window.Active Hwnd   
35. Delay 6000   
36.   
37. Do While RepeatCount < 100   
38.     RepeatCount = RepeatCount + 1   
39.     //访问网址   
40.     Call Plugin.Web.Tips("访问网址 ...")   
41.     Call Plugin.Web.Go("http://login.sina.com.cn/sso/logout.php?r=%2Fsignup%2Fsignup.php")   
42.     Delay PageWaitSeconds   
43.     //获取随机用户名   
44.     UserName = "a" + lib.算法.随机字符串(5) + lib.算法.随机数字串(5)   
45.     UserName = LCase(UserName)   
46.     //填写表单   
47.     Call Plugin.Web.Tips("填写表单 ...")   
48.     Call Plugin.Web.HtmlClick("id:emailname")   
49.     Delay 1000   
50.     Call Plugin.Web.HtmlInput(UserName,"id:emailname")   
51.     Call Plugin.Web.HtmlClick("id:password")   
52.     Delay 3000   
53.     Call Plugin.Web.HtmlClick("id:typecom")   
54.     Call Plugin.Web.HtmlCheck("true","id:typecom")   
55.     Delay 1000   
56.     Call Plugin.Web.HtmlInput("123456","id:password")   
57.     Delay 1000   
58.     Call Plugin.Web.HtmlInput("123456","id:password2")   
59.     Delay 1000   
60.     Call Plugin.Web.HtmlClick("tag:A&txt:我手机号码的后6位？")   
61.     Delay 1000   
62.     Call Plugin.Web.HtmlInput("123456","id:pwdA")   
63.     Delay 1000   
64.     Call Plugin.Web.HtmlInput(UserName,"id:nick")   
65.     Delay 1000   
66.     //点击验证码   
67.     Plugin.Web.ScrollTo 0, 500   
68.     Delay 1000   
69.     Plugin.Web.LeftClick 400, 320   
70.     Delay 6000   
71.     //验证码发送   
72.     Call Plugin.Web.Tips("验证码发送 ...")   
73.     Call Plugin.Web.HtmlClick("id:door")   
74.     Delay 1000   
75.     Result = ""  
76.     Do While (Result = "" or Result = "#resend")   
77.         //获取临时文件名   
78.         FileName = "C:/" +  Plugin.GameValidatorPlugin.GenerateFileName() + ".jpg"   
79.         //截图   
80.         Call Plugin.Pic.PrintScreen(400, 350, 750, 550, FileName)   
81.         //发送到远程进行答题   
82.         Result = Plugin.GameValidatorPlugin.SendFile(FileName)   
83.         Call Plugin.File.DeleteFile(FileName)   
84.         If Result = "#resend" Then  
85.             //看不清   
86.             Call Plugin.Web.Tips("验证码输入有误，请重新输入 ...")   
87.             Call Plugin.Web.HtmlClick("tag:A&txt:看不清")   
88.             Delay 6000   
89.         End If  
90. rem resend   
91.     Loop  
92.     //填写验证码   
93.     If (Result = "超时未回答" Or Result = "#timeout") Then  
94.         //如果远程未回答，则中止   
95.         //EndScript   
96.     End If  
97.     Call Plugin.Web.HtmlInput(Result,"id:door")   
98.     Delay 1000   
99.     //提交注册   
100.     Call Plugin.Web.Tips("提交注册 ...")  

新浪通行证，并开通博客
'前提：
'1.安装按键精灵8
'2.安装锐马远程人工代答软件http://www.rapidhorse.com
'3.关闭屏幕保护，设置屏幕分辩率为1024*768
'4.启动网页按键精灵，并最大化
'5.注册帐号存储到d:/sina.txt
'6.有问题请联络QQ787691218

Dim PageWaitSeconds //页面打开等待秒数，可根据网络速度自行调整
PageWaitSeconds = 60000

Dim RepeatCount     //循环次数
Dim UserName        //随机用户名
Dim FileName        //截屏临时文件名
Dim Result          //验证码答题结果
RepeatCount = 1

//启动
ProcessID=Plugin.Web.Bind("wqm.exe")
Delay 2000
If ProcessID=0 then
  MessageBox "网页按键精灵没有运行"
  EndScript
End If

Call Plugin.Web.Tips("脚本开始运行")
//获得WQM页面句柄，最大化，激活
Hwnd=Plugin.Web.GetHwnd()
Call Plugin.Window.Max(Hwnd)
Delay 2000
Call Plugin.Window.Top(Hwnd, 0)
Delay 2000
Plugin.Window.Active Hwnd
Delay 6000

Do While RepeatCount < 100
	RepeatCount = RepeatCount + 1
	//访问网址
	Call Plugin.Web.Tips("访问网址 ...")
	Call Plugin.Web.Go("http://login.sina.com.cn/sso/logout.php?r=%2Fsignup%2Fsignup.php")
	Delay PageWaitSeconds
	//获取随机用户名
	UserName = "a" + lib.算法.随机字符串(5) + lib.算法.随机数字串(5)
	UserName = LCase(UserName)
	//填写表单
	Call Plugin.Web.Tips("填写表单 ...")
	Call Plugin.Web.HtmlClick("id:emailname")
	Delay 1000
	Call Plugin.Web.HtmlInput(UserName,"id:emailname")
	Call Plugin.Web.HtmlClick("id:password")
	Delay 3000
	Call Plugin.Web.HtmlClick("id:typecom")
	Call Plugin.Web.HtmlCheck("true","id:typecom")
	Delay 1000
	Call Plugin.Web.HtmlInput("123456","id:password")
	Delay 1000
	Call Plugin.Web.HtmlInput("123456","id:password2")
	Delay 1000
	Call Plugin.Web.HtmlClick("tag:A&txt:我手机号码的后6位？")
	Delay 1000
	Call Plugin.Web.HtmlInput("123456","id:pwdA")
	Delay 1000
	Call Plugin.Web.HtmlInput(UserName,"id:nick")
	Delay 1000
	//点击验证码
	Plugin.Web.ScrollTo 0, 500
	Delay 1000
	Plugin.Web.LeftClick 400, 320
	Delay 6000
	//验证码发送
	Call Plugin.Web.Tips("验证码发送 ...")
	Call Plugin.Web.HtmlClick("id:door")
	Delay 1000
	Result = ""
	Do While (Result = "" or Result = "#resend")
		//获取临时文件名
		FileName = "C:/" +  Plugin.GameValidatorPlugin.GenerateFileName() + ".jpg"
		//截图
		Call Plugin.Pic.PrintScreen(400, 350, 750, 550, FileName)
		//发送到远程进行答题
		Result = Plugin.GameValidatorPlugin.SendFile(FileName)
		Call Plugin.File.DeleteFile(FileName)
		If Result = "#resend" Then
	    	//看不清
	    	Call Plugin.Web.Tips("验证码输入有误，请重新输入 ...")
			Call Plugin.Web.HtmlClick("tag:A&txt:看不清")
			Delay 6000
		End If
rem resend
	Loop
	//填写验证码
	If (Result = "超时未回答" Or Result = "#timeout") Then
		//如果远程未回答，则中止
		//EndScript
	End If
	Call Plugin.Web.HtmlInput(Result,"id:door")
	Delay 1000
	//提交注册
	Call Plugin.Web.Tips("提交注册 ...")