[电脑辅助] 给大家分享一个QQ自动申请脚本

下面分享代码
Dim a
Set a=WScript.CreateObject("WScript.shell")
a.run "http://reg.qq.com/" '打开qq号码申请页面
WScript.Sleep 5000 '延时5秒，等待页面载入
a.SendKeys "493156628"
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "a123456" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "a123456" '再次输入密码
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"

密码均为a123456
复制到文本文档中，保存，后缀改成.vbs，双击打开即可