标题: [原创][分享]QQ强聊+查询在线状态 [打印本页]

---

作者: luowei14     时间: 2008-7-28 18:03    标题: [原创][分享]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 ]