Board logo

标题: [网络工具] 多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无缝切换的)
  1. start [QQ路径] /START QQUIN:[QQ号码] PWDHASH:[此处为密码加密后的字符串] /STAT:41   (41表示在线 隐身用40)
复制代码
  1. @echo off
  2. color 0a
  3. ::定义颜色
  4. ::============================密码部分开始============================
  5. ::          ╔══════════════════════╗
  6. ::          ║      编写:野菜   http://www.yecai123.cn/  ║
  7. ::          ╠══════════════════════╣
  8. ::          ║          QQ:959212677          ║
  9. ::          ╚══════════════════════╝
  10. set cishu=3
  11. ::定义最高尝试次数
  12. set mima=123
  13. ::定义密码
  14. set shijian=5
  15. ::定义超过尝试次数后多少秒后自动退出
  16. set times=%cishu%
  17. echo 请输入密码:
  18. echo 注:回车直接退出!!!
  19. set /p pass=
  20. goto kaishihou
  21. :kaishi
  22. set /p pass="请输入密码:"
  23. :kaishihou
  24. if %pass%=="" goto kaishi
  25. cls
  26. if %pass%==%mima% goto start
  27. set /a times=%times%-1
  28. if %times%==0 goto jieshu
  29. echo 对不起,密码错误!请重新输入!
  30. echo 还有%times%次机会
  31. goto kaishi
  32. :jieshu
  33. echo 对不起,你已连续输错密码%cishu%次!!!
  34. echo 程序将%shijian%秒后自动退出!!!
  35. ping -n %shijian% 127.0.0.1>nul
  36. exit
  37. :start
  38. ::为了不让别人看到密码,可以用BAT转EXE工具,把批处理转换成EXE可执行文件。
  39. ::============================密码部分结束============================
  40. ::============================寻找QQ路径============================
  41. for /f "skip=4 tokens=2,*" %%i in ('REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ" /v "Install"') do (
  42.     set QQ=%%j.\QQ.exe
  43. ) >nul 2>nul
  44. cls
  45. if not '%QQ%'=='' goto fndqq
  46. echo 注册表中没有QQ的安装信息,正在全盘搜索……
  47. 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 (
  48.     pushd %%a:\
  49.     for /r %%b in (.) do (
  50.         if exist %%b\QQ.exe set QQ=%%b\QQ.exe
  51.     )
  52. ) >nul 2>nul
  53. popd
  54. set regadd=%QQ:~0,-8%
  55. REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ" /v "Install" /t REG_SZ /d %regadd% >nul 2>nul
  56. cls
  57. :fndqq
  58. ::============================寻找QQ路径============================
  59. ::==========================主批处理部分开始==========================
  60. echo 请选择:
  61. echo.
  62. echo        1、只登陆QQ《947064999》
  63. echo.
  64. echo        2、只登陆QQ《959212677》
  65. echo.
  66. echo        3、同时登陆以上两个QQ
  67. echo.
  68. echo        4、登陆其他QQ
  69. echo.
  70. echo        5、关闭所有QQ ! ! !
  71. echo.
  72. ::显示可以选择的选项
  73. set /p choose="请输入序号:"
  74. ::输入上面的选项
  75. if %choose%==1 goto 1
  76. if %choose%==2 goto 2
  77. if %choose%==3 goto 3
  78. if %choose%==4 goto 4
  79. if %choose%==5 goto 5
  80. ::根据输入的序号判断下一步跳转到哪里
  81. :1
  82. start "" "%QQ%" /START QQUIN:947064999 PWDHASH:[此处为密码加密后的字符串] /STAT:41
  83. ::自动登陆QQ:947064999
  84. exit
  85. :2
  86. start "" "%QQ%" /START QQUIN:959212677 PWDHASH:[此处为密码加密后的字符串] /STAT:41
  87. ::自动登陆QQ:959212677
  88. exit
  89. :3
  90. start "" "%QQ%" /START QQUIN:947064999 PWDHASH:[此处为密码加密后的字符串] /STAT:41
  91. ping -n 5 127.0.0.1>nul
  92. ::设置延时5秒后运行下一条命令
  93. start "" "%QQ%" /START QQUIN:959212677 PWDHASH:[此处为密码加密后的字符串] /STAT:41
  94. exit
  95. :4
  96. start "" "%QQ%"
  97. ::直接打开QQ
  98. exit
  99. :5
  100. taskkill /im QQ.exe /f /t
  101. ::结束所有QQ进程
  102. exit
  103. ::==========================主批处理部分结束==========================
复制代码
链接: 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

