[网络工具] 批处理获取QQ路径、自动登录QQ小结及讨论(20160105)

Batcher

自动获取QQ路径的几种方法：读注册表、全盘搜索、获取进程信息等：

@echo off
REM 使用ftype获取QQ路径
for /f "tokens=1* delims==" %%a in ('ftype Tencent') do (
    set FilePath=%%~dpbQQ.exe
)
echo %FilePath%
pause
复制代码

@echo off
REM 使用WMIC获取进程信息中的QQ路径（要求QQ处于运行状态）
for /f "tokens=2 delims==" %%a in ('wmic process where "name='qq.exe'" get executablepath /value') do (
    set FilePath=%%a
)
echo %FilePath%
pause
复制代码

@echo off
REM 使用WMIC全盘搜索获取QQ路径
for /f "skip=1 delims=" %%a in ('wmic datafile where "filename='qq' and extension='exe'" get name') do (
    set FilePath=%%a
)
echo %FilePath%
pause
复制代码

@echo off
REM 使用reg query命令读注册表获取QQ路径
for /f "tokens=2*" %%a in ('reg query HKEY_LOCAL_MACHINE\Software\Tencent\QQ /v Install^|findstr "Install"') do (
    set FilePath=%%b
)
echo %FilePath%
pause
复制代码

@echo off
REM 使用reg export命令到处注册表项再搜索获取QQ路径以避免reg query可能存在的吃中文字符的问题
reg export "HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ" "%temp%\qq.txt">nul
for /f "tokens=2 delims==" %%a in ('type "%temp%\qq.txt"^|findstr /i "Install"') do (
    REM 可以用 %%~fa 直接把字符串中的\\变成\
    set FilePath=%%~a
)
set FilePath=%FilePath:\\=\%
echo %FilePath%
pause
复制代码

@echo off
REM 调用VBS读注册表获取QQ路径
>"%temp%\my.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")
>>"%temp%\my.vbs" echo WScript.Echo WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
for /f "delims=" %%a in ('cscript /nologo "%temp%\my.vbs"') do (
    set FilePath=%%a
)
echo %FilePath%
pause
复制代码

@echo off
REM 全盘搜索获取QQ路径
set fName=qq.exe
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 (
    if exist %%a:\nul (
        pushd %%a:\
        for /r %%b in (%fName%?) do (
            if /i "%%~nxb" equ "%fName%" (
                set FilePath=%%b
                goto :show
            )
        )
        popd
    )
)
:show
echo %FilePath%
pause
复制代码

从2009开始QQ不再支持命令行方式登录，请尝试发送按键的方式。

VBS发送按键自动登录QQ
http://bbs.bathome.net/thread-7893-1-1.html

AutoIt版QQ登录器
http://bbs.bathome.net/thread-2789-1-1.html

===================================================================================

原理及使用方法：

start "" "C:\Program Files\Tencent\QQ\qq.exe" /start QQUIN:843875648 PWDHASH:4Z1c1a8DeNoF9j+JHHRnrw== /stat:40
复制代码

10：上线登陆
40：隐身登陆
41：上线登陆
QQUIN和PWDHASH必须使用大写字母

原理：QQ在传输密码的时候，先做一次MD5加密，再做一次BASE64变换，这样可以得到正常的文本信息以便网络传输。找一个MD5在线查询的网站（比如http://www.xmd5.org/），输入QQ密码的明文，转换得到MD5加密的结果，再找一个BASE64在线查询的网站（比如http://www.waishi.net/ip/tools/base64.htm），输入刚才得到的MD5加密的结果，转换得到HASH编码即可。

使用VBS的SendKeys方法自动登录，因无法保证获取正确的交单，存在风险，因此不予考虑。

经测试，目前无法用这个方法登陆最新的QQ2009正式版，可能是新版的QQ未开启这个命令行接口吧，只能继续期待以后的版本了。

Batcher

回复 21# 434939575


不知道你测试的哪个代码不行。

仅就你的这一行代码而言，很好奇你看的哪个教程，加引号的方式怪怪的。
我建议改成如下的格式：
set "QQPath=C:\Program Files (x86)\Tencent\QQ\Bin"

434939575

回复 3# Batcher


    大佬获取当前qq好像不行啊，能指导下不，菜鸟。 set QQPath=C:\Program Files""(x86)\Tencent\QQ\Bin\

秋风·飞扬

回复 1# Batcher


    有些电脑 wmic datafile where................搜索的到的结果是 name
                                                                                           path
                                                                                           <空>
                                                                                           <空>
最好用if not difined QQPath set QQPath=%%a
skip已经跳过了name 只取第一行就行了

ygqiang

qq2011版本，好像楼上的方法，都不支持自动登录了。

tangqingfu

大牛！！学习中......

CNP840718519

真是让我受益匪浅啊！

hbwazxf

这样都行。。楼主太强大了。。

Hello123World

能完善个2010qq登陆器吗

supiti

很高兴看到这个,虽然回复的时侯看到2009不能用  0 0

Batcher

我测试过官方2009的所有版本，都不支持。2009以下的版本太多了，很难一一测试，至少2007、2008是可以的。

dengx

那天晚上测试了一晚都失败, 后来才知道, 原来2009是不支持的,

有人测试过2009其它版本吗,  2009以下的版本都支持吗,

laotou1000

@echo off&setlocal enabledelayedexpansion
echo 请稍候......
for /f "delims=" %%a in ('more +16 "%~0"') do (
     set tx=%%a&set var=
     for /f "tokens=1-4 delims=[]=" %%i in ('ping %%a^|findstr /i "%%a Average"') do call:LP "%%j" "%%l")
     for /f "tokens=1,2 delims=-=0" %%i in ('set -') do echo 最快服务器:%%j IP地址:!%%j! 响应时间%%i&goto end
:end
pause&exit
:LP
if not defined var set var=%~1
   if not %2=="" (
   set str=%~2&set str=!str: =!
   set str=00000000!str!&set str=!str:~-10!
   set -!str!=%TX%&set %TX%=!var!
)
goto :eof
sz.tencent.com
sz1.tencent.com
sz2.tencent.com
sz3.tencent.com
sz4.tencent.com
sz5.tencent.com
sz6.tencent.com
sz7.tencent.com
复制代码

谁能够帮我讲解一下LP中的每行代码的意思?不懂这段的意思。

如果我想要都显示所有服务器的ping响应值，该如何修改？？？

hawke_911

都是大牛！！学习中......

l394700317

学习了……好贴呀……