![Board logo](images/default/logo.gif)
标题: [网络工具] 多QQ自动登陆批处理版(2009-04-29更新) [打印本页]
作者: jsj30651 时间: 2008-3-20 13:54 标题: 多QQ自动登陆批处理版(2009-04-29更新)
代码的详细解释和使用方法详见本帖21楼
友情提醒,这种方法只适用于QQ2009之前的版本(不包括2009),这种方法的原理是利用了QQ个TM无缝切换的一个接口,QQ2009后QQ和TM整合了,省略了这个接口,所以也就无法用这种方法登录了。不过好在QQ2009可以记住多个QQ的密码。也可以实现不输入密码登录
"PWDHASH生成工具"和"VBS版QQ自动登录"已经打包,可以下载
代码执行过程:
1、判断密码是否正确,如果正确就就继续执行。否则退出。
2、从注册表读取QQ的安装路径。如果是绿色版的QQ(注册表中,没有路径)会全盘搜索QQ,为了下次登录QQ方便,会将路径写进注册表
3、开始登录QQ
本批处理仅供参考,需要更具实际情况修改,如果你懒得修改、或不会修改,可以试试VBS版的^_^
其实不管用什么方法自动登录,原理是一样的(用sendkey的方法除外),都是利用QQ的一个接口(起初腾讯是为了让QQ和TM无缝切换的)- start [QQ路径] /START QQUIN:[QQ号码] PWDHASH:[此处为密码加密后的字符串] /STAT:41 (41表示在线 隐身用40)
复制代码
复制代码
链接: https://pan.baidu.com/s/1-UkLabb8EAEM8DZqXQ0qQg?pwd=3nmu
链接: https://pan.baidu.com/s/1d5HNPc3FgXpVWv-UMDX0aw?pwd=ciy7
作者: 新雨 时间: 2008-3-20 14:35
谢谢!复制一个自己玩玩!
作者: 1kingkong 时间: 2008-4-19 19:29
支持一下 继续努力
作者: liyuhua2008 时间: 2008-6-30 20:20 标题: 试一试
看看可不可以啊,还是顶一下吧
作者: wuha3619 时间: 2008-7-10 02:42 标题: 回复 1楼 的帖子
呵呵 有点麻烦啊
现在工具挺多的
作者: 84918930 时间: 2008-8-14 14:00
运行不了
找不到QQ2008\QQ.exe
作者: zlq19590408 时间: 2008-8-15 10:17
不错``感谢lz了``学习```
作者: yewyao 时间: 2008-8-15 17:05
密码怎么输入啊 不知道怎么改成字符串
作者: jsj30651 时间: 2008-8-15 23:02 标题: 回复 6楼 的帖子
因为你没有修改QQ路径,QQ2008\QQ.exe是在我的电脑上的路径,
作者: Batcher 时间: 2008-8-16 12:38 标题: 回复 9楼 的帖子
你可以在代码中加一个功能:搜索注册表找到QQ的路径
作者: jiangxu110 时间: 2008-11-9 17:58 标题: 好象不怎么样啊
好象不怎么样啊 ~~~~
作者: Batcher 时间: 2008-11-9 18:52 标题: 回复 11楼 的帖子
“不怎么样”具体表现在哪些方面呢?
作者: superggp 时间: 2008-11-30 14:11
谢谢了,看看呵呵!!!!!!!!!!!!!!!
作者: yan 时间: 2008-12-4 17:35 标题: 好东西
好东西,感觉很有意思
作者: noname_hero 时间: 2008-12-16 20:54
怎么用啊?楼主能否指导一下?
作者: zjw767676 时间: 2009-1-20 16:34
试了一下,不用再输入密码了!很方便!xx
作者: dagoo 时间: 2009-2-7 18:16
你太有才了..............
作者: 心愿怕人 时间: 2009-2-8 14:39 标题: 感谢
人生何处逢知己,唯有DOS联盟在这里!强,我真是碰见了亲人了!我求知欲特强!谢谢
作者: dagoo 时间: 2009-2-13 16:16
谢谢,复制一个自己研究下
作者: qq524679427 时间: 2009-4-8 11:05
呵呵 有点麻烦啊
现在工具挺多的
作者: keen 时间: 2009-4-8 20:35
我来稍微解释一下楼主整个代码:
代码第一部分- ::============================密码部分开始============================
- :: ╔══════════════════════╗
- :: ║ 编写:野菜 hi.baidu.com/jsj30651 ║
- :: ╠══════════════════════╣
- :: ║ QQ:959212677 ║
- :: ╚══════════════════════╝
- set cishu=3
- ::定义最高尝试次数
- set mima=123
- ::定义密码 set shijian=5
- ::定义超过尝试次数后多少秒后自动退出
- set times=%cishu% echo 请输入密码:
- echo 注:回车直接退出!!!
- set /p pass= goto kaishihou :kaishi set /p pass="请输入密码:"
- :kaishihou if %pass%=="" goto kaishi
- cls
- if %pass%==%mima% goto start
- set /a times=%times%-1
- if %times%==0 goto jieshu echo 对不起,密码错误!请重新输入!
- echo 还有%times%次机会
- goto kaishi
- :jieshu echo 对不起,你已连续输错密码%cishu%次!!!
- echo 程序将%shijian%秒后自动退出!!!
- ping -n %shijian% 127.0.0.1>nul exit
- :start
- ::为了不让别人看到密码,可以用BAT转EXE工具,把批处理转换成EXE可执行文件。
- ::============================密码部分结束============================
复制代码
解释:这一部分主要是给这个自动登录器加上密码保护,如果别人不知道密码,就不能使用这个登录器,这里楼主设的初始密码是123,当然,有人会说,直接用记事本打开,看密码,不就行了吗,是的 ,可以这样看到密码,但是楼主已经提示了,最好用BAT转EXE,将这个自动登录器转为EXE格式。这样就很好的保护了密码。
代码第二部分
- ::============================寻找QQ路径============================
- for /f "skip=4 tokens=2,*" %%i in ('REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ" /v "Install"')
- do (
- set QQ=%%j.\QQ.exe
- ) >nul 2>nul
- cls
- if not '%QQ%'=='' goto fndqq
- echo 注册表中没有QQ的安装信息,正在全盘搜索……
- for %%a in (c d e f g h i j k l m n o p q r s t u v w x y z) do (
- pushd %%a:\
- for /r %%b in (.) do (
- if exist %%b\QQ.exe set QQ=%%b\QQ.exe
- )
- ) >nul 2>nul
- popd
- set regadd=%QQ:~0,-8%
- REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ" /v "Install" /t REG_SZ /d %regadd% >nul 2>nul
- cls
- :fndqq
- ::============================寻找QQ路径============================
复制代码
解释:这一部分,我想不用说太多,就是寻找你机子上,QQ的安装路径。
代码第三部分
- ::==========================主批处理部分开始==========================
- echo 请选择:
- echo.
- echo 1、只登陆QQ《947064999》
- echo.
- echo 2、只登陆QQ《959212677》
- echo.
- echo 3、同时登陆以上两个QQ
- echo.
- echo 4、登陆其他QQ
- echo.
- echo 5、关闭所有QQ ! ! !
- echo.
- ::显示可以选择的选项
- set /p choose="请输入序号:"
- ::输入上面的选项
- if %choose%==1 goto 1
- if %choose%==2 goto 2
- if %choose%==3 goto 3
- if %choose%==4 goto 4
- if %choose%==5 goto 5
- ::根据输入的序号判断下一步跳转到哪里
- :1 start "" "%QQ%" /START QQUIN:947064999 PWDHASH:[此处为密码加密后的字符串] /STAT:41
- ::自动登陆QQ:947064999 exit
- :2 start "" "%QQ%" /START QQUIN:959212677 PWDHASH:[此处为密码加密后的字符串] /STAT:41
- ::自动登陆QQ:959212677 exit
- :3 start "" "%QQ%" /START QQUIN:947064999 PWDHASH:[此处为密码加密后的字符串] /STAT:41
- ping -n 5 127.0.0.1>nul
- ::设置延时5秒后运行下一条命令
- start "" "%QQ%" /START QQUIN:959212677 PWDHASH:[此处为密码加密后的字符串] /STAT:41
- exit
- :4 start "" "%QQ%"
- ::直接打开QQ exit
- :5 taskkill /im QQ.exe /f /t
- ::结束所有QQ进程
- exit
- ::==========================主批处理部分结束==========================
复制代码
解释:这一部分,正如楼主所说,是主要部分。它主要是显示5个选项,让你选择,不同的选择,进行不同的功能。 新手们不会用,出错都是这一块。 当你选择1时,这当然是楼主自己的QQ号,它就会自动登录楼主的QQ号。要想登陆你的QQ号,首先把楼主的QQ号码换成你自己的。然后在PWDHASH:后面填写上自己QQ号的密码的经过加密后的字符串 。有人问,自己的QQ号密码,怎么加密,加密后的字符串是什么样子,问的好,楼主给出了一个PWDHASH工具,在附件中,下载后,打开PWDHASH,填写自己的QQ号密码,然后确定,然后你就会看到自己 QQ号密码的加密字符串。然后把这个字符串复制到代码中,楼主让你填写密码字符串的地方,就是[此处为密码加密后的字符串]。 选择2、3时,跟1一样。 选择4时,就是启动QQ自己的登录器。就是腾讯自己提供的登录界面。 选择5时,就是杀掉QQ进程。
[ 本帖最后由 keen 于 2009-4-8 20:48 编辑 ]
作者: keen 时间: 2009-4-8 23:33
再贴一个批处理版的PWDHASH:- @echo %dbg% off && setlocal && chcp 437|graftabl 936>nul && set /p var=字符串:
- for /f %%. in ('md5 -d%var%') do set "var=%%."
-
- :toSplit
- if [%a%]==[32] (goto :toBase64) else (call call set "str=%str% %%var:~%a%,2%%" && set /a a+=2)
- goto :toSplit
-
- :toBase64
- echo exit|%ComSpec%/kprompt e 100 %str% $_rcx$_10$_n tmp.tmp$_w$_q$_|debug>nul
- for /f %%. in ('type tmp.tmp^|base64') do ( set "base64=%%." )
- echo.&echo PwdHash码: %base64% && del tmp.tmp >nul 2>nul
-
- pause
复制代码
这是别人写的,我也忘了原作者是谁,如果是作者本人看到,请提示!
这个代码,要求有MD5工具。
其中有些代码,我也看不懂,贴出来,只是大家讨论,学习!
作者: Vincent 时间: 2009-4-10 14:50
找了很久!
作者: 随风 时间: 2009-4-29 19:53 标题: 回复 22楼 的帖子
这个代码不但需要md5工具还需要base64工具,
我说我怎么用md5和base64都无法得到正确结果呢,原来还有这一句。
echo exit|%ComSpec%/kprompt e 100 %str% $_rcx$_10$_n tmp.tmp$_w$_q$_|debug>nul
不懂。。
作者: Batcher 时间: 2009-4-29 20:30 标题: 回复 24楼 的帖子
有个纯批处理版的base64代码,可以摆脱对base64.exe的依赖。
作者: mysuperbat 时间: 2010-11-5 08:59
太复杂啦,不能输入自己想登的QQ
作者: tab 时间: 2010-12-3 00:40
原帖由 keen 于 2009-4-8 23:33 发表 ![](http://bbs.bathome.net/images/common/back.gif)
再贴一个批处理版的PWDHASH:@echo %dbg% off && setlocal && chcp 437|graftabl 936>nul && set /p var=字符串:
for /f %%. in ('md5 -d%var%') do set "var=%%."
:toSplit
if [%a%]==[32] (g ...
这个是cn-dos里的redtek写的。呵呵
作者: mlsinx 时间: 2011-1-14 10:45 标题: 回复 1楼 的帖子
好久没来这里了, 全盘搜索时应该有一个枚举函数吧, abcd那样应该太费事了吧
作者: yyid 时间: 2011-2-5 15:43
找了很久!!!!!!
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |