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. ::          ╔══════════════════════╗

  7. ::          ║      编写：野菜   http://www.yecai123.cn/  ║

  8. ::          ╠══════════════════════╣

  9. ::          ║          ＱＱ：９５９２１２６７７          ║

  10. ::          ╚══════════════════════╝

  11. set cishu=3

  12. ::定义最高尝试次数

  13. 

  14. set mima=123

  15. ::定义密码

  16. 

  17. set shijian=5

  18. ::定义超过尝试次数后多少秒后自动退出

  19. 

  20. set times=%cishu%

  21. echo 请输入密码：

  22. echo 注：回车直接退出！！！

  23. set /p pass=

  24. goto kaishihou

  25. :kaishi

  26. set /p pass="请输入密码："

  27. :kaishihou

  28. if %pass%=="" goto kaishi

  29. cls

  30. if %pass%==%mima% goto start

  31. set /a times=%times%-1

  32. if %times%==0 goto jieshu

  33. echo 对不起，密码错误！请重新输入！

  34. echo 还有%times%次机会

  35. 

  36. goto kaishi

  37. 

  38. :jieshu

  39. echo 对不起，你已连续输错密码%cishu%次！！！

  40. echo 程序将%shijian%秒后自动退出！！！

  41. ping -n %shijian% 127.0.0.1>nul

  42. exit

  43. 

  44. :start

  45. ::为了不让别人看到密码，可以用BAT转EXE工具，把批处理转换成EXE可执行文件。

  46. ::============================密码部分结束============================

  47. 

  48. ::============================寻找QQ路径============================

  49. for /f "skip=4 tokens=2,*" %%i in ('REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ" /v "Install"') do (

  50.     set QQ=%%j.\QQ.exe

  51. ) >nul 2>nul

  52. cls

  53. if not '%QQ%'=='' goto fndqq

  54. 

  55. echo 注册表中没有QQ的安装信息，正在全盘搜索……

  56. 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 (

  57.     pushd %%a:\

  58.     for /r %%b in (.) do (

  59.         if exist %%b\QQ.exe set QQ=%%b\QQ.exe

  60.     )

  61. ) >nul 2>nul

  62. popd

  63. set regadd=%QQ:~0,-8%

  64. REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ" /v "Install" /t REG_SZ /d %regadd% >nul 2>nul

  65. cls

  66. :fndqq

  67. ::============================寻找QQ路径============================

  68. 

  69. ::==========================主批处理部分开始==========================

  70. echo 请选择:

  71. echo.

  72. echo        1、只登陆ＱＱ《９４７０６４９９９》

  73. echo.

  74. echo        2、只登陆ＱＱ《９５９２１２６７７》

  75. echo.

  76. echo        3、同时登陆以上两个ＱＱ

  77. echo.

  78. echo        4、登陆其他ＱＱ

  79. echo.

  80. echo        5、关闭所有ＱＱ ! ! !

  81. echo.

  82. ::显示可以选择的选项

  83. 

  84. set /p choose="请输入序号:"

  85. ::输入上面的选项

  86. 

  87. if %choose%==1 goto 1

  88. if %choose%==2 goto 2

  89. if %choose%==3 goto 3

  90. if %choose%==4 goto 4

  91. if %choose%==5 goto 5

  92. ::根据输入的序号判断下一步跳转到哪里

  93. 

  94. :1

  95. start "" "%QQ%" /START QQUIN:947064999 PWDHASH:[此处为密码加密后的字符串] /STAT:41

  96. ::自动登陆QQ：947064999

  97. exit

  98. 

  99. :2

  100. start "" "%QQ%" /START QQUIN:959212677 PWDHASH:[此处为密码加密后的字符串] /STAT:41

  101. ::自动登陆QQ：959212677

  102. exit

  103. 

  104. :3

  105. start "" "%QQ%" /START QQUIN:947064999 PWDHASH:[此处为密码加密后的字符串] /STAT:41

  106. ping -n 5 127.0.0.1>nul

  107. ::设置延时5秒后运行下一条命令

  108. start "" "%QQ%" /START QQUIN:959212677 PWDHASH:[此处为密码加密后的字符串] /STAT:41

  109. exit

  110. 

  111. :4

  112. start "" "%QQ%"

  113. ::直接打开QQ

  114. exit

  115. 

  116. :5

  117. taskkill /im QQ.exe /f /t

  118. ::结束所有QQ进程

  119. exit

  120. ::==========================主批处理部分结束==========================
复制代码
链接: 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.  :: ║ ＱＱ：９５９２１２６７７ ║ 

  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、只登陆ＱＱ《９４７０６４９９９》 

  5. echo. 

  6. echo 2、只登陆ＱＱ《９５９２１２６７７》 

  7. echo. 

  8. echo 3、同时登陆以上两个ＱＱ 

  9. echo. 

  10. echo 4、登陆其他ＱＱ 

  11. echo. 

  12. echo 5、关闭所有ＱＱ ! ! ! 

  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. 

  4. :toSplit

  5.    if [%a%]==[32] (goto :toBase64) else (call call set "str=%str% %%var:~%a%,2%%" && set /a a+=2)

  6.    goto :toSplit

  7. 

  8. :toBase64

  9.    echo exit|%ComSpec%/kprompt e 100 %str% $_rcx$_10$_n tmp.tmp$_w$_q$_|debug>nul 

  10.    for /f %%. in ('type tmp.tmp^|base64') do ( set "base64=%%." )

  11.    echo.&echo PwdHash码： %base64%   &&   del tmp.tmp >nul 2>nul

  12. 

  13. 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://bbs.bathome.net/) Powered by Discuz! 7.2