中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [原创][分享]QQ强聊+查询在线状态

luowei14
初级用户

积分 193
发帖 98
注册 2007-1-17
状态离线

『楼主』: [原创][分享]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 ]

2008-7-28 18:03

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: