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

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

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# 忙鱼


    呵呵
页: [1]
查看完整版本: 还是代码（实现QQ的申请）方便很多，亲测，可用