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

=易游=自动申请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