多QQ自动登陆批处理版（2009-04-29更新）

zjw767676

试了一下，不用再输入密码了！很方便！xx

dagoo

你太有才了..............

心愿怕人

人生何处逢知己，唯有DOS联盟在这里!强，我真是碰见了亲人了！我求知欲特强！谢谢

dagoo

谢谢，复制一个自己研究下

qq524679427

呵呵 有点麻烦啊

现在工具挺多的

keen

我来稍微解释一下楼主整个代码：
代码第一部分

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. 
   
2. ::============================寻找QQ路径============================
   
3. for /f "skip=4 tokens=2,*" %%i in ('REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ" /v "Install"')
   
4. do (
   
5.        set QQ=%%j.\QQ.exe
   
6. ) >nul 2>nul
   
7. cls
   
8. if not '%QQ%'=='' goto fndqq
   
9. echo 注册表中没有QQ的安装信息，正在全盘搜索……
   
10. 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 (
    
11.      pushd %%a:\
    
12.      for /r %%b in (.) do (
    
13.           if exist %%b\QQ.exe set QQ=%%b\QQ.exe
    
14. )
    
15. ) >nul 2>nul
    
16. popd
    
17. set regadd=%QQ:~0,-8%
    
18. REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ" /v "Install" /t REG_SZ /d %regadd% >nul 2>nul
    
19. cls
    
20. :fndqq
    
21. ::============================寻找QQ路径============================
    

复制代码

解释：这一部分，我想不用说太多，就是寻找你机子上，QQ的安装路径。
代码第三部分

1. 
   
2. ::==========================主批处理部分开始==========================
   
3. echo 请选择:
   
4. echo.
   
5. echo 1、只登陆ＱＱ《９４７０６４９９９》
   
6. echo.
   
7. echo 2、只登陆ＱＱ《９５９２１２６７７》
   
8. echo.
   
9. echo 3、同时登陆以上两个ＱＱ
   
10. echo.
    
11. echo 4、登陆其他ＱＱ
    
12. echo.
    
13. echo 5、关闭所有ＱＱ ! ! !
    
14. echo.
    
15. ::显示可以选择的选项
    
16. set /p choose="请输入序号:"
    
17. ::输入上面的选项
    
18. if %choose%==1 goto 1
    
19. if %choose%==2 goto 2
    
20. if %choose%==3 goto 3
    
21. if %choose%==4 goto 4
    
22. if %choose%==5 goto 5
    
23. ::根据输入的序号判断下一步跳转到哪里
    
24. :1 start "" "%QQ%" /START QQUIN:947064999 PWDHASH:[此处为密码加密后的字符串] /STAT:41
    
25. ::自动登陆QQ：947064999 exit
    
26. :2 start "" "%QQ%" /START QQUIN:959212677 PWDHASH:[此处为密码加密后的字符串] /STAT:41
    
27. ::自动登陆QQ：959212677 exit
    
28. :3 start "" "%QQ%" /START QQUIN:947064999 PWDHASH:[此处为密码加密后的字符串] /STAT:41
    
29. ping -n 5 127.0.0.1>nul
    
30. ::设置延时5秒后运行下一条命令
    
31. start "" "%QQ%" /START QQUIN:959212677 PWDHASH:[此处为密码加密后的字符串] /STAT:41
    
32. exit
    
33. :4 start "" "%QQ%"
    
34. ::直接打开QQ exit
    
35. :5 taskkill /im QQ.exe /f /t
    
36. ::结束所有QQ进程
    
37. exit
    
38. ::==========================主批处理部分结束==========================
    

复制代码

解释：这一部分，正如楼主所说，是主要部分。它主要是显示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

再贴一个批处理版的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

找了很久！

随风

这个代码不但需要md5工具还需要base64工具，
我说我怎么用md5和base64都无法得到正确结果呢，原来还有这一句。
echo exit|%ComSpec%/kprompt e 100 %str% $_rcx$_10$_n tmp.tmp$_w$_q$_|debug>nul
不懂。。

Batcher

有个纯批处理版的base64代码，可以摆脱对base64.exe的依赖。

mysuperbat

太复杂啦,不能输入自己想登的QQ

tab

原帖由 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

好久没来这里了，   全盘搜索时应该有一个枚举函数吧，  abcd那样应该太费事了吧

yyid

找了很久！！！！！！