Board logo

标题: [游戏娱乐] 批处理模拟开机动画(2007-11-13日更新) [打印本页]

作者: youxi01    时间: 2007-11-1 23:06     标题: 批处理模拟开机动画(2007-11-13日更新)

  1. @echo off
  2. Rem code by youxi01@bbs.bathome.net
  3. ::::::::::::::::::::::::::  
  4. :生成vbs脚本,用来显示动画  
  5. echo CD=Wscript.Arguments(1)>showplan.vbe
  6. echo Str=Wscript.Arguments(0)>>showplan.vbe
  7. echo Time_Delay=Wscript.Arguments(2)>>showplan.vbe
  8. echo Switch1=Wscript.Arguments(3)>>showplan.vbe
  9. echo Switch2=Wscript.Arguments(4)>>showplan.vbe
  10. echo Str_Len=len(Str)>>showplan.vbe
  11. echo Show_Str Str,Str_Len,CD,Time_Delay,Switch1,Switch2>>showplan.vbe
  12. echo wscript.stdout.write vbcrlf>>showplan.vbe
  13. echo Function Show_Str(str,strlen,CD,Speed,Switch1,Switch2)>>showplan.vbe
  14. echo IF Ucase(Switch2)=^"Y^" then>>showplan.vbe
  15. echo Show_Cursor 8,CD>>showplan.vbe
  16. echo End if>>showplan.vbe
  17. echo IF str^<^>^"^" then>>showplan.vbe
  18. echo For i=1 to strlen>>showplan.vbe
  19. echo if i mod 2=0 then>>showplan.vbe
  20. echo Cursor=^" ^">>showplan.vbe
  21. echo else>>showplan.vbe
  22. echo Cursor=^"_^">>showplan.vbe
  23. echo end if>>showplan.vbe
  24. echo IF i=strlen then>>showplan.vbe
  25. echo Cursor=^" ^">>showplan.vbe
  26. echo End if>>showplan.vbe
  27. echo IF Ucase(Switch1)=^"Y^" then>>showplan.vbe
  28. echo str1=str1 ^& ^"^>^">>showplan.vbe
  29. echo wscript.stdout.write chr(13) ^& CD ^& str1^&Left(str,79-i) ^& chr(8)>>showplan.vbe  
  30. echo Else>>showplan.vbe
  31. echo wscript.stdout.write chr(13) ^& CD ^& Left(str,i)^&Cursor^& chr(8)>>showplan.vbe  
  32. echo End if>>showplan.vbe
  33. echo wscript.sleep Speed>>showplan.vbe
  34. echo Next>>showplan.vbe
  35. echo Else>>showplan.vbe
  36. echo Exit Function>>showplan.vbe
  37. echo End if>>showplan.vbe
  38. echo End Function>>showplan.vbe
  39. echo Function Show_Cursor(Num,CD)>>showplan.vbe
  40. echo for i=1 to Num>>showplan.vbe
  41. echo if i mod 2=0 then>>showplan.vbe
  42. echo Cursor=^" ^">>showplan.vbe
  43. echo else>>showplan.vbe
  44. echo Cursor=^"_^">>showplan.vbe
  45. echo end if>>showplan.vbe
  46. echo wscript.stdout.write chr(13) ^& CD ^& Cursor ^& chr(8)>>showplan.vbe
  47. echo wscript.sleep 200>>showplan.vbe
  48. echo Next>>showplan.vbe
  49. echo End Function>>showplan.vbe
  50. :初始设置;  
  51. set str1=开机  
  52. set str2=快开机  
  53. set str3=他开机  
  54. set str4=你他妈到底开不开机  
  55. set str5=操!!再不开机老子砸了你!!  
  56. set str6=不是内部或外部命令,也不是可运行的程序  
  57. set str7=或批处理文件。  
  58. set str8================================================================================  
  59. :::::::::::::::::::::::::::::::::::::::::::::::  
  60. :主控程序;  
  61. cscript.exe showplan.vbe %str1% "%~dp0>" 120 "" "Y" //nologo
  62. call :Msg %str1%
  63. cscript.exe showplan.vbe %str2% "%~dp0>" 100 "" "Y" //nologo
  64. call :Msg %str2%
  65. cscript.exe showplan.vbe %str3% "%~dp0>" 180 "" "Y" //nologo
  66. call :Msg %str3%
  67. cscript.exe showplan.vbe %str4% "%~dp0>" 180 "" "Y" //nologo
  68. call :Msg %str4%
  69. cscript.exe showplan.vbe %str5% "%~dp0>" 80 "" "Y" //nologo
  70. cscript.exe showplan.vbe "" "" 100 "" "Y" //nologo
  71. echo Loading Windows 2000 ...
  72. echo.  
  73. cscript.exe showplan.vbe %str8% "" 50 "Y" "" //nologo
  74. del showplan.vbe
  75. goto :eof
  76. :Msg  
  77. ping -n 2 127.0.0.1>nul
  78. echo '%1'%str6%
  79. echo %str7%
  80. echo.
复制代码

作者: chsh2016    时间: 2008-4-7 03:33

不错哦,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
作者: 没钱上网    时间: 2008-4-8 22:57

呵呵 下来看下 ··
感觉挺好玩的
作者: zncznc    时间: 2008-6-10 05:11

挺经典的。厉害啊!!!
作者: 54cml    时间: 2008-6-22 14:29

呵呵,好逼真啊
作者: w156445045    时间: 2008-6-26 12:58

呵呵厉害啊~!~~~~~
作者: 骚鸡    时间: 2008-7-13 17:40

怎么我运行的里面的下面代码
set str1=开机  
set str2=快开机  
set str3=他开机  
set str4=你他妈到底开不开机  
set str5=操!!再不开机老子砸了你!!  
set str6=不是内部或外部命令,也不是可运行的程序  
set str7=或批处理文件。  

都提示:不是内部或外部命令,也不是可运行的程序或批处理文件。呢?
作者: hpdwz8695pcl    时间: 2008-8-2 22:38

呵呵,不错啊,真得不错
作者: mp12    时间: 2008-9-28 17:03

你他,真的让人好笑。
作者: Peking007    时间: 2009-2-27 17:43

挺经典的。厉害啊!!!
作者: sampeck    时间: 2009-6-26 17:17

虽然很久以前看过了,但现在回味一下,也是很有意思的
作者: athinko    时间: 2009-10-6 10:33


虽然米什么大用,、
但是挺有趣的
作者: 5566ljlj    时间: 2009-10-17 21:57

恩 写的挺好的程序。。
作者: tession    时间: 2009-10-19 16:48

原帖由 骚鸡 于 2008-7-13 17:40 发表
怎么我运行的里面的下面代码
set str1=开机  
set str2=快开机  
set str3=他开机  
set str4=你他妈到底开不开机  
set str5=操!!再不开机老子砸了你!!  
set str6=不是内部或外部命令,也不是可运行的程序   ...

我也是 而且如果BAT文件放在路径名有空格的地方时,又不一样,这是什么原因呢?
作者: 529112036yk    时间: 2010-8-10 23:30

真的   很强悍啊!
作者: raymai97    时间: 2010-8-12 21:08

很搞笑下!也做得很不错!加油!




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2