为编程爱好者分享易语言教程源码的资源网
三叶资源网官方③群:33301895 网络创业点子 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895
三叶资源网官方③群:33301895 网络创业点子 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895

网站首页 按键精灵相关 按键精灵Q语言 正文

=易游=自动申请QQ beta1.2

三叶资源网 2018-11-01 按键精灵Q语言 438 ℃ 0 评论

=易游=自动申请QQ beta1.2

运行环境:分辨率:1920x1080 色深:32位 操作系统:Windows 7 Ultimate 按键精灵版本:9.50.11632

@guoruijtl2012/12/7

PutAttachment ".\plugin","*.*"  
DBSoft注册=Plugin.DBSoft.RegDBSoft("0731A74F3AA9DC55C27CA168D151F792")  
UserVar QQ密码="yiyou123" "QQ密码"  
UserVar QQ密码提示1 "↑输入即将要申请QQ号的密码,注意:长度为6-16个字符"  
UserVar QQ密码提示2 "↑不能包含空格,不能是9位一下纯数字,否则无法申请成功"  
UserVar QQ保存路径="C:\QQ号.txt" "QQ号和密码保存路径"  
UserVar QQ保存路径提示1 "↑请在""内正确的输入保存路径,“.txt”不能省略"  
WQM进程句柄=Plugin.Web.Bind("WQM.exe")  
Delay 50  
WQM窗口句柄=Plugin.DBSoft.FindHwndWithPid(WQM进程句柄,0)  
Delay 50  
Call Plugin.Window.Size(WQM窗口句柄, 1024, 768)  
Delay 50   
Call Plugin.Window.Move(WQM窗口句柄, 0, 0)  
Delay 50  
Call Plugin.Web.Go("http://zc.qq.com/chs/index.html?type=2")   
Delay 50  
FindPic 0,0,1024,768,"Attachment:\经典账号.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
    MoveTo intX,intY  
    LeftClick 1  
End if  
Delay 50  
Call Plugin.Web.HtmlInput(QQ密码,"tag:INPUT&name:password")  
Delay 50  
Call Plugin.Web.HtmlInput(QQ密码,"tag:INPUT&name:pass_again")  
Delay 50  
Call Plugin.Web.HtmlSelect("2012","id:year_value")  
Delay 50  
Call Plugin.Web.HtmlSelect("1月", "id:month_value")  
Delay 50  
Call Plugin.Web.HtmlSelect("1日", "id:day_value")  
Delay 50  
Call Plugin.Web.HtmlSelect("中国", "id:country_value")  
Delay 50  
Call Plugin.Web.HtmlSelect("云南", "id:province_value")  
Delay 50  
Call Plugin.Web.HtmlSelect("昆明","id:city_value")  
Delay 500  
FindPic 0,0,1024,768,"Attachment:\验证码.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
    Call 等待输入验证码  
    Delay 50  
    Call Plugin.Web.Tips("输入验证码完成")  
End If  
Delay 500  
Call Plugin.Web.HtmlInput("易游","tag:INPUT&name:nick")     
Delay 500  
Call Plugin.Web.LeftClick(455, 165)   
Delay 500  
KeyPress "Tab", 12  
Delay 500  
Call Plugin.Web.ScrollTo(0,100)  
FindPic 0,0,1024,768,"Attachment:\立即注册.bmp",1,intX,intY  
If intX > 0 And intY > 0 Then  
    MoveTo intX,intY  
    Delay 50  
    LeftClick 1  
End If  
Delay 5000  
QQ号=Plugin.Web.HtmlGet("text","id:newUin")  
If QQ号>0 then  
    Call 提取QQ  
Else  
    Call Plugin.Web.Tips("注册失败,超时或IP限制,或需要手机号码验证!")   
End if  
sub 提取QQ  
    Call Plugin.Web.Tips("注册成功,正在保存QQ")    
    Delay 500  
    Call Plugin.File.WriteFileEx(QQ保存路径, QQ号&"-----"&QQ密码)  
    Delay 2000  
    Call Plugin.Web.Tips("保存成功,保存地址:"&QQ保存路径)  
End sub  
sub 等待输入验证码  
    Call Plugin.Web.Tips("请手动输入验证码,输入完成后,请按Enter键继续")  
    Delay 50  
    Rem 等待  
    回车键=WaitKey()  
    Delay 50  
    If 回车键=13 then  
        Goto 离开  
    End If  
    Delay 50  
    Goto 等待  
    Rem 离开  
End Sub


文件下载

Tags:

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网官方③群:三叶资源网官方③群

网站分类
随机tag
四级联动DLL劫持鱼刺多线程编码转换未闻花名皮肤模块按键精灵名片点赞界面引擎精易论坛屏幕录像微信HTML5布局之路文件拖拽Keep群控模拟器强行兼容高DPI屏幕锁屏工具百度登陆解析HTML语句QQ取本机cookie
最新评论