![]() |
中国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 |