中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-06-13 19:36
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [原创][分享]QQ强聊+查询在线状态
楼 主 [原创][分享]QQ强聊+查询在线状态 发表于 2008-07-28 18:03 ·  中国 广东 佛山 顺德区 电信
初级用户
★★
积分 193
发帖 98
注册 2007-01-17 11:56
UID 76803
性别 男
状态 离线
@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 ]
论坛跳转: