脚本命令写qq自动申请工具_电脑百科

ZxID：11457617

等级: 元老

举报只看楼主使用道具楼主发表于: 2010-09-19 0

不是原创，不记得多久以前的东西了

Set a=WScript.CreateObject("WScript.shell")?
a.run "http://newreg.qq.com/" '打开qq号码申请页面?
WScript.Sleep 3000 '延时10秒，等待页面载入?
a.SendKeys "wocaoTX" ' 这里填写昵称?
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 "bbs.houdao.com" '密码
a.SendKeys "{TAB}"?
WScript.Sleep 200?
a.SendKeys "bbs.houdao.com" '密码
WScript.Sleep 200?
a.SendKeys "{TAB}"?
WScript.Sleep 200?
a.SendKeys "{TAB}"?
WScript.Sleep 200?
a.SendKeys "{TAB}"?
WScript.Sleep 200?
a.SendKeys "{TAB}"?

上面是代码吧!复制到记事本另存为、[自动申请QQ号.VBS]昵称和密码在代码中可以改