- UID
- 92838
- 帖子
- 17
- 积分
- 22
- 紫菀
- 0 朵
- 花瓣
- 88 片
- 花蕊
- 8 朵
- 野草莓
- 3 个
- 蒲公英
- 12 朵
- 社区等级
- 3 级
- 在线时间
- 9 小时
- 注册时间
- 2010-5-30
- 登录状态
-
当前离线
|
楼主
发表于 2010-6-2 20:52
| 只看该作者
为方便大家代码我已经写好了,新建一个TXT格式的文档,-将以下代码复制进去,另存为VBS即可。
使用的过程中记得把输入法切换到英文输入状态!
运行 即可自动填写资料
---------------------------------以下为代码---------------------------------------------
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}" |
|