中国DOS联盟

最近为了方便机房老师发送消息，作为管理员的我作了个小东西给她用，请大家评下，最好提出改良方案 小弟谢啦！

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~``

color 9d

@echo off
@attrib 消息发送.bat +h +s
MODE con: COLS=20 LINES=2
MODE con: COLS=21 LINES=3
MODE con: COLS=22 LINES=4
MODE con: COLS=23 LINES=5
MODE con: COLS=24 LINES=6
MODE con: COLS=25 LINES=7
MODE con: COLS=26 LINES=8
MODE con: COLS=27 LINES=9
MODE con: COLS=28 LINES=10
MODE con: COLS=29 LINES=11
MODE con: COLS=30 LINES=12
MODE con: COLS=31 LINES=13
MODE con: COLS=32 LINES=14
MODE con: COLS=33 LINES=15
MODE con: COLS=34 LINES=16
MODE con: COLS=35 LINES=17
MODE con: COLS=36 LINES=18
MODE con: COLS=37 LINES=19
MODE con: COLS=38 LINES=20
MODE con: COLS=39 LINES=21
MODE con: COLS=40 LINES=22
MODE con: COLS=41 LINES=23
MODE con: COLS=42 LINES=24
MODE con: COLS=43 LINES=25
MODE con: COLS=44 LINES=26
MODE con: COLS=45 LINES=25
MODE con: COLS=46 LINES=24
MODE con: COLS=47 LINES=23
MODE con: COLS=48 LINES=22
MODE con: COLS=49 LINES=21
MODE con: COLS=50 LINES=20
@sc config Messenger start= auto
@net start messenger
cls
if exist zto.bat (goto :check) else goto :nozto
:check
if exist to.bat (goto :run) else goto :noto
:nozto
rem 写文件到zto.bat
echo title 发送消息>zto.bat
echo @color 9f>>zto.bat
echo echo off>>zto.bat
echo cls>>zto.bat
echo MODE con: COLS=50 LINES=20>>zto.bat
@echo set tm1=%%time:~0,2%%>>zto.bat
@echo set tm2=%%time:~3,2%%>>zto.bat
@echo set tm3=%%time:~6,2%%>>zto.bat
@echo ECHO #####%%date%% %%tm1%%点%%tm2%%分%%tm3%%秒#####>>zto.bat
echo echo ***@@~~~##★☆☆发送消息☆☆★##~~~@@***>>zto.bat
echo echo 本程序的使用格式如下：>>zto.bat
echo echo.>>zto.bat
echo echo to >>zto.bat
echo echo.>>zto.bat
echo echo 要返回选择常用请键入"b">>zto.bat
attrib zto.bat +h +s
:noto
rem 写文件至to.bat
echo @ color 9f>>to.bat
echo @ net send %%1 %%2 >>to.bat
echo @ set tm1=%%time:~0,2%%>>to.bat
echo @ set tm2=%%time:~3,2%%>>to.bat
echo @ set tm3=%%time:~6,2%%>>to.bat
echo @ ECHO %%date%% %%tm1%%点%%tm2%%分%%tm3%%秒^>^>记录.txt>>to.bat
echo @echo ☆~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~☆^>^>记录.txt >>to.bat
echo @echo 消息___"%%2"___^>^>记录.txt>>to.bat
echo @echo 发送到了计算机___%%1__^>^>记录.txt>>to.bat
echo @echo.^>^>记录.txt >>to.bat
echo @echo.^>^>记录.txt >>to.bat
echo @echo.^>^>记录.txt >>to.bat
echo @echo.^>^>记录.txt >>to.bat
echo @attrib 记录.txt +h +s>>to.bat
echo cls>>to.bat
echo 消息发送.bat>>to.bat
attrib to.bat +h +s
:run
echo cmd /k 消息发送.bat>b.bat
attrib b.bat +h +s
cls
title 发送消息
@color 9f
echo off
cls
MODE con: COLS=50 LINES=20
set tm1=%time:~0,2%
set tm2=%time:~3,2%
set tm3=%time:~6,2%
ECHO %date% %tm1%点%tm2%分%tm3%秒
@echo *****************快捷操作********************
@ECHO 1. 试验时间到请各位存盘并随手关闭计算机-到402
@ECHO 2. 请打扫卫生的同学留一下-到402
@ECHO 3. 请不要随地扔垃圾果皮纸屑-到402
@ECHO 6. 退出
@ECHO 7. 显示所有消息记录
@ECHO 8. 显示最近消息记录
@ECHO 9. 清空消息记录
@ECHO 0. 不作选择手动输入发送内容
@SET Choice=
@SET /P Choice=选择:
rem 设定变量"Choice"为用户输入的字符
IF NOT "%Choice%"=="" SET Choice=%Choice:~0,1%
rem 如果输入大于1位,取第1位,比如输入132,则返回值为1
IF /I "%Choice%"=="1" GOTO 1
IF /I "%Choice%"=="2" GOTO 2
IF /I "%Choice%"=="3" GOTO 3
IF /I "%Choice%"=="6" GOTO 6
IF /I "%Choice%"=="7" GOTO 7
IF /I "%Choice%"=="8" GOTO 8
IF /I "%Choice%"=="9" GOTO 9
IF /I "%Choice%"=="0" GOTO 0
else
cmd /k zto.bat
:1
to * 试验时间到请各位存盘并随手关闭计算机
:2
to * 请打扫卫生的同学留一下
:3
to * 请不要随地扔垃圾，果皮纸屑请放到门口的垃圾桶内，谢谢合作！
:6
MODE con: COLS=50 LINES=20
MODE con: COLS=49 LINES=21
MODE con: COLS=48 LINES=22
MODE con: COLS=47 LINES=23
MODE con: COLS=46 LINES=24
MODE con: COLS=45 LINES=25
MODE con: COLS=44 LINES=26
MODE con: COLS=43 LINES=25
MODE con: COLS=42 LINES=24
MODE con: COLS=41 LINES=23
MODE con: COLS=40 LINES=22
MODE con: COLS=39 LINES=21
MODE con: COLS=38 LINES=20
MODE con: COLS=37 LINES=19
MODE con: COLS=36 LINES=18
MODE con: COLS=35 LINES=17
MODE con: COLS=34 LINES=16
MODE con: COLS=33 LINES=15
MODE con: COLS=32 LINES=14
MODE con: COLS=31 LINES=13
MODE con: COLS=30 LINES=12
MODE con: COLS=29 LINES=11
MODE con: COLS=28 LINES=10
MODE con: COLS=27 LINES=9
MODE con: COLS=26 LINES=8
MODE con: COLS=25 LINES=7
MODE con: COLS=24 LINES=6
MODE con: COLS=23 LINES=5
MODE con: COLS=22 LINES=4
MODE con: COLS=21 LINES=3
MODE con: COLS=20 LINES=2
exit
:7
记录.txt
goto run
:8
type 记录.txt
PAUSE
b.bat
:9
echo 确认要这么做请任意键，否则连续按下ctrl+c两次回选单


