[分享]本人第一个欢迎批处理

novaa

 
@echo off
setlocal enabledelayedexpansion
set b=/-\
set t=
set num=0
:loop
for /l %%i in (0 1 2) do (
set /p=!b:~%%i,1!novaa<nul
set /p=%t%<nul
for /l %%j in (1 1 300) do set /p=<nul
set /a num+=1
)
if !num! gtr 148 goto :welcome
goto :loop
:welcome
set str=0123456789abcdef
echo.&echo.&echo.&echo.
set /p=            欢迎进入NOVAA的个人空间(hi.baidu.com/novaa)<nul
echo.&echo.
for /l %%i in (1 1 75) do set /p=^|<nul
for /l %%i in (1 1 75) do set /p=<nul
for /l %%i in (1 1 75) do (set /p=^><nul
for /l %%i in (1 1 500) do set /p=<nul
)
:color
set /a num=%random%%%10+1
set cl=!str:~%num%,2!
for /l %%i in (1 1 300) do set/p=<nul
color !cl!
set /a n+=1
if !n! gtr 50 goto :next
goto :color
:next
color 02
set strl=NOVAA所获得的荣誉勋章
echo.&echo.
for,/l,%%i,in (0 1 12) do set /p=!strl:~%%i,1!<nul & ping /n 1 127.1>nul
echo.&echo 1.最勤奋的人!
echo.&echo 2.最最帅气的人!
echo.&echo 3.最最最高尚的人!
echo.&echo 4.最最最最谦虚的人!
echo.&echo 5.最最最最最不要脸的人!
set stl1=既然选择了远方,就尽管风雨兼程吧!
echo.&echo.
for,/l,%%i in (0,1 16) do set /p=!stl1:~%%i,1!<nul & ping -n 2 127.1>nul
echo.
echo.
echo 谢谢观赏!
pause>nul
echo msgbox("谢谢观赏")>msg.vbs
msg.vbs
del msg.vbs
 
 

 
 
复制代码

smilediao

给你做点修改，不是你错了，而是方法不太好
调用vbscript的msgbox语句，只需要使用mshta  vbscript:msgbox("谢谢观赏!")(window.close)
就可以了！呵呵。。。

[ 本帖最后由 smilediao 于 2007-11-28 10:41 编辑 ]

novaa

哈哈
谢谢了
昨天才开始学习VBS，哈哈，班门弄斧了

youxi01

原帖由 smilediao 于 2007-11-28 10:39 发表
给你做点修改，不是你错了，而是方法不太好
调用vbscript的msgbox语句，只需要使用mshta  vbscript:msgbox("谢谢观赏!")(window.close)
就可以了！呵呵。。。:lol

这样的话，还不如用 命令行 下的msg

用法示例:msg * this is a test

smilediao

我按照你的格式使用了但是不行啊，语法错了吧。。

youxi01

有这样的事?

你试下你有没有msg这个命令?

novaa

测试通过啊！
哈哈
msg记住他了

smilediao

有msg命令
我用msg  /？来看的用法。

pict

学到了，我擦

Python

回复 9# pict


    你自己默默学习就行了，几年前的帖子就不要挖了吧？