首先呢 先祝贺出新版块 教程在下面哦 不看全文的没JJ
PS:比手动网页申请和QQ申请器还要方便!!!
Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/" '打开qq号码申请页面
WScript.Sleep 3000 '延时10秒,等待页面载入
a.SendKeys "123" '这里填写昵称
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{DOWN}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "tonghua" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "tonghua" '再次输入密码
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
新建TXT记事本
把上面的都复制进去! 然后把txt重新命名为VBS即可
使用的过程中记得把输入法切换到英文输入状态!
运行 即可自动填写资料 大家都试试吧! 绝对可行!