@echo   
rem 响铃
PAUSE
attrib 记录.txt -h -s -a
attrib *.bak -h -s -a
@copy/y 记录.txt + *.bak %tm1%-%tm2%-%tm3%.ba_
@del *.bak
@ren *.??_ *.??k
@attrib %tm1%-%tm2%-%tm3%.bak +h +s +a
@echo %date% %tm1%点%tm2%分%tm3%秒 前记录已清空!>记录.txt
echo 操作已经完成！～
attrib 记录.txt +h +s +a
PAUSE
:0
cmd /k zto.bat



~~~~~~~~~~~~~~~~

下载地址：http://zhenlove.com.cn/cndos/fileup/files/消息发送『最终版』.rar

[ Last edited by zzghost on 2006-12-23 at 05:19 PM ]

为什么不用 for 呢～

HAI 还没有学会for的用法
帮我弄下我看看是怎么用

[ Last edited by zzghost on 2006-12-23 at 06:12 PM ]

能不能用下面几个语句代替那一大串
for %%a in(20,1,50)do MODE con: COLS="%a"
for %%b in(3,1,21)do MODE con: LINES="%b"

我是菜鸟，刚学，连for的基本格式也不懂，这是我评我的主观意识写的，希望大家多多修改！

测试的时候说 是“此时不应该有（20” 就这样

其他还有没有什么意见建议啊 给点啊

我测试的时候也会出现这个东西，不清楚

MODE con: COLS=20 LINES=2
MODE con: COLS=21 LINES=3
MODE con: COLS=22 LINES=4
MODE con: COLS=23 LINES=5
MODE con: COLS=24 LINES=6
MODE con: COLS=25 LINES=7
MODE con: COLS=26 LINES=8
MODE con: COLS=27 LINES=9
MODE con: COLS=28 LINES=10
MODE con: COLS=29 LINES=11
MODE con: COLS=30 LINES=12
MODE con: COLS=31 LINES=13
MODE con: COLS=32 LINES=14
MODE con: COLS=33 LINES=15
MODE con: COLS=34 LINES=16
MODE con: COLS=35 LINES=17
MODE con: COLS=36 LINES=18
MODE con: COLS=37 LINES=19
MODE con: COLS=38 LINES=20
MODE con: COLS=39 LINES=21
MODE con: COLS=40 LINES=22
MODE con: COLS=41 LINES=23
MODE con: COLS=42 LINES=24
MODE con: COLS=43 LINES=25
MODE con: COLS=44 LINES=26
MODE con: COLS=45 LINES=25
MODE con: COLS=46 LINES=24
MODE con: COLS=47 LINES=23
MODE con: COLS=48 LINES=22
MODE con: COLS=49 LINES=21
MODE con: COLS=50 LINES=20

　　这部分用下面的代码来代替比较简洁吧。

set a=20 b=2

:begin

mode con cols=%a% lines=%b%

set/a a+=1

set/a b+=1

if %a% equ 50 goto :end

goto :begin

:end

set a=

set b=

pause

[ Last edited by lxmxn on 2006-12-24 at 07:08 PM ]

Originally posted by hake at 2006-12-24 17:37:

简洁，但不简单。
我想请教下，如果用for语句呢？怎么写？

　　用for将会比这个复杂，不信你自己试试就知道了。

Originally posted by lxmxn at 2006-12-24 05:46 PM:


　　用for将会比这个复杂，不信你自己试试就知道了。

对我来说难，还是要麻烦你啊！

如果要用for语句来写，在语句中怎么执行
mode con cols=

楼主这个想法有意思～：）

@ECHO 1. 试验时间到请各位存盘并随手关闭计算机-到402

@ECHO 2. 请打扫卫生的同学留一下-到402

@ECHO 3. 请不要随地扔垃圾果皮纸屑-到402

@ECHO 6. 退出

@ECHO 7. 显示所有消息记录

@ECHO 8. 显示最近消息记录

@ECHO 9. 清空消息记录

@ECHO 0. 不作选择手动输入发送内容

谢谢大家的指点，但是如果我就要象我那种有一个回弹效果又要怎么遍？

14楼的兄弟，因为这个机房的老师是一个中年女士 所以~~~~