中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: 和任意QQ聊天,, 上一主题 | 下一主题
zexuhu
初级用户

小兵


积分 66
发帖 30
注册 2008-1-13
来自 陕西
状态 离线
『楼 主』:  和任意QQ聊天,,

编了个小批处理,,可以和任意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

2008-1-17 16:26
查看资料  发送邮件  发短消息 网志  OICQ (349791091)  编辑帖子  回复  引用回复
zexuhu
初级用户

小兵


积分 66
发帖 30
注册 2008-1-13
来自 陕西
状态 离线
『第 2 楼』:  

高人指点一下

2008-1-17 16:40
查看资料  发送邮件  发短消息 网志  OICQ (349791091)  编辑帖子  回复  引用回复
zexuhu
初级用户

小兵


积分 66
发帖 30
注册 2008-1-13
来自 陕西
状态 离线
『第 3 楼』:  

自已坐沙发了,,,

2008-1-17 16:40
查看资料  发送邮件  发短消息 网志  OICQ (349791091)  编辑帖子  回复  引用回复
zexuhu
初级用户

小兵


积分 66
发帖 30
注册 2008-1-13
来自 陕西
状态 离线
『第 4 楼』:  

汗,,,是不是我写的太菜了

2008-1-17 17:21
查看资料  发送邮件  发短消息 网志  OICQ (349791091)  编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 5 楼』:  

汗,,,是不是别人已经发过了

2008-1-17 17:47
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zexuhu
初级用户

小兵


积分 66
发帖 30
注册 2008-1-13
来自 陕西
状态 离线
『第 6 楼』:  

晕,有人发过吗?我自已创造的,,不过我倒不知道我不是第一个了,,,

2008-1-17 17:52
查看资料  发送邮件  发短消息 网志  OICQ (349791091)  编辑帖子  回复  引用回复
nanhui112
初级用户





积分 127
发帖 59
注册 2007-11-13
状态 离线
『第 7 楼』:  我给你顶一个

dir|find "%qq%.html">nul&&goto aa
---------------------------------------------------
dir|findstr /c:"%qq%.html">nul&&goto aa 这样行不  我也是超级菜鸟
不知道得不 ^_^

   此帖被 +1 点积分    点击查看详情   
评分人:【 zexuhu 分数: +1  时间:2008-1-17 21:18


2008-1-17 20:30
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zexuhu
初级用户

小兵


积分 66
发帖 30
注册 2008-1-13
来自 陕西
状态 离线
『第 8 楼』:  

呵呵,,可以了,,学习,,,,,

2008-1-17 21:17
查看资料  发送邮件  发短消息 网志  OICQ (349791091)  编辑帖子  回复  引用回复
JIANHUILAI
初级用户





积分 116
发帖 51
注册 2008-1-12
状态 离线
『第 9 楼』:  

VERY GOOD

2008-1-27 11:10
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转: