中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [原创][分享]QQ强聊+查询在线状态
作者:
标题: [原创][分享]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
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复

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


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



论坛跳转: