[求助-系统问题]自动申请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记事本      
复制进去
另存为VBS即可
使用的过程中记得把输入法切换到英文输入状态！
运行 即可自动填写资料   大家都试试吧！ 绝对可行！

不错~支持~谢楼主~

估计对ip也限制的吧

引用第2楼quen2008于2010-05-07 09:14发表的  :
估计对ip也限制的吧

恩  很难有没得限制的

号多了也麻烦…

申请可以的，维护还是费力的啊

还是用下载器方便~~

的确挺不错的,先给顶起来吧!

呵呵，那申请的就不多了。

谢谢你了，很喜欢