中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-12 03:26

欢迎新会员 13383789659　 RSS
共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创]关闭指定QQ号查看 1,000　回复 7

楼主 [原创]关闭指定QQ号发表于 2009-05-27 15:48　·　中国山西忻州联通

matlan

初级用户

★★

积分 87
发帖 63
注册 2008-08-23 11:28
17年会员
UID 123947
性别男

状态离线

显示机器上运行的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