中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-02 01:29
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 菜鸟写的批处理出问题啦,请高手指教,在线等! 查看 1,369 回复 8
楼 主 菜鸟写的批处理出问题啦,请高手指教,在线等! 发表于 2006-09-18 09:58 ·  中国 广西 贵港 电信
高级用户
★★
学无尽止
积分 635
发帖 244
注册 2006-04-15 05:07
20年会员
UID 53857
性别 男
来自 广西贵港
状态 离线
我们网吧要举行比赛,我想在开机起动做个广告,
弄啦,半天啦,觉得做出来的很不好看,请救高手修改。在线等,谢谢
以下是:
@echo off
mode con lines=100
color 02e
title 鑫源网吧★劲舞比赛活动^^_^^
for /l %%i in (1,1,1) do (
echo ☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
echo ☆ ☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆ ☆
echo ☆ ☆ ☆ ☆
echo ☆ ☆ 鑫源网吧★劲舞比赛活动 ☆ ☆
echo ☆ ☆ ☆ ☆
echo ☆ ☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆ ☆
echo ☆比赛负责单位:★★鑫源网吧★★ ☆
echo ☆比赛服务器为:官方劲舞最新版本 华南一区 ☆
echo ☆比赛时间:2006年10月1日上午10点,比赛日程根据参赛人数, ☆
echo ☆28日抽签分组,29日公布赛程 ☆
echo ☆比赛地点:贵港市江北大道粮食大酒店二楼(火车站旁) ☆
echo ☆比赛区域:鑫源网络-19寸宽频液晶区《劲舞团比赛专区》 ☆
echo ☆比赛模式:个人4K 预赛歌曲:130-170bmp 高级个人8K 预赛歌曲:130-160bmp ☆
echo ☆报名方式:凡爱好(劲舞团)者携带个人身份证明等,到鑫源收银台索取参赛表格填写. ☆
echo ☆报名费:可报名参加两模式,单一模式5元报名费。 ☆
echo ☆报名时间:2006年9月18日起 ☆
echo ☆联系方式: 0775-4234316 ☆
echo ☆比赛资格:凡报名参加比赛的选手须携带个人证明和报名资料进入比赛区域参加比赛. ☆
echo ☆比赛流程:比赛采用预赛、半决赛、决赛三场、比赛背景为“篮球场”. ☆
echo ☆本次活动不单单是为了让大家秀出自己的实力..也还是一个与其他高手面对面较量的 ☆
echo ☆宝贵机会...而且活动组委 echo ☆会还在比赛中设立了各个奖项..等待你来勇夺桂冠.! ☆
echo ☆奖励方案: ☆
echo ☆一等奖:一名,300元现金+150元的会员卡一张 ☆
echo ☆二等奖:二名,200元现金+100元的会员卡一张 ☆
echo ☆三等奖:三名,150元现金+100元的会员卡一张 ☆
echo ☆比赛口号: 友谊第一.比赛第二.心动不如行动.还等什么.也许今夜舞林高手就是你噢!!!! ☆
echo ☆比赛目的: 鑫源网络给劲舞玩家提供一个展示自己的舞台.秀出自我.秀出风格.秀出水平. ☆
echo ☆比赛交流: 本次活动为了让更多的玩家互相认识,互相交流,互相切磋。 ☆
echo ☆比赛内容及规则:请到鑫源网络收银台索取 ☆
echo ☆ ☆
echo ☆ 欢迎广大劲舞爱好者踊跃报名参加 ☆
echo ☆ 特别申明:本网吧赛前有权根据实际情况需要更改比赛规则 ☆
echo ☆ ☆
echo ☆ ☆
echo ☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆!
)
pause>nul



这个的问题是,在运行的时候,不能自定义页面的大小,显示不完,而且我不想
它隔行显示,这样好像很不好看,请高手指教~!

[ Last edited by chainliq on 2006-9-18 at 10:00 ]
2 发表于 2006-09-18 10:00 ·  中国 江苏 苏州 电信
银牌会员
★★★
积分 1,181
发帖 533
注册 2006-08-14 12:54
19年会员
UID 60484
状态 离线
不如做个网页,开机就打开它。
3 发表于 2006-09-18 10:01 ·  中国 广西 贵港 电信
高级用户
★★
学无尽止
积分 635
发帖 244
注册 2006-04-15 05:07
20年会员
UID 53857
性别 男
来自 广西贵港
状态 离线
对网页一点都不了解呢,不会做啊~~
4 发表于 2006-09-18 10:06 ·  中国 广东 佛山 广东睿江科技有限公司
荣誉版主
★★★★
batch fan
积分 5,226
发帖 1,737
注册 2006-03-10 00:38
20年会员
UID 51697
来自 成都
状态 离线
  去掉无用的for语句,然后修改mode一句为mode con lines=35 cols=90。
