QQ申请器， vbs的

最新推荐文章于 2025-09-04 20:59:40 发布

转载最新推荐文章于 2025-09-04 20:59:40 发布 · 73 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/zhanhb/archive/2011/05/25/2057215.html

文章标签：

#shell

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}"