中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-07 08:38
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 和任意QQ聊天,, 查看 1,087 回复 8
楼 主 和任意QQ聊天,, 发表于 2008-01-17 16:26 ·  中国 广东 深圳 润迅通信集团有限公司
初级用户
小兵
积分 66
发帖 30
注册 2008-01-13 16:07
18年会员
UID 108495
性别 男
来自 陕西
状态 离线
编了个小批处理,,可以和任意QQ聊天,,,
但有点问题,,,就FIND在查找的时候它认为1234 和12345是一个样的,,有没有解决办法?
@echo off
title 任意聊天
color 3
mode con: cols=35 lines=15
:toop
cls
echo ^ 临 时 聊 天 ^
echo _______________________________
echo 1.同任意QQ聊天。
echo 2.清除以前的聊天记录。
echo 3.退出。
echo _______________________________
set /P a=
if %a%==1 goto 01
if %a%==2 goto 02
if %a%==3 goto 03
echo 输入错误,按任意键重新输入。
pause
goto toop
:01
d:
cd\
dir|find "聊天记录">nul&&goto kaishi
md 聊天记录
:kaishi
d:
cd\
cd 聊天记录
echo 注:同你聊天的QQ将被存储在"D:\聊天记录"目录中可以随时查找.......
echo _______________________________
:chongshu
echo 请输入你想聊的QQ号:
set /p QQ=
set /a bb=%qq%+1
if %bb%==1 (echo 您的输入有误,按任意键重新输入。) else goto chenggong
pause
goto chongshu
:chenggong
dir|find "%qq%.html">nul&&goto aa
echo ^<html^>>>d:\聊天记录\%qq%.html
echo ^<head^>>>d:\聊天记录\%qq%.html
echo ^<meta http-equiv="refresh" content="0;url=http://wpa.qq.com/msgrd?V=1&Uin=%qq%&Site=ioshenmue&Menu=yes"^>>>d:\聊天记录\%qq%.html
echo ^</head^>>>d:\聊天记录\%qq%.html
echo ^<body^>>>d:\聊天记录\%qq%.html
echo ^</body^>>>d:\聊天记录\%qq%.html
echo ^</html^>>>d:\聊天记录\%qq%.html
start d:\聊天记录\%qq%.html
goto toop
:aa
echo 你所要聊的QQ已经运行过,按任意键再次运行。
pause
start d:\聊天记录\%qq%.html
goto toop
:02
d:
rd /s /q d:\聊天记录||goto shibai
echo 清理成功
pause
goto toop
:03
exit
:shibai
echo 请重启程序再进行清除.....
pause
exit
2 发表于 2008-01-17 16:40 ·  中国 广东 深圳 润迅通信集团有限公司
初级用户
小兵
积分 66
发帖 30
注册 2008-01-13 16:07
18年会员
UID 108495
性别 男
来自 陕西
状态 离线
高人指点一下
3 发表于 2008-01-17 16:40 ·  中国 广东 深圳 润迅通信集团有限公司
初级用户
小兵
积分 66
发帖 30
注册 2008-01-13 16:07
18年会员
UID 108495
性别 男
来自 陕西
状态 离线
自已坐沙发了,,,
4 发表于 2008-01-17 17:21 ·  中国 广东 深圳 润迅通信集团有限公司
初级用户
小兵
积分 66
发帖 30
注册 2008-01-13 16:07
18年会员
UID 108495
性别 男
来自 陕西
状态 离线
汗,,,是不是我写的太菜了
5 发表于 2008-01-17 17:47 ·  中国 重庆 电信
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
汗,,,是不是别人已经发过了
6 发表于 2008-01-17 17:52 ·  中国 广东 深圳 润迅通信集团有限公司
初级用户
小兵
积分 66
发帖 30
注册 2008-01-13 16:07
18年会员
UID 108495
性别 男
来自 陕西
状态 离线
晕,有人发过吗?我自已创造的,,不过我倒不知道我不是第一个了,,,
7 我给你顶一个 发表于 2008-01-17 20:30 ·  中国 广西 南宁 电信
初级用户
★★
积分 127
发帖 59
注册 2007-11-13 00:41
18年会员
UID 102491
性别 女
状态 离线
dir|find "%qq%.html">nul&&goto aa
---------------------------------------------------
dir|findstr /c:"%qq%.html">nul&&goto aa 这样行不 我也是超级菜鸟
不知道得不 ^_^
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
zexuhu +1 2008-01-17 21:18
8 发表于 2008-01-17 21:17 ·  中国 广东 深圳 福田区 电信
初级用户
小兵
积分 66
发帖 30
注册 2008-01-13 16:07
18年会员
UID 108495
性别 男
来自 陕西
状态 离线
呵呵,,可以了,,学习,,,,,
9 发表于 2008-01-27 11:10 ·  中国 广东 东莞 电信
初级用户
★★
积分 116
发帖 51
注册 2008-01-12 23:38
18年会员
UID 108440
性别 男
状态 离线
VERY GOOD
论坛跳转: