标题: [已结]怎么自动搜索QQ的路径并复制一个程序进去运行 [打印本页]
作者: AKC 时间: 2008-10-1 21:19 标题: [已结]怎么自动搜索QQ的路径并复制一个程序进去运行
小弟想做个随身的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
显示文件名、目录或卷标语法不正确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 ]
作者: hackate 时间: 2008-10-1 22:08
@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的安装目录啊。
作者: tireless 时间: 2008-10-1 22:54
---------------------
[ Last edited by tireless on 2008-10-3 at 19:30 ]
作者: tireless 时间: 2008-10-1 23:20
奇怪，执行：
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 ]
作者: 23112656 时间: 2008-10-2 03:36
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 ]
作者: tireless 时间: 2008-10-2 11:01
在命令提示符下，reg query 显示的结果是完整的。
而将 reg query 的结果输出到文件就会少字符。。
[ Last edited by tireless on 2008-10-4 at 12:30 ]
作者: tireless 时间: 2008-10-4 12:00
只能先把注册表导出。
@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
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
作者: HAT 时间: 2008-10-4 12:42
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命令进行处理
作者: exzzz 时间: 2008-12-5 17:26
不如用下面这个咯，说不定你有好几个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
作者: 5551551 时间: 2008-12-5 19:30
| Quote: | |
|
这位兄弟批处理变量用得活灵活现的
作者: HAT 时间: 2008-12-5 20:03 标题: Re 9楼
如果人家没有运行QQ咋办呢，呵呵。
作者: ZJHJ 时间: 2008-12-5 22:14
@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%
作者: ooaf 时间: 2008-12-5 22:32
彩虹QQ补丁 绿色版 好像不用运行qq 也能找到qq 的路径， 是最后一次运行qq 的路径， 不知咋原理？
作者: ZJHJ 时间: 2008-12-5 22:44
这个符合要求不？
@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 ]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
作者: bluewaterx 时间: 2008-12-6 09:32
绿色版的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
作者: kaikai163 时间: 2008-12-11 11:52
学习了，条条大路通罗马，可是哪条路最近，最好走，值得大家去考虑！