关注每一天新的互联网!

自动申请QQ代码,只需一个记事本

 自动申请QQ代码,只需一个记事本,首先,在桌面新建一个文本文档,把如下代码复制进去,粘贴,然后保存,把记事本的后缀修改成VBS,然后运行,就可以自动申请QQ号码了.

 

Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/" ‘打开QQ号码申请页面
WScript.Sleep 3000 ‘延时10秒,等待页面载入
a.SendKeys "sleep" ‘这里填写昵称
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 "sleep" ‘这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "sleep" ‘再次输入密码
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"

分享到:更多 ()

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址