标题: [求助]寻找能批量申请QQ的批处理或软件 [打印本页]

---

作者: 406317577     时间: 2008-10-8 08:10    标题: [求助]寻找能批量申请QQ的批处理或软件

批量申请QQ的软件谁有..分享下....能用批处理解决当然更好.......

---

作者: 406317577     时间: 2008-10-8 18:19
是不是批处理做不到还是太简单拉..我就想申请2个QQ连号....一个个太麻烦了..网站上找了半天不是有毒就是没有...

---

作者: wdmzjhk     时间: 2008-10-8 23:06
可以批量连号的话，腾讯qq赚钱恐怕早就没有我们赚钱多了。

---

作者: Evangel     时间: 2008-10-9 13:32
只能说，批处理不是万能的，就包括网络这一块……

---

作者: ccily2701     时间: 2008-10-9 19:10
想法是好的，

---

作者: wuji1234     时间: 2009-7-27 03:11    标题: VBS解决这个问题~~~~~~

WScript.CreateObject("WScript.Shell").Run "iexplore http://signup.qq.com/intl/zh-hant/"
WScript.Sleep 2000
Set Sh = CreateObject("WScript.Shell")
Sh.SendKeys "QQ2009
Sh.SendKeys "{Tab}"
Sh.SendKeys "23"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "QQpass"    '密码
Sh.SendKeys "{Tab}"
Sh.SendKeys "QQpass"    '密码
Sh.SendKeys "{Tab}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{down}"
Sh.SendKeys "{down}"
Sh.SendKeys "{down}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{down}"
Sh.SendKeys "{down}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{down}"
Sh.SendKeys "{down}"
Sh.SendKeys "{Tab}"

---

作者: wuji1234     时间: 2009-7-27 03:14    标题: 哦，不好意思，上面代码错了~~

WScript.CreateObject("WScript.Shell").Run "iexplore http://signup.qq.com/intl/zh-hant/"
WScript.Sleep 2000
Set Sh = CreateObject("WScript.Shell")
Sh.SendKeys "QQQQQQQQQQQ"
Sh.SendKeys "{Tab}"
Sh.SendKeys "23"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "shangxin2008"    '密码
Sh.SendKeys "{Tab}"
Sh.SendKeys "shangxin2008"    '密码
Sh.SendKeys "{Tab}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{down}"
Sh.SendKeys "{down}"
Sh.SendKeys "{down}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{down}"
Sh.SendKeys "{down}"
Sh.SendKeys "{Tab}"
Sh.SendKeys "{down}"
Sh.SendKeys "{down}"
Sh.SendKeys "{Tab}"

---

作者: wuji1234     时间: 2009-7-27 03:17
保存为VBS文件~输入验证码快速拿QQ

---

作者: xswdong     时间: 2009-8-10 06:28
去深度或者木蚂蚁下一个qq申请器就可以了
不过你不大可能申请到连号