我来稍微解释一下楼主整个代码:
代码第一部分
  1. ::============================密码部分开始============================
  2. :: ╔══════════════════════╗
  3. :: ║ 编写:野菜 hi.baidu.com/jsj30651 ║
  4. :: ╠══════════════════════╣
  5. :: ║ QQ:959212677 ║
  6. :: ╚══════════════════════╝
  7. set cishu=3
  8. ::定义最高尝试次数
  9. set mima=123
  10. ::定义密码 set shijian=5
  11. ::定义超过尝试次数后多少秒后自动退出
  12. set times=%cishu% echo 请输入密码:
  13. echo 注:回车直接退出!!!
  14. set /p pass= goto kaishihou :kaishi set /p pass="请输入密码:"
  15. :kaishihou if %pass%=="" goto kaishi
  16. cls
  17. if %pass%==%mima% goto start
  18. set /a times=%times%-1
  19. if %times%==0 goto jieshu echo 对不起,密码错误!请重新输入!
  20. echo 还有%times%次机会
  21. goto kaishi
  22. :jieshu echo 对不起,你已连续输错密码%cishu%次!!!
  23. echo 程序将%shijian%秒后自动退出!!!
  24. ping -n %shijian% 127.0.0.1>nul exit
  25. :start
  26. ::为了不让别人看到密码,可以用BAT转EXE工具,把批处理转换成EXE可执行文件。
  27. ::============================密码部分结束============================
复制代码

解释:这一部分主要是给这个自动登录器加上密码保护,如果别人不知道密码,就不能使用这个登录器,这里楼主设的初始密码是123,当然,有人会说,直接用记事本打开,看密码,不就行了吗,是的 ,可以这样看到密码,但是楼主已经提示了,最好用BAT转EXE,将这个自动登录器转为EXE格式。这样就很好的保护了密码。
代码第二部分
  1. ::============================寻找QQ路径============================
  2. for /f "skip=4 tokens=2,*" %%i in ('REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ" /v "Install"')
  3. do (
  4.        set QQ=%%j.\QQ.exe
  5. ) >nul 2>nul
  6. cls
  7. if not '%QQ%'=='' goto fndqq
  8. echo 注册表中没有QQ的安装信息,正在全盘搜索……
  9. 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 (
  10.      pushd %%a:\
  11.      for /r %%b in (.) do (
  12.           if exist %%b\QQ.exe set QQ=%%b\QQ.exe
  13. )
  14. ) >nul 2>nul
  15. popd
  16. set regadd=%QQ:~0,-8%
  17. REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ" /v "Install" /t REG_SZ /d %regadd% >nul 2>nul
  18. cls
  19. :fndqq
  20. ::============================寻找QQ路径============================
复制代码

解释:这一部分,我想不用说太多,就是寻找你机子上,QQ的安装路径。
代码第三部分
  1. ::==========================主批处理部分开始==========================
  2. echo 请选择:
  3. echo.
  4. echo 1、只登陆QQ《947064999》
  5. echo.
  6. echo 2、只登陆QQ《959212677》
  7. echo.
  8. echo 3、同时登陆以上两个QQ
  9. echo.
  10. echo 4、登陆其他QQ
  11. echo.
  12. echo 5、关闭所有QQ ! ! !
  13. echo.
  14. ::显示可以选择的选项
  15. set /p choose="请输入序号:"
  16. ::输入上面的选项
  17. if %choose%==1 goto 1
  18. if %choose%==2 goto 2
  19. if %choose%==3 goto 3
  20. if %choose%==4 goto 4
  21. if %choose%==5 goto 5
  22. ::根据输入的序号判断下一步跳转到哪里
  23. :1 start "" "%QQ%" /START QQUIN:947064999 PWDHASH:[此处为密码加密后的字符串] /STAT:41
  24. ::自动登陆QQ:947064999 exit
  25. :2 start "" "%QQ%" /START QQUIN:959212677 PWDHASH:[此处为密码加密后的字符串] /STAT:41
  26. ::自动登陆QQ:959212677 exit
  27. :3 start "" "%QQ%" /START QQUIN:947064999 PWDHASH:[此处为密码加密后的字符串] /STAT:41
  28. ping -n 5 127.0.0.1>nul
  29. ::设置延时5秒后运行下一条命令
  30. start "" "%QQ%" /START QQUIN:959212677 PWDHASH:[此处为密码加密后的字符串] /STAT:41
  31. exit
  32. :4 start "" "%QQ%"
  33. ::直接打开QQ exit
  34. :5 taskkill /im QQ.exe /f /t
  35. ::结束所有QQ进程
  36. exit
  37. ::==========================主批处理部分结束==========================
复制代码

解释:这一部分,正如楼主所说,是主要部分。它主要是显示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:
  1. @echo %dbg% off   &&   setlocal   &&   chcp 437|graftabl 936>nul   &&   set /p var=字符串:
  2. for /f %%. in ('md5 -d%var%') do set "var=%%."
  3. :toSplit
  4.    if [%a%]==[32] (goto :toBase64) else (call call set "str=%str% %%var:~%a%,2%%" && set /a a+=2)
  5.    goto :toSplit
  6. :toBase64
  7.    echo exit|%ComSpec%/kprompt e 100 %str% $_rcx$_10$_n tmp.tmp$_w$_q$_|debug>nul
  8.    for /f %%. in ('type tmp.tmp^|base64') do ( set "base64=%%." )
  9.    echo.&echo PwdHash码: %base64%   &&   del tmp.tmp >nul 2>nul
  10. 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 发表
再贴一个批处理版的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