- 新浪通行证,并开通博客
- '前提:
- '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("提交注册 ...")
新浪通行证,并开通博客
'前提:
'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("提交注册 ...")