后使用快捷导航没有帐号？
新浪微博：
&&&&腾讯微博：
只需一步，快速开始
查看: 2168|回复: 4
UID657115精华0在线时间4 小时阅读权限20鲜花0 个铜币193 个银币1 个金币0 个积分122帖子注册时间最后登录
小学六年级, 积分 122, 距离下一级还需 28 积分
鲜花0 个铜币193 个银币1 个积分122帖子
请问如何通过按键写邮箱注册机，只要输入验证码就可以注册？谢谢！提供下相关思路和部分源码吧，非常感谢！谢谢！
UID658803精华0在线时间199 小时阅读权限70鲜花142 个铜币1033 个银币232 个金币0 个积分895帖子注册时间最后登录
大学一年级, 积分 895, 距离下一级还需 105 积分
鲜花142 个铜币1033 个银币232 个积分895帖子
额，录制....
新浪微博求关注：/mobh
我的粉丝，你在哪里？
UID657115精华0在线时间4 小时阅读权限20鲜花0 个铜币193 个银币1 个金币0 个积分122帖子注册时间最后登录
小学六年级, 积分 122, 距离下一级还需 28 积分
鲜花0 个铜币193 个银币1 个积分122帖子
& & 还有别的方法吗？脚本不行吗？
UID396057精华5在线时间2273 小时阅读权限100鲜花2216 个铜币20432 个银币17514 个金币25 个积分9246帖子注册时间最后登录
鲜花2216 个铜币20432 个银币17514 个积分9246帖子
新浪邮箱注册 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(&.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(&提交注册 ...&)&&
& & Call Plugin.Web.HtmlClick(&tag:INPUT&value:提交&)& &
& & Delay PageWaitSeconds& &
&&
& & if (Plugin.Web.HtmlExists(&tag:P&txt:验证码输入有误，请重新输入&) & 0) Then&&
& && &&&//验证码输入有误，请重新输入& &
& && &&&Call Plugin.Web.Tips(&验证码输入有误，请重新输入 ...&)& &
& && &&&Result = &#resend&&&
& && &&&Plugin.Web.ScrollTo 0,500& &
& && &&&Delay 1000& &
& && &&&Plugin.Web.LeftClick 410, 320& &
& && &&&Delay 6000& &
& && &&&Goto resend& &
& & End If&&
& & If InStr(Plugin.Web.GetURL, &signup1.php&) &= 0 Then&&
& && &&&//MsgBox &注册存在问题，需要人工干预！&& &
& && &&&//EndScript& &
& & End If& &
& & //开通博客& &
& & Call Plugin.Web.Tips(&开通博客 ...&)& &
& & Call Plugin.Web.HtmlClick(&tag:A&txt:开通我的博客&)& &
& & Delay PageWaitSeconds& &
& & Call Plugin.Web.HtmlInput(UserName,&type:text&index:1&)& &
& & Delay 1000& &
& & Call Plugin.Web.HtmlCheck(&true&,&id:if1&)& &
& & Delay 1000& &
& & Call Plugin.Web.HtmlSelect(&1975&,&id:selBirthdayYear&)& &
& & Delay 1000& &
& & Plugin.Web.LeftClick 300, 560& &
& & Delay 1000& &
& & Plugin.Web.KeyDown 40& &
& & Delay 1000& &
& & Plugin.Web.KeyDown 40& &
& & Delay 1000& &
& & Plugin.Web.KeyDown 40& &
& & Delay 1000& &
& & Plugin.Web.KeyDown 40& &
& & Delay 1000& &
& & Plugin.Web.KeyDown 40& &
& & Delay 1000& &
& & Plugin.Web.LeftClick 300, 560& &
& & Delay 10000& &
& & Call Plugin.Web.HtmlSelect(&29&,&id:selBirthdayDay&)& &
& & Delay 1000& &
& & Call Plugin.Web.HtmlClick(&id:activeBtn&)& &
& & Plugin.File.WriteFileEx &d:\sina.txt&, UserName& &
& & Delay 30000& &
& & If InStr(Plugin.Web.GetURL, &reg_blog_complete.php&) &= 0 Then&&
& && &&&//MsgBox &注册存在问题，需要人工干预！&& &
& && &&&//EndScript& &
& & End If& &
Loop&&
复制代码
We're brothers that is why we are called vrbrothers
UID396057精华5在线时间2273 小时阅读权限100鲜花2216 个铜币20432 个银币17514 个金币25 个积分9246帖子注册时间最后登录
鲜花2216 个铜币20432 个银币17514 个积分9246帖子
(1.5 KB, 下载次数: 216)
19:00 上传
点击文件名下载附件
We're brothers that is why we are called vrbrothers
学有所成勋章，新手步入按键学堂的第一枚勋章
按键论坛的管理团队专属勋章
资深按键用户的尊贵荣誉勋章
按键论坛男性用户勋章
论坛活动狂人
按键明星勋章
马年勋章（360天）
马年纪念勋章（360天）
兔年勋章（360天）
兔年纪念勋章(360天)
十周年勋章（360天）
十周年纪念勋章
龙年勋章（360天）
龙年纪念勋章（360天）
骨灰级按键用户
3年以上的按键论坛用户
黄金之翼勋章
天使一样的用户
黄瓜勋章（永久）
体验商业小精灵活动的奖励
按键精灵论坛推荐 /1
日，按键精灵14周岁了！我们邀您参与7月6日周年庆狂欢盛典！风雨同舟，按键真诚的感谢大家，是你们陪着我们一起走过了14年n(*≧▽≦*)n！已经有很多同学拿到了小米手环以及小米电源，还有蓝牙音箱！这是拼人品的时刻！现在，骚年们！快快抽起来吧！
Powered by