中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS学习入门 & 精彩文章 （教学室） » 新手来报道，拿出作品请评
« [1] [2] [3] » ›
作者:
标题: 新手来报道，拿出作品请评 上一主题 | 下一主题
zzghost
初级用户





积分 43
发帖 14
注册 2006-12-21
状态 离线
『楼 主』:  新手来报道，拿出作品请评

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

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

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/fil ... 『最终版』.rar

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

   此帖被 +9 点积分      点击查看详情   
评分人：【 redtek 】分数： +5  时间：2006-12-24 21:07
评分人：【 zhoushijay 】分数： +4  时间：2007-4-30 02:28


2006-12-24 06:10
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 2 楼』:  

为什么不用 for 呢～

2006-12-24 06:45
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zzghost
初级用户





积分 43
发帖 14
注册 2006-12-21
状态 离线
『第 3 楼』:  

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

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

2006-12-24 07:08
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 4 楼』:  


　　不用ｆｏｒ就是纯体力活了。呵呵～

2006-12-24 12:27
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
hake
初级用户





积分 103
发帖 43
注册 2006-12-22
状态 离线
『第 5 楼』:  

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

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

2006-12-24 21:49
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zzghost
初级用户





积分 43
发帖 14
注册 2006-12-21
状态 离线
『第 6 楼』:  

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

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

2006-12-25 04:05
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
hake
初级用户





积分 103
发帖 43
注册 2006-12-22
状态 离线
『第 7 楼』:  

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

2006-12-25 04:58
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 8 楼』:  



  Quote:
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 ]

2006-12-25 06:02
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
hake
初级用户





积分 103
发帖 43
注册 2006-12-22
状态 离线
『第 9 楼』:  



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


　　这部分用下面的代码来代替比较简洁吧。
[code]
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  ...

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

2006-12-25 06:37
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 10 楼』:  



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

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


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

2006-12-25 06:46
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
hake
初级用户





积分 103
发帖 43
注册 2006-12-22
状态 离线
『第 11 楼』:  



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


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

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

2006-12-25 07:04
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
hake
初级用户





积分 103
发帖 43
注册 2006-12-22
状态 离线
『第 12 楼』:  

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

   此帖被 +1 点积分    点击查看详情   
评分人：【 jickyli 】分数： +1  时间：2007-3-31 14:59


2006-12-25 07:10
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 13 楼』:  


@echo off
setlocal EnableDelayedexpansion
for /l %%a in (20,1,50) do (
    set /a a=%%a
    set /a b=!a!-18
    mode con cols=!a! lines=!b!
)
pause

   此帖被 +7 点积分      点击查看详情   
评分人：【 redtek 】分数： +7  时间：2006-12-25 09:00


2006-12-25 07:31
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
redtek
金牌会员





积分 2902
发帖 1147
注册 2006-9-21
状态 离线
『第 14 楼』:  

楼主这个想法有意思～：）
@ECHO 1. 试验时间到请各位存盘并随手关闭计算机-到402
@ECHO 2. 请打扫卫生的同学留一下-到402
@ECHO 3. 请不要随地扔垃圾果皮纸屑-到402
@ECHO 6. 退出
@ECHO 7. 显示所有消息记录
@ECHO 8. 显示最近消息记录
@ECHO 9. 清空消息记录
@ECHO 0. 不作选择手动输入发送内容




　　　　Redtek，一个永远在网上流浪的人……

_.,-*~'`^`'~*-,.__.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._,_.,-*~'`^`'~*-,._
2006-12-25 09:03
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zzghost
初级用户





积分 43
发帖 14
注册 2006-12-21
状态 离线
『第 15 楼』:  

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

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

2006-12-26 03:24
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
« [1] [2] [3] » ›
请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


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



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023