这个大问题谁可以搞定？？？？？ - 中国DOS联盟论坛

在中国DOS联盟论坛混了有段日子了，然后自己想做个批处理登陆QQ制作程序，用到了本论坛的 MD5.EXE，因为要加密QQ密码~
但是测试过程中遇到了一个大问题，不知道怎么解决~这问题很是奇怪~代码应该是没有什么样问题的，问题是当程序运行到 :输出到BAT 这个部分的时候出了问题，事先准备好的代码不能完全输出到自动登陆器.bat 中，所以导致登陆不了QQ，
事先准备好的代码中间有2段代码如下：

ECHO echo 当前QQ文件地址是!QQPath!) >>QQ自动登陆.bat

ECHO start "" "!QQPath!" /START QQUIN:%qq% PWDHASH:%encstr% /stat:%zt%) >>QQ自动登陆.bat

就是2段代码的 !QQPath! 不能输出到 QQ自动登陆.bat
但是 :输出到BAT 部分和 :QQ密码加密部分在一个单独的P处理运行是没有问题的~~怎么撮在一块运行就出问题了？？？小第不才，求各位高人给个答案
~~~~万分感谢！！！！！！！！

传上来大家看看批处理登陆QQ制作程序

全部代码：

:qq
@echo off
MODE con COLS=50 LINES=20
title 批处理登陆QQ
color 1f

cls
echo. ╭─────────╮
echo. ╭───┤ 选择如下操作 ├───╮
echo. │ ╰─────────╯ │
echo │ 批处理登陆QQ │
echo. ╰─────────────────╯
pause

cls
echo.
echo. 批处理登陆QQ，方便快捷
echo. 省去输入账号和密码的麻烦（不支持QQ2009）
echo. 而且百分百防盗!
echo.
echo. 按任意键继续!
pause>nul

cls
set qq=
set /p qq=请输入QQ号码（Enter确认）:
cls

:QQ密码加密

@echo off
setlocal enabledelayedexpansion
set B64CODE=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=
set/p str=请输入QQ密码（Enter确认）:：
for /f %%i in ('md5 -d%str%') do set "strhex=%%i"

:encloop
if not defined strhex goto :encbreak
set chr1=0x!strhex:~0,2!
set chr2=0x!strhex:~2,2!
set chr3=0x!strhex:~4,2!
set strhex=%strhex:~6%
for %%i in (chr1 chr2 chr3) do if "!%%i!"=="0x" set %%i=0
set/a enc1=%chr1%">>"2
set/a enc2=((%chr1%"&"3)"<<"4)"|"(%chr2%">>"4)
set/a enc3=((%chr2%"&"15)"<<"2)"|"(%chr3%">>"6)
set/a enc4=%chr3%"&"63
if %chr3% equ 0 if %chr2% equ 0 (set enc4=64& set enc3=64) else (set enc4=64)
set encstr=!encstr!!B64CODE:~%enc1%,1!!B64CODE:~%enc2%,1!!B64CODE:~%enc3%,1!!B64CODE:~%enc4%,1!
goto :encloop
:encbreak
echo 转换后的QQ密码为: %encstr%

cls
echo.输入40为隐身 41为不隐身!
set zt=
set /p zt=是否?（Enter确认）:
cls

:输出到BAT

cls
ECHO @ECHO OFF^&SETLOCAL ENABLEDELAYEDEXPANSION >QQ自动登陆.bat
ECHO for /f "tokens=1,2,*" %%%%i in ('REG QUERY "HKLM\SOFTWARE\TENCENT\PLATFORM_TYPE_LIST\1" ^^^| FIND /I "TypePath"') DO ( >>QQ自动登陆.bat
ECHO SET QQPath=%%%%k >>QQ自动登陆.bat
:fggf
ECHO echo 当前QQ文件地址是!QQPath!) >>QQ自动登陆.bat
ECHO start "" "!QQPath!" /START QQUIN:%qq% PWDHASH:%encstr% /stat:%zt%) >>QQ自动登陆.bat
ECHO exit >>QQ自动登陆.bat

move QQ自动登陆.bat QQ%qq%自动登陆器.bat
cls
echo.成功在本目录下生成QQ号码为%qq%的自动登陆器
echo.
echo.按任意键登陆QQ%qq% !

pause>nul&start QQ%qq%自动登陆器.bat&goto qq

[ Last edited by wuji1234 on 2009-7-14 at 08:14 ]

