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