QQ申请器， vbs的

Dim nickname,password,year,month,day
nickname="badapple" '昵称'
password="your password here" '密码'
year=1992
month=1
day=1
'Dim a,toyear
toyear=2011
Set a=WScript.CreateObject("WScript.shell")
a.run ("http://cht.reg.qq.com") '打开qq号码申请页面'
WScript.Sleep 5000 '延时5秒，等待页面载入,若5秒后页面仍未出现，可设置更长时间'
a.SendKeys nickname
a.SendKeys "{TAB}"
WScript.Sleep 200
Do While year <= toyear '今年'
a.SendKeys "{DOWN}"
year=year+1
Loop
a.SendKeys "{TAB}"
WScript.Sleep 200
Do While month > 0
a.SendKeys "{DOWN}"
month=month-1
Loop
a.SendKeys "{TAB}"
WScript.Sleep 200
Do while day > 0
a.SendKeys "{DOWN}"
day=day-1
Loop
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys password
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys password
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"