QQ强聊+查询在线状态 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

@echo off
cls
:top
title QQ强聊工具 Copy Right By LuoWei
COLOR 1f
rem 使用COLOR命令对控制台输出颜色进行更改
MODE con: COLS=43 LINES=16
rem MODE语句为设定窗体的宽和高
set tm1=%time:~0,2%
set tm2=%time:~3,2%
set tm3=%time:~6,2%
ECHO %date% %tm1%点%tm2%分%tm3%秒
ECHO ===================================
ECHO 请选择要进行的操作，然后按回车
ECHO ───────────────
ECHO.
ECHO 1. QQ强行聊天
ECHO 2. QQ在线状态查询
ECHO 3. 退出程序
ECHO.

:cho
SET xuanze=
set /p xuanze=输入序号：
IF NOT "%xuanze%"=="" SET Choice=%Choice:~0,1%
ECHO.
if /i "%xuanze%"=="1" goto liao
if /i "%xuanze%"=="2" goto zaixian
if /i "%xuanze%"=="3" exit
ECHO 选择无效，请重新输入
ECHO.
GOTO start

:liao
echo.
cls
set /p choice="输入要强聊的QQ号："
start tencent://message/?uin=%choice%
goto :eof
:zaixian
cls
echo.
set /p uin="输入要查询的QQ号："
echo "<a target=blank href=tencent://message/?uin=%uin%&Site=工具啦&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:%uin%:1 alt="点击这里给我发消息"></a>" >c:\search.html
start c:\search.html
echo 请稍等.正在查询...
pause>nul
del c:\search.html

[ Last edited by luowei14 on 2008-7-28 at 09:52 PM ]

第1楼　luowei14	发表于 2008-07-28 18:03
初级用户　发帖 98　积分 193
[原创][分享]QQ强聊+查询在线状态 @echo off cls :top title QQ强聊工具 Copy Right By LuoWei COLOR 1f rem 使用COLOR命令对控制台输出颜色进行更改 MODE con: COLS=43 LINES=16 rem MODE语句为设定窗体的宽和高 set tm1=%time:~0,2% set tm2=%time:~3,2% set tm3=%time:~6,2% ECHO %date% %tm1%点%tm2%分%tm3%秒 ECHO =================================== ECHO 请选择要进行的操作，然后按回车 ECHO ─────────────── ECHO. ECHO 1. QQ强行聊天 ECHO 2. QQ在线状态查询 ECHO 3. 退出程序 ECHO. :cho SET xuanze= set /p xuanze=输入序号： IF NOT "%xuanze%"=="" SET Choice=%Choice:~0,1% ECHO. if /i "%xuanze%"=="1" goto liao if /i "%xuanze%"=="2" goto zaixian if /i "%xuanze%"=="3" exit ECHO 选择无效，请重新输入 ECHO. GOTO start :liao echo. cls set /p choice="输入要强聊的QQ号：" start tencent://message/?uin=%choice% goto :eof :zaixian cls echo. set /p uin="输入要查询的QQ号：" echo "<a target=blank href=tencent://message/?uin=%uin%&Site=工具啦&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:%uin%:1 alt="点击这里给我发消息"></a>" >c:\search.html start c:\search.html echo 请稍等.正在查询... pause>nul del c:\search.html [ Last edited by luowei14 on 2008-7-28 at 09:52 PM ]