Board logo

标题: [分享]本人第一个欢迎批处理 [打印本页]

作者: novaa    时间: 2007-11-28 08:28     标题: [分享]本人第一个欢迎批处理

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. set b=/-\
  4. set t=
  5. set num=0
  6. :loop
  7. for /l %%i in (0 1 2) do (
  8. set /p=!b:~%%i,1!novaa<nul
  9. set /p=%t%<nul
  10. for /l %%j in (1 1 300) do set /p=<nul
  11. set /a num+=1
  12. )
  13. if !num! gtr 148 goto :welcome
  14. goto :loop
  15. :welcome
  16. set str=0123456789abcdef
  17. echo.&echo.&echo.&echo.
  18. set /p=            欢迎进入NOVAA的个人空间(hi.baidu.com/novaa)<nul
  19. echo.&echo.
  20. for /l %%i in (1 1 75) do set /p=^|<nul
  21. for /l %%i in (1 1 75) do set /p=<nul
  22. for /l %%i in (1 1 75) do (set /p=^><nul
  23. for /l %%i in (1 1 500) do set /p=<nul
  24. )
  25. :color
  26. set /a num=%random%%%10+1
  27. set cl=!str:~%num%,2!
  28. for /l %%i in (1 1 300) do set/p=<nul
  29. color !cl!
  30. set /a n+=1
  31. if !n! gtr 50 goto :next
  32. goto :color
  33. :next
  34. color 02
  35. set strl=NOVAA所获得的荣誉勋章
  36. echo.&echo.
  37. for,/l,%%i,in (0 1 12) do set /p=!strl:~%%i,1!<nul & ping /n 1 127.1>nul
  38. echo.&echo 1.最勤奋的人!
  39. echo.&echo 2.最最帅气的人!
  40. echo.&echo 3.最最最高尚的人!
  41. echo.&echo 4.最最最最谦虚的人!
  42. echo.&echo 5.最最最最最不要脸的人!
  43. set stl1=既然选择了远方,就尽管风雨兼程吧!
  44. echo.&echo.
  45. for,/l,%%i in (0,1 16) do set /p=!stl1:~%%i,1!<nul & ping -n 2 127.1>nul
  46. echo.
  47. echo.
  48. echo 谢谢观赏!
  49. pause>nul
  50. echo msgbox("谢谢观赏")>msg.vbs
  51. msg.vbs
  52. 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