第1楼　wuji1234	发表于 2009-07-14 08:03
新手上路　发帖 6　积分 6　来自湖南
这个大问题谁可以搞定？？？？？在中国DOS联盟论坛混了有段日子了，然后自己想做个批处理登陆QQ制作程序，用到了本论坛的 MD5.EXE，因为要加密QQ密码~ 但是测试过程中遇到了一个大问题，不知道怎么解决~这问题很是奇怪~代码应该是没有什么样问题的，问题是当程序运行到 :输出到BAT 这个部分的时候出了问题，事先准备好的代码不能完全输出到自动登陆器.bat 中，所以导致登陆不了QQ，事先准备好的代码中间有2段代码如下： ECHO echo 当前QQ文件地址是!QQPath!) >>QQ自动登陆.bat ECHO start "" "!QQPath!" /START QQUIN:%qq% PWDHASH:%encstr% /stat:%zt%) >>QQ自动登陆.bat 就是2段代码的 !QQPath! 不能输出到 QQ自动登陆.bat 但是 :输出到BAT 部分和 :QQ密码加密部分在一个单独的P处理运行是没有问题的~~怎么撮在一块运行就出问题了？？？小第不才，求各位高人给个答案 ~~~~万分感谢！！！！！！！！传上来大家看看批处理登陆QQ制作程序全部代码： :qq @echo off MODE con COLS=50 LINES=20 title 批处理登陆QQ color 1f cls echo. ╭─────────╮ echo. ╭───┤ 选择如下操作 ├───╮ echo. │ ╰─────────╯ │ echo │ 批处理登陆QQ │ echo. ╰─────────────────╯ pause cls echo. echo. 批处理登陆QQ，方便快捷 echo. 省去输入账号和密码的麻烦（不支持QQ2009） echo. 而且百分百防盗! echo. echo. 按任意键继续! pause>nul cls set qq= set /p qq=请输入QQ号码（Enter确认）: cls :QQ密码加密 @echo off setlocal enabledelayedexpansion set B64CODE=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/= set/p str=请输入QQ密码（Enter确认）:： for /f %%i in ('md5 -d%str%') do set "strhex=%%i" :encloop if not defined strhex goto :encbreak set chr1=0x!strhex:~0,2! set chr2=0x!strhex:~2,2! set chr3=0x!strhex:~4,2! set strhex=%strhex:~6% for %%i in (chr1 chr2 chr3) do if "!%%i!"=="0x" set %%i=0 set/a enc1=%chr1%">>"2 set/a enc2=((%chr1%"&"3)"<<"4)"\|"(%chr2%">>"4) set/a enc3=((%chr2%"&"15)"<<"2)"\|"(%chr3%">>"6) set/a enc4=%chr3%"&"63 if %chr3% equ 0 if %chr2% equ 0 (set enc4=64& set enc3=64) else (set enc4=64) set encstr=!encstr!!B64CODE:~%enc1%,1!!B64CODE:~%enc2%,1!!B64CODE:~%enc3%,1!!B64CODE:~%enc4%,1! goto :encloop :encbreak echo 转换后的QQ密码为: %encstr% cls echo.输入40为隐身 41为不隐身! set zt= set /p zt=是否?（Enter确认）: cls :输出到BAT cls ECHO @ECHO OFF^&SETLOCAL ENABLEDELAYEDEXPANSION >QQ自动登陆.bat ECHO for /f "tokens=1,2," %%%%i in ('REG QUERY "HKLM\SOFTWARE\TENCENT\PLATFORM_TYPE_LIST\1" ^^^\| FIND /I "TypePath"') DO ( >>QQ自动登陆.bat ECHO SET QQPath=%%%%k >>QQ自动登陆.bat :fggf ECHO echo 当前QQ文件地址是!QQPath!) >>QQ自动登陆.bat ECHO start "" "!QQPath!" /START QQUIN:%qq% PWDHASH:%encstr% /stat:%zt%) >>QQ自动登陆.bat ECHO exit >>QQ自动登陆.bat move QQ自动登陆.bat QQ%qq%自动登陆器.bat cls echo.成功在本目录下生成QQ号码为%qq%的自动登陆器 echo. echo.按任意键登陆QQ%qq% ! pause>nul&start QQ%qq%自动登陆器.bat&goto qq [ Last edited by wuji1234 on 2009-7-14 at 08:14* ]