为编程爱好者分享易语言教程源码的资源网
三叶资源网易语言免费公开课
三叶资源网官方③群:33301895 三叶资源网解压密码 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现
三叶资源网官方③群:33301895 三叶资源网访问导航 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现

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

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

三叶资源网 2018-11-01 按键精灵Q语言 152 ℃ 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

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

欢迎 发表评论:

百度站内搜索
交流QQ群:33301895
三叶资源网官方③群:33301895
加群全凭信仰,群里有的资源网站也会有。
群里只是能及时交流,群主会尽力解答一些会的问题。
设置付费入群,只是为了过滤一些小号无意义广告。
所以不必要为了1块钱加群又退出
群主在群内发的红包都够你抢回来还有的多,更何况还能交流学习。
网站分类
随机tag
易语言资源网黑月支持库插件比特币引流集中营易语言网络相关源码微信群发百度POST支持库留言板自绘火山移动网易登录http抓包工具易语言5.8SubLime Text教程刺激战场VmprotectJS分析
最新评论