VBS自动申请QQ代码

作者:王健宇 发布于:2010-8-21 8:42 Saturday 分类:转载

新建文本文档,另存为.VBS文件

==================================

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

标签: VBS 自动申请QQ

引用地址:

评论:

ray
2010-08-24 13:40
我也是emlog
王健宇
2010-08-24 14:41
@ray:恩、emlog很好很强大!

发表评论:

Powered by emlog 蜀ICP备10022623号 sitemap