尺有所短,寸有所长,学好CMD没商量。
考虑问题复杂化,解决问题简洁化。
5 发表于 2006-09-18 10:29 ·  中国 广西 贵港 电信
高级用户
★★
学无尽止
积分 635
发帖 244
注册 2006-04-15 05:07
20年会员
UID 53857
性别 男
来自 广西贵港
状态 离线
靠,高手就是高,不错不错,一下子就搞好啦,1`!~谢谢这位仁兄,~!!~问题解决!~
但如果要规定字的颜色,不知道怎么搞哦,
比如说,其它颜色不变,而我想要 “鑫源网吧★劲舞比赛活动” 这几个字特大,而且是红色,不知道怎么搞哦!~
6 发表于 2006-09-18 10:42 ·  中国 广东 佛山 广东睿江科技有限公司
荣誉版主
★★★★
batch fan
积分 5,226
发帖 1,737
注册 2006-03-10 00:38
20年会员
UID 51697
来自 成都
状态 离线
  只改变某个区域字符串的颜色,纯CMD批处理难以办到,似乎要修改一些sys文件,或者是借助第三方软件方可完成。
尺有所短,寸有所长,学好CMD没商量。
考虑问题复杂化,解决问题简洁化。
7 发表于 2006-09-18 20:35 ·  中国 广东 广州 越秀区 电信
中级用户
★★
积分 259
发帖 112
注册 2006-09-18 04:55
19年会员
UID 62928
性别 男
状态 离线
颜色配合有点问题哦...看上去怪怪的,不怎么吸引!
8 发表于 2006-09-19 04:22 ·  中国 甘肃 兰州 电信
金牌会员
★★★★
积分 4,103
发帖 1,744
注册 2006-01-20 13:00
20年会员
UID 49241
性别 男
来自 甘肃.临泽
状态 离线
首页设置个
9 发表于 2006-09-19 04:55 ·  中国 广西 玉林 博白县 电信
金牌会员
★★★★
积分 3,687
发帖 1,467
注册 2005-08-08 12:00
20年会员
UID 44210
状态 离线
纯CMD批处理好像无法做到不同字体大小
我做了一个IE界面的,可以很容易自己修改标题、活动内容、声明:
@echo off
title 鑫源网吧★劲舞比赛活动^^_^^
mode con cols=15 lines=3
setlocal EnableDelayedExpansion
color f
cls
echo.
echo 请稍等...

>%Temp%\Logo.vbs echo set WshShell = Wscript.CreateObject("Wscript.Shell")
>>%Temp%\Logo.vbs echo WshShell.Run "cmd /c del/q %Temp%\Logo.vbs",vbhide
>>%Temp%\Logo.vbs echo set ie=wscript.createobject("internetexplorer.application","event_")
>>%Temp%\Logo.vbs echo ie.fullscreen=0
>>%Temp%\Logo.vbs echo ie.menubar=0
>>%Temp%\Logo.vbs echo ie.addressbar=0
>>%Temp%\Logo.vbs echo ie.toolbar=0
>>%Temp%\Logo.vbs echo ie.statusbar=0
>>%Temp%\Logo.vbs echo ie.width=800
>>%Temp%\Logo.vbs echo ie.height=650
>>%Temp%\Logo.vbs echo ie.resizable=0
>>%Temp%\Logo.vbs echo ie.navigate "about:blank"
>>%Temp%\Logo.vbs echo ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2)
>>%Temp%\Logo.vbs echo ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2)
>>%Temp%\Logo.vbs echo ie.visible=1

>>%Temp%\Logo.vbs echo with ie.document
>>%Temp%\Logo.vbs echo .write "<html><title>"

for /f "delims=" %%i in (标题.txt) do (set title=%%i
set title=!title: = !&&>>%Temp%\Logo.vbs echo .write "!title!")

>>%Temp%\Logo.vbs echo .write "</title><body bgcolor=#e3e5da scroll=yes><p align=center>"
>>%Temp%\Logo.vbs echo .write "<table width=98%% borderColor=royalblue border=1 cellpadding=1 cellspacing=1 style=font-family:Tahoma,宋体;font-size:15px;>"
>>%Temp%\Logo.vbs echo .write "<tr align=center bgcolor=royalblue style=color:#ffffff;font-family:Tahoma,宋体;font-size:21px;><td><b>"
>>%Temp%\Logo.vbs echo .write "%title%"
>>%Temp%\Logo.vbs echo .write "<br></b></td></tr><tr bgcolor=e0e0e0 style=color:#000000><td>"

for /f "delims=" %%i in (活动内容.txt) do (set N=%%i
set N=!N: = !&&>>%Temp%\Logo.vbs echo .write "!N!<br>")

>>%Temp%\Logo.vbs echo .write "</td></tr><tr align=center bgcolor=royalblue style=color:#ffffff><td>"

for /f "delims=" %%i in (声明.txt) do (set N=%%i
set N=!N: = !&&>>%Temp%\Logo.vbs echo .write "!N!<br>")

>>%Temp%\Logo.vbs echo .write "</td></tr></table></body></html>"
>>%Temp%\Logo.vbs echo end with
>>%Temp%\Logo.vbs echo wscript.sleep 200
>>%Temp%\Logo.vbs echo WshShell.AppActivate ("%title% - Microsoft Internet Explorer")
>>%Temp%\Logo.vbs echo 'wscript.sleep 3000
>>%Temp%\Logo.vbs echo 'ie.quit

start %Temp%\Logo.vbs
exit


用“标题.txt”、“活动内容.txt”、“声明.txt”三个文本文件设定内容,修改脚本相应文件路径就可以了
PS:空的行要加一位空格;因为使用了 “setlocal EnableDelayedExpansion”,所以单字节的“!”无法显示

>>%Temp%\Logo.vbs echo 'wscript.sleep 3000
>>%Temp%\Logo.vbs echo 'ie.quit

这两行脚本去掉“'”符号为延时3000毫秒自动关闭窗口

[ Last edited by zxcv on 2006-9-18 at 19:21 ]
论坛跳转: