关闭指定QQ号 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

显示机器上运行的QQ并关闭指定QQ号



@echo off 
setlocal enabledelayedexpansion
color 1f
MODE con: COLS=48 LINES=14
title 结束指定QQ号 %date% %time:~0,-3%


if not exist cmdow.exe (
echo 缺少cmdow.exe文件 
echo 按任意键添加
pause>nul 
goto getcmdow)

:start
(cmdow | find /i "_QQMusic_SmallClient")>%temp%\temp.txt||(echo 当前没有QQ登陆 & pause>nul & exit)
echo 		当前运行的QQ：
for /f "tokens=9 delims=_ " %%i in (%temp%\temp.txt) do (
set /a sum+=1 
set qq!sum!=%%i
echo 		!sum!:  %%i)
echo.
del %temp%\temp.txt
set /p num= 请指定要结束的QQ:  
if %num% leq !sum! (
	if %num% geq 1 	(  
	cmdow !qq%num%!_QQMusic_SmallClient /end 
	echo 成功关闭!qq%num%!
	pause>nul
	exit
	)
)
cls
echo 指定的号码不存在!
echo 按任意键退出
pause>nul
exit

:getcmdow
cls
echo 正在添加cmdow.exe...
>iget.vbs echo x=LCase(WScript.Arguments(1))
>>iget.vbs echo y=LCase(WScript.Arguments(0))
>>iget.vbs echo Set xPost=CreateObject("Microsoft.XMLHTTP")
>>iget.vbs echo xPost.Open "GET",y,0
>>iget.vbs echo xPost.Send()
>>iget.vbs echo Set sGet=CreateObject("ADODB.Stream")
>>iget.vbs echo sGet.Mode=3
>>iget.vbs echo sGet.Type=1
>>iget.vbs echo sGet.Open()
>>iget.vbs echo sGet.Write(xPost.responseBody)
>>iget.vbs echo sGet.SaveToFile x,2
iget.vbs http://www.vkill.net/tools/cmdow_1.4.3.rar cmdow.rar
"C:\Program Files\WinRAR\RAR.exe" e -o+ cmdow.rar >nul
del cmdow.rar
del iget.vbs
cls
echo 添加成功
echo 按任意键返回
pause>nul
cls
goto start

第1楼　matlan	发表于 2009-05-27 15:48
初级用户　发帖 63　积分 87
[原创]关闭指定QQ号显示机器上运行的QQ并关闭指定QQ号 @echo off setlocal enabledelayedexpansion color 1f MODE con: COLS=48 LINES=14 title 结束指定QQ号 %date% %time:~0,-3% if not exist cmdow.exe ( echo 缺少cmdow.exe文件 echo 按任意键添加 pause>nul goto getcmdow) :start (cmdow \| find /i "_QQMusic_SmallClient")>%temp%\temp.txt\|\|(echo 当前没有QQ登陆 & pause>nul & exit) echo 当前运行的QQ： for /f "tokens=9 delims=_ " %%i in (%temp%\temp.txt) do ( set /a sum+=1 set qq!sum!=%%i echo !sum!: %%i) echo. del %temp%\temp.txt set /p num= 请指定要结束的QQ: if %num% leq !sum! ( if %num% geq 1 ( cmdow !qq%num%!_QQMusic_SmallClient /end echo 成功关闭!qq%num%! pause>nul exit ) ) cls echo 指定的号码不存在! echo 按任意键退出 pause>nul exit :getcmdow cls echo 正在添加cmdow.exe... >iget.vbs echo x=LCase(WScript.Arguments(1)) >>iget.vbs echo y=LCase(WScript.Arguments(0)) >>iget.vbs echo Set xPost=CreateObject("Microsoft.XMLHTTP") >>iget.vbs echo xPost.Open "GET",y,0 >>iget.vbs echo xPost.Send() >>iget.vbs echo Set sGet=CreateObject("ADODB.Stream") >>iget.vbs echo sGet.Mode=3 >>iget.vbs echo sGet.Type=1 >>iget.vbs echo sGet.Open() >>iget.vbs echo sGet.Write(xPost.responseBody) >>iget.vbs echo sGet.SaveToFile x,2 iget.vbs http://www.vkill.net/tools/cmdow_1.4.3.rar cmdow.rar "C:\Program Files\WinRAR\RAR.exe" e -o+ cmdow.rar >nul del cmdow.rar del iget.vbs cls echo 添加成功 echo 按任意键返回 pause>nul cls goto start

第2楼　radem	发表于 2009-05-28 00:39
高级用户　发帖 383　积分 691
添加(cmdow.exe)成功但实际没成功因为--- 我的RAR不在C:\... ^o^

第3楼　matlan	发表于 2009-05-28 01:24
初级用户　发帖 63　积分 87
那得改成实际路径本想改成从注册表中读取rar的安装路径的，但能力有限，不知道怎么改，希望高手改进

第4楼　tireless	发表于 2009-05-28 01:51
银牌会员　发帖 1,122　积分 2,025
不如把 cmdow.exe 上传到一个可外链的网盘，如 clip2net [ Last edited by tireless on 2009-5-28 at 08:28 ]

第5楼　yishanju	发表于 2009-05-28 03:24
银牌会员　发帖 1,357　积分 1,488
把cmdow.exe转成批处理试试，，，

第6楼　HAT	发表于 2009-05-28 06:34
版主　发帖 5,017　积分 9,023
XP SP3 CS QQ2009 官方正式版 cmdow 1.4.3 cmdow的结果里面没有你指定的关键字。

第7楼　matlan	发表于 2009-05-30 03:49
初级用户　发帖 63　积分 87
qq2009 没测试过

第8楼　lotus516	发表于 2009-05-31 13:09
高级用户　发帖 246　积分 551
这个我抢了！