纯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 ]
