标题: [分享]本人第一个欢迎批处理 [打印本页]
作者: novaa 时间: 2007-11-28 08:28 标题: [分享]本人第一个欢迎批处理
-
- @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 时间: 2007-11-28 10:39
给你做点修改,不是你错了,而是方法不太好
调用vbscript的msgbox语句,只需要使用mshta vbscript:msgbox("谢谢观赏!")(window.close)
就可以了!呵呵。。。
[ 本帖最后由 smilediao 于 2007-11-28 10:41 编辑 ]
作者: novaa 时间: 2007-11-28 10:55
哈哈
谢谢了
昨天才开始学习VBS,哈哈,班门弄斧了
作者: youxi01 时间: 2007-11-28 12:05
原帖由 smilediao 于 2007-11-28 10:39 发表
给你做点修改,不是你错了,而是方法不太好
调用vbscript的msgbox语句,只需要使用mshta vbscript:msgbox("谢谢观赏!")(window.close)
就可以了!呵呵。。。:lol
这样的话,还不如用 命令行 下的msg
用法示例:msg * this is a test
作者: smilediao 时间: 2007-11-28 13:36 标题: 回复 4# 的帖子
我按照你的格式使用了但是不行啊,语法错了吧。。
作者: youxi01 时间: 2007-11-28 14:11
有这样的事?
你试下你有没有msg这个命令?
作者: novaa 时间: 2007-11-28 15:16
测试通过啊!
哈哈
msg记住他了
作者: smilediao 时间: 2007-11-28 15:27 标题: 回复 6# 的帖子
有msg命令
我用msg /?来看的用法。
作者: pict 时间: 2013-6-13 10:34
学到了,我擦
作者: Python 时间: 2013-6-13 10:59
回复 9# pict
你自己默默学习就行了,几年前的帖子就不要挖了吧?
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |