965查看
3回复

[经验分享] 那个自动申请QQ的权限太高我来解释一下

主题	好友	280 积分

中级会员

发消息

发表于 2010-6-22 10:51:11 |显示全部楼层

Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/" '打开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}"

我也不装内个b了、而且我也不会搞什么  回复才能看到的..  所以就不搞了、  会搞的人告诉我一下、我有不少东西要发。



      方法狠简单、在桌面新建一个文本（不懂？ -- 就是记事本、右击桌面、新建、文本文档、再不会我  抽死你）    然后直接他代码复制进去、然后把密码改成你自己想要的密码
然后把文档保存并退出。  然后把文档的后缀名 txt 改成vbs    如果你的电脑没有现实后缀名的、打开  菜单  、控制面板、文件夹选项、  查看、然后自己找到  隐藏后缀名把勾去掉。
然后就有后缀名了

      注意了  不要以为代码里面的 '  "  等等这些符号是多余的、

      你删了一个  都玩不起来。


还有人不会？我来直接举例一下

Set a=WScript.CreateObject("WScript.shell")
a.run "http://newreg.qq.com/" '打开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" 'a123456这里填写密码
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "tonghua" 'a123456重复密码
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"
WScript.Sleep 200
a.SendKeys "{TAB}"

               不会的  直接复制我上面的代码密码就是 a123456

什么原理？就是给计算机输入命令。提示一下、如果你当时网速非常慢、就不要用这个了、因为这个输入按键的时间都是改好的、如果你网速很慢  网页还没打开呢指令就输入了、所以前提是网速正常

使用道具举报