中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-07 09:24
48,040 主题排行 / 350,125 发帖 / 今日 0 篇 / 48,252 会员排行
DOS批处理 & 脚本技术(批处理室) » 和任意QQ聊天,,
可打印版本  1,089 / 8
第1楼 zexuhu 发表于 2008-01-17 16:26
初级用户 发帖 30 积分 66 来自 陕西
和任意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
第2楼 zexuhu 发表于 2008-01-17 16:40
初级用户 发帖 30 积分 66 来自 陕西
高人指点一下
第3楼 zexuhu 发表于 2008-01-17 16:40
初级用户 发帖 30 积分 66 来自 陕西
自已坐沙发了,,,
第4楼 zexuhu 发表于 2008-01-17 17:21
初级用户 发帖 30 积分 66 来自 陕西
汗,,,是不是我写的太菜了
第5楼 HAT 发表于 2008-01-17 17:47
版主 发帖 5,017 积分 9,023
汗,,,是不是别人已经发过了
第6楼 zexuhu 发表于 2008-01-17 17:52
初级用户 发帖 30 积分 66 来自 陕西
晕,有人发过吗?我自已创造的,,不过我倒不知道我不是第一个了,,,
第7楼 nanhui112 发表于 2008-01-17 20:30
初级用户 发帖 59 积分 127
我给你顶一个
dir|find "%qq%.html">nul&&goto aa
---------------------------------------------------
dir|findstr /c:"%qq%.html">nul&&goto aa 这样行不 我也是超级菜鸟
不知道得不 ^_^
第8楼 zexuhu 发表于 2008-01-17 21:17
初级用户 发帖 30 积分 66 来自 陕西
呵呵,,可以了,,学习,,,,,
第9楼 JIANHUILAI 发表于 2008-01-27 11:10
初级用户 发帖 51 积分 116
VERY GOOD
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023