还是代码（实现QQ的申请）方便很多，亲测，可用

蒸饼灰 · 发表于 2010-5-21 22:04

Set a=WScript.CreateObject("WScript.shell")
a.run "h t t p:// n ewreg.qq.c o m/" '打开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}"

----------------------------------以上为代码---------------------------------------------

注意了：因为我没办法发 url 连接，所以上面链接到的网站需要自己补充改

新建TXT记事本
复制进去
另存为VBS即可
使用的过程中记得把输入法切换到英文输入状态！
运行即可自动填写资料大家都试试吧！绝对可行！

棉花糖tina · 发表于 2010-5-21 22:12

哈哈，谢谢

棉花糖tina · 发表于 2010-5-21 22:12

板凳

棉花糖tina · 发表于 2010-5-21 22:12

地板

棉花糖tina · 发表于 2010-5-21 22:12

我的

棉花糖tina · 发表于 2010-5-21 22:13

都是我的

棉花糖tina · 发表于 2010-5-21 22:13

哈哈

棉花糖tina · 发表于 2010-5-21 22:13

LZ不要见怪

蒸饼灰 · 发表于 2010-5-21 22:14

回复 8# 棉花糖tina

见怪不怪

棉花糖tina · 发表于 2010-5-21 22:15

回复 9# 忙鱼

呵呵

		自动登录	找回密码
密码			加入会员

[软件知识] 还是代码（实现QQ的申请）方便很多，亲测，可用

浏览过的版块

清职GG勋章

清职MM勋章

热心会员