自动申请qq代码!只需一个记事本!超快.稳定.绿色.安全

社区服务
高级搜索
猴岛论坛电脑百科自动申请qq代码!只需一个记事本!超快.稳定.绿色.安全
发帖 回复
倒序阅读 最近浏览的帖子最近浏览的版块
2个回复

自动申请qq代码!只需一个记事本!超快.稳定.绿色.安全

楼层直达
孟雨不寂寞

ZxID:8465378

等级: 大将

举报 只看楼主 使用道具 楼主   发表于: 2010-06-04 0
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即可
使用的过程中记得把输入法切换到英文输入状态!
运行 即可自动填写资料  大家都试试吧! 绝对可行!
本帖de评分: 1 条评分 DB +10
DB+10

我很赞同

夏.先生

ZxID:12201337

等级: 准尉
习惯了寂寞才会孤独。。。习惯了孤独才会寂寞。。。
举报 只看该作者 沙发   发表于: 2010-06-04 0
尝试过了。。谢谢分享
习惯了寂寞才会孤独
习惯了孤独才会寂寞
ω○涙Lē”

ZxID:12127274

等级: 上士
举报 只看该作者 板凳   发表于: 2010-06-04 0
已经有人发过了 、
« 返回列表
发帖 回复