1个回复

一步到位,教你自己制作QQ申请器超简单

楼层直达

丿冥爵丶残泪

ZxID：14711124

等级: 上等兵

举报只看楼主使用道具楼主发表于: 2011-05-28 0

— 本帖被油条男丶执行锁定操作(2011-05-28) —

-，-真的超简单,

直接复制以下内容到记事本接着修改成 .vbs 格式就OK了

Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/" '打开QQ号码申请页面
WScript.Sleep 3000 '延时10秒，等待页面载入
a.SendKeys "QQ:406073039" '这里填写昵称
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 "wunai521" '这里是密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "wunai521" '再次输入密码
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
更多技术1158494082

更多技术1158494082

更多技术1158494082

更多技术1158494082

更多技术1158494082