中国DOS联盟

小弟想做个随身的U盘QQ登陆程序，主程序好了，可我不知道怎么自动复制到别人电脑的QQ目录下运行，求版主大大指教啊！
（要设置QQ的变量吗？）
谢谢各位的帮助哈，不过怎么实现把程序考进QQ的目录呢？（我的意思是能否启动一次BAT程序就实现将文件拷贝进QQ的目录里并运行）

这命令行不？

copy e:\1.txt %QQPath%

用tireless兄的

echo off

reg export HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ tmp.orz

more tmp.orz>tmp2.orz

for /f "skip=3 delims== tokens=2" %%o in (tmp2.orz) do set qqpath=%%o

copy e:\1.txt %qqpath:\\=\%

del tmp*.orz

pause

显示文件名、目录或卷标语法不正确

[ Last edited by HAT on 2008-12-5 at 22:52 ]

@echo off
for /f "skip=4 tokens=1,2 delims=:" %%a in ('reg query HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ /v Install') do (
set QQPathL=%%a
set QQPathR=%%b
)
set QQPath=%QQPathL:~-1%:%QQPathR%
echo %QQPath%
pause

这个代码是获取QQ的安装目录啊。

---------------------

[ Last edited by tireless on 2008-10-3 at 19:30 ]

奇怪，执行：

for /f "skip=4 tokens=2*" %a in ('reg query HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ /v Install') do @echo %b

得到的结果是 D:\Program Files\深度 DEEPQ
而正确的路径是 D:\Program Files\深度 DEEPQQ\

为什么？

[ Last edited by tireless on 2008-10-1 at 23:27 ]

for /f "skip=4 tokens=2*" %a in ('reg query HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ /v Install') do @echo %b




少了SP3补丁.装上就没问题了.以前我也遇到过.
reg对中文识别好像不健全.是HAT大哥告诉我的.

[ Last edited by 23112656 on 2008-10-2 at 03:39 ]

在命令提示符下，reg query 显示的结果是完整的。

而将 reg query 的结果输出到文件就会少字符。。

[ Last edited by tireless on 2008-10-4 at 12:30 ]

只能先把注册表导出。

@echo off

reg export HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ qq_.tmp

for /f "delims== tokens=2" %%o in ('more qq_.tmp^|find /i "install"') do set qqpath=%%o

COPY E:\1.TXT %qqpath:\\=\%

del qq_.tmp

XP SP2中文版的reg.exe有bug，当reg query遇到中文字符时可能会"吃字符"，详见http://www.cn-dos.net/forum/viewthread.php?tid=22202

解决方案如下：
1. 用XP SP2以上的版本的操作系统(XP SP3/2003/Vista等，XP SP2英文版也可)中的reg.exe来替换XP SP2中文版的reg.exe
2. 调用VBS读注册表，并把返回结果传递给BAT
3. 用reg export把注册表项导出到一个临时文件，再搜索该文件，值得注意的是reg export导出的文件是Unicode编码格式，可以使用type命令进行处理

不如用下面这个咯，说不定你有好几个QQ呢，也或者是用的绿色版的没有注册表路径呢？
那就开着QQ运行下面的批处理吧。

echo off
title 这个程序可显示内存中正运行的程序“QQ.EXE”的路径
cls

for /f "delims==" %%a in ('wmic process where caption^="qq.exe" get CommandLine^|find "QQ.exe"') do set qqpath=%%a
set qqpath=%qqpath:~1,-11%

echo %qqpath%

pause
set qqpath

Originally posted by exzzz at 2008-12-5 05:26 PM:
不如用下面这个咯，说不定你有好几个QQ呢，也或者是用的绿色版的没有注册表路径呢？
那就开着QQ运行下面的批处理吧。

echo off
title 这个程序可 ...

这位兄弟批处理变量用得活灵活现的

如果人家没有运行QQ咋办呢，呵呵。

@echo off
for %%f in (C D E F G H I J K L M N O P) do (
for /f %%i in ('dir %%f:\qq.exe /a /b /s') do set qq=%%i
)
start %qq%

彩虹QQ补丁 绿色版 好像不用运行qq 也能找到qq 的路径， 是最后一次运行qq 的路径， 不知咋原理？

这个符合要求不？

@echo off

for %%f in (C D E F G H I J K L M N O P) do (

for /f %%i in ('dir %%f:\qq.exe  /a  /b /s') do @echo %%i>qq.txt

)

for /f "delims=" %%a in ('findstr /n .*  qq.txt') do (

        set "var=%%a"

        setlocal enabledelayedexpansion

        set var=!var:*:=!

if not "!var!"==""  set var=!var:qq.exe=!

    echo.!var!>qqdz.txt

         endlocal

)

del qq.txt

for /f %%i in (qqdz.txt) do set qqdz=%%i

copy e:\1.txt  %qqdz%

del qqdz.txt

start %qqdz%\1.txt

[ Last edited by ZJHJ on 2008-12-5 at 22:46 ]

绿色版的QQ也可以识别,只要运行一次,注册表中就有路径存在
@echo off
setlocal enabledelayedexpansion
for /f "skip=4 delims=" %%i in ('reg query HKEY_CLASSES_ROOT\CLSID\{2D616D8F-F1BA-43A1-BEF0-E2A82A0FBD56}\LocalServer32 /ve 2^>nul') do set qqPath=%%i&set qqPath=!qqPath:~14!&set tmpVar=0&call :subPathChange "!qqPath!"
echo !qqPath!&pause&exit

:subPathChange
if !tmpVar! equ 0 set tmpVar=1&set qqPath=%~fs1&call :subPathChange "!qqPath!"
set qqPath=%~dp1
goto :eof