切换到宽版
  • 25450阅读
  • 95回复

[QQ辅助]QQ申请神器(不用换IP无限申请超级版) [复制链接]

上一主题 下一主题
离线栤♂雨
只看该作者 30楼 发表于: 2010-09-17
又是
只看该作者 31楼 发表于: 2010-09-17
实施~~~~·
离线jyz0424

只看该作者 32楼 发表于: 2010-09-17
回复看看   我下载
离线ncms_cof

只看该作者 33楼 发表于: 2010-09-17
看看,谢谢。
离线rkxxzx

只看该作者 34楼 发表于: 2010-09-17
最多能申请多少个?
离线盼盼226234
只看该作者 35楼 发表于: 2010-09-17
Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/" '打开QQ号码申请页面
WScript.Sleep 3000 '延时10秒,等待页面载入
a.SendKeys "sheng" '这里填写昵称
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 "1234567890" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "1234567890" '再次输入密码
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
离线tsw1
只看该作者 36楼 发表于: 2010-09-17
谢谢共享。
离线akito

只看该作者 37楼 发表于: 2010-09-17
这个东西好就是不知道自己电脑能不能用..
离线mmm919

只看该作者 38楼 发表于: 2010-09-18
能不能下呀老大
离线jtgjh10

只看该作者 39楼 发表于: 2010-09-18
好喜欢
快速回复
限100 字节
如果您提交过一次失败了,可以用”恢复数据”来恢复帖子内容
 
上一个 下一个