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

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