[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[特效代码] [娱乐]Hope黑白动画

  1. @Echo off
  2. Mode Con: Cols=48 Lines=4
  3. Color 0f
  4. Chcp 936 > Nul
  5. Title Hope Art Studio
  6. @Goto :StartUp
  7. :StartUp
  8. Echo.
  9. Echo.                     Please
  10. Echo.                      Wait
  11. For /l %%i in (1,1,144) do Call :Set_Bs
  12. Set "Hope=Hope"
  13. For /l %%i in (1,1,22) do Call :Set_Hope
  14. Set "Studio=Studio"
  15. For /l %%i in (1,1,21) do Call :Set_Studio
  16. Set "Arrow[1]=^<"
  17. For /l %%i in (1,1,11) do Call :Set_Arrow1
  18. Set "Arrow[2]=^>"
  19. For /l %%i in (1,1,11) do Call :Set_Arrow2
  20. Cls
  21. @Goto :Main
  22. :Main
  23. Set /p String=%Bs_%   %Arrow[1]%%Hope%%Studio%%Arrow[2]%   <Nul
  24. Call :Sleep 512
  25. Set /p String=%Bs_%  %Arrow[1]% %Hope%%Studio% %Arrow[2]%  <Nul
  26. Call :Sleep 512
  27. Set /p String=%Bs_% %Arrow[1]%  %Hope%%Studio%  %Arrow[2]% <Nul
  28. Call :Sleep 512
  29. Set /p String=%Bs_%%Arrow[1]%   %Hope%%Studio%   %Arrow[2]%<Nul
  30. Call :Sleep 512
  31. @Goto :Main
  32. :Set_Bs
  33. Set "Bs_=%Bs_%"
  34. @Goto :Eof
  35. :Set_Hope
  36. Set "Hope= %Hope% "
  37. @Goto :Eof
  38. :Set_Studio
  39. Set "Studio= %Studio% "
  40. @Goto :Eof
  41. :Set_Arrow1
  42. Set "Arrow[1]=%Arrow[1]%   ^<"
  43. @Goto :Eof
  44. :Set_Arrow2
  45. Set "Arrow[2]=%Arrow[2]%   ^>"
  46. @Goto :Eof
  47. :Sleep <Num>
  48. For /l %%i in (1,1,%i) Do (
  49. Set ReturnKey=1
  50. )
  51. @Goto :Eof
复制代码
By Hope2021
谢谢
2

评分人数

Why join the navy, if you can be a pirate? - Steve Jobs

这个也可以,还加上闪的那种。嘿嘿

TOP

回复 2# zzz19760225
还加上闪的那种

指什么?
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

本帖最后由 zzz19760225 于 2021-10-7 10:06 编辑

名字上下层交错闪白花点
蛮好蛮好,学习了学习了
有空作为样本抄写一部分
配上声音那个,可以做批处理动画了,要是模块化,可以做成简单软件,卖给业余居家的人,制作家庭简单影视,描述家庭情况或启蒙教育子女。


要一块钱那种,下载要原版的,就得去作者那里,一元微信,支付宝,或邮政,个人码什么的,简单又便宜。
全国大部分没多少钱,又喜欢丰富家庭生活,大有人在,但是必须得去别人的网络网站。单机的可以家内小群体记忆回忆,生日什么的各种纪念日可以有情淡泊的展示。总之我个人感觉需求量很大。

TOP

回复 4# zzz19760225
谢谢您的建议,将来会继续改进.
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

本帖最后由 HOPE2021 于 2021-10-7 10:19 编辑

回复 4# zzz19760225
可以做成简单软件

这是个远大的计划,需要上下求索.我只会一些界面设计,请参考[请在http://www.bathome.net/thread-60261-1-1.html下载配套的Colour.Exe]:
  1. chcp 437
  2. if "%1"=="" (
  3.   for %%a in (  FontSize:00100008
  4.                 FontFamily:00000030
  5.                 WindowSize:003d0050
  6.                 ScreenColors:0000000f
  7.                 CodePage:000001b5
  8.                 ScreenBufferSize:003d0050
  9.   ) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (
  10.     >nul reg add HKCU\Console\DosBatch_Edit /v %%b /t reg_dword /d 0x%%c /f
  11.   )
  12.   start "DosBatch_Edit" "%ComSpec%" /c "%~s0" 1&goto:eof
  13. ) else ( >nul reg delete HKCU\Console\DosBatch_Edit /f )
  14. @Echo Off
  15. Mode Con: Cols=80 Lines=30
  16. Title Edit
  17. Color 70
  18. Chcp 936 > Nul
  19. @Goto :Title
  20. :Title
  21. Colour 112
  22. Set /p Title=# <Nul
  23. Colour 15
  24. Set /p Title=# F<Nul
  25. Colour 8
  26. Set /p Title=ile <Nul
  27. Colour 112
  28. Set /p Title=# <Nul
  29. Call :TitleBar E dit
  30. Call :TitleBar S earch
  31. Call :TitleBar V iew
  32. Call :TitleBar O ptions
  33. Call :TitleBar H elp
  34. Set /p Title=#                                     <Nul
  35. @Goto :Main
  36. :Main
  37. Colour 15
  38. Set /p Main=+<Nul
  39. For /l %%i in (1,1,16) Do (
  40. Set /p Main=—<Nul
  41. )
  42. Colour 112
  43. Set /p Main=#  UNTITLED  <Nul
  44. Colour 15
  45. For /l %%i in (1,1,16) Do (
  46. Set /p Main=—<Nul
  47. )
  48. Set /p Main=↑<Nul
  49. For /l %%i in (1,1,26) Do (
  50. Call :MainBar
  51. )
  52. Colour 15
  53. Set /p Main=丨<Nul
  54. Colour 31
  55. For /l %%i in (1,1,38) Do (
  56. Set /p Main=#  <Nul
  57. )
  58. Colour 15
  59. Set /p Main=↓<Nul
  60. Colour 112
  61. Set /p Main=# Commands for manipulating files.<Nul
  62. Colour 0
  63. @Pause > Nul
  64. @Exit /b 0
  65. :TitleBar <FirstString> <String>
  66. Colour 127
  67. Set /p Title=%1<Nul
  68. Colour 112
  69. Set /p Title=%2  <Nul
  70. @Goto :Eof
  71. :MainBar
  72. Colour 15
  73. Set /p MainBar=丨<Nul
  74. Colour 23
  75. For /l %%i in (1,1,38) Do (
  76. Set /p Main=#  <Nul
  77. )
  78. Colour 119
  79. Set /p MainBar=■<Nul
  80. @Goto :Eof
复制代码
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

本帖最后由 zzz19760225 于 2021-10-7 10:35 编辑

你太残忍了,我都忍不住去点击那个 edit 选项栏。你干嘛不显示tc2.0呢或者最好是debug。
我正想怎么弄个仿debug的汉字进制储存存取的,批处理伪数据存取。
不过计划嘛,总是比做的多,那是我的特征。

TOP

回复 4# zzz19760225


    服了你的商业头脑
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

回复 7# zzz19760225
Tc2.0

Tc2.0界面:
windows 7版:
  1. chcp 437
  2. if "%1"=="" (
  3.   for %%a in (  FontSize:00100008
  4.                 FontFamily:00000030
  5.                 WindowSize:003d0050
  6.                 ScreenColors:0000000f
  7.                 CodePage:000001b5
  8.                 ScreenBufferSize:003d0050
  9.   ) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (
  10.     >nul reg add HKCU\Console\DosBatch_Edit /v %%b /t reg_dword /d 0x%%c /f
  11.   )
  12.   start "DosBatch_Edit" "%ComSpec%" /c "%~s0" 1&goto:eof
  13. ) else ( >nul reg delete HKCU\Console\DosBatch_Edit /f )
  14. @Echo Off
  15. Mode Con: Cols=80 Lines=25
  16. Title Turbo C
  17. Color 70
  18. Chcp 936 > Nul
  19. @Goto :Title
  20. :Title
  21. Colour 124
  22. Set /p Title=#  ≡  <Nul
  23. Call :TitleBar F ile
  24. Call :TitleBar E dit
  25. Call :TitleBar S earch
  26. Call :TitleBar R un
  27. Call :TitleBar C ompile
  28. Call :TitleBar D ebug
  29. Call :TitleBar P roject
  30. Call :TitleBar O ptions
  31. Set /p Title=# <Nul
  32. Call :TitleBar W indow
  33. Call :TitleBar H elp
  34. @Goto :Main
  35. :Main
  36. Colour 31
  37. Set /p Main=╔<Nul
  38. For /l %%i in (1,1,16) Do (
  39. Set /p Main=═<Nul
  40. )
  41. Colour 112
  42. Set /p Main=#  UNTITLED  <Nul
  43. Colour 31
  44. For /l %%i in (1,1,13) Do (
  45. Set /p Main=═<Nul
  46. )
  47. Set /p Main=1=[↑]╗<Nul
  48. For /l %%i in (1,1,14) Do (
  49. Call :MainBar
  50. )
  51. Colour 31
  52. Set /p Main=║<Nul
  53. Colour 31
  54. For /l %%i in (1,1,38) Do (
  55. Set /p Main=#  <Nul
  56. )
  57. Colour 31
  58. Set /p Main=↓<Nul
  59. Set /p Main=╚<Nul
  60. For /l %%i in (1,1,38) Do (
  61. Set /p Main=═<Nul
  62. )
  63. Set /p Main=╝<Nul
  64. Colour 49
  65. Set /p Main=╔<Nul
  66. For /l %%i in (1,1,16) Do (
  67. Set /p Main=═<Nul
  68. )
  69. Colour 62
  70. Set /p Main=#  Message   <Nul
  71. Colour 49
  72. For /l %%i in (1,1,16) Do (
  73. Set /p Main=═<Nul
  74. )
  75. Set /p Main=╗<Nul
  76. For /l %%i in (1,1,4) Do (
  77. Call :MessageBar
  78. )
  79. Set /p Main=╚<Nul
  80. For /l %%i in (1,1,38) Do (
  81. Set /p Main=═<Nul
  82. )
  83. Set /p Main=╝<Nul
  84. Colour 116
  85. Set /p Main=# F1<Nul
  86. Colour 112
  87. Set /p Main=# Help ^| Accept the settings in this dialog box.<Nul
  88. Colour 0
  89. Pause > Nul
  90. @Exit /b 0
  91. @Pause > Nul
  92. :TitleBar <FirstString> <String>
  93. Colour 124
  94. Set /p Title=%1<Nul
  95. Colour 112
  96. Set /p Title=%2  <Nul
  97. @Goto :Eof
  98. :MainBar
  99. Colour 31
  100. Set /p MainBar=║<Nul
  101. Colour 23
  102. For /l %%i in (1,1,38) Do (
  103. Set /p Main=#  <Nul
  104. )
  105. Colour 119
  106. Set /p MainBar=■<Nul
  107. @Goto :Eof
  108. :MessageBar
  109. Colour 49
  110. Set /p MainBar=║<Nul
  111. Colour 49
  112. For /l %%i in (1,1,38) Do (
  113. Set /p Main=#  <Nul
  114. )
  115. Colour 49
  116. Set /p MainBar=║<Nul
  117. @Goto :Eof
复制代码
Windows 10 版:
  1. chcp 437
  2. if "%1"=="" (
  3.   for %%a in (  FontSize:00100008
  4.                 FontFamily:00000030
  5.                 WindowSize:003d0050
  6.                 ScreenColors:0000000f
  7.                 CodePage:000001b5
  8.                 ScreenBufferSize:003d0050
  9.   ) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (
  10.     >nul reg add HKCU\Console\DosBatch_Edit /v %%b /t reg_dword /d 0x%%c /f
  11.   )
  12.   start "DosBatch_Edit" "%ComSpec%" /c "%~s0" 1&goto:eof
  13. ) else ( >nul reg delete HKCU\Console\DosBatch_Edit /f )
  14. @Echo Off
  15. Mode Con: Cols=80 Lines=25
  16. Title Turbo C
  17. Color 70
  18. Chcp 936 > Nul
  19. @Goto :Title
  20. :Title
  21. Colour 124
  22. Set /p Title=#  ≡  <Nul
  23. Call :TitleBar F ile
  24. Call :TitleBar E dit
  25. Call :TitleBar S earch
  26. Call :TitleBar R un
  27. Call :TitleBar C ompile
  28. Call :TitleBar D ebug
  29. Call :TitleBar P roject
  30. Call :TitleBar O ptions
  31. Set /p Title=# <Nul
  32. Call :TitleBar W indow
  33. Call :TitleBar H elp
  34. @Goto :Main
  35. :Main
  36. Colour 31
  37. Set /p Main=+<Nul
  38. For /l %%i in (1,1,16) Do (
  39. Set /p Main=—<Nul
  40. )
  41. Colour 112
  42. Set /p Main=#  UNTITLED  <Nul
  43. Colour 31
  44. For /l %%i in (1,1,13) Do (
  45. Set /p Main=—<Nul
  46. )
  47. Set /p Main=1-[↑]+<Nul
  48. For /l %%i in (1,1,14) Do (
  49. Call :MainBar
  50. )
  51. Colour 31
  52. Set /p Main=丨<Nul
  53. Colour 31
  54. For /l %%i in (1,1,38) Do (
  55. Set /p Main=#  <Nul
  56. )
  57. Colour 31
  58. Set /p Main=↓<Nul
  59. Set /p Main=+<Nul
  60. For /l %%i in (1,1,38) Do (
  61. Set /p Main=—<Nul
  62. )
  63. Set /p Main=+<Nul
  64. Colour 49
  65. Set /p Main=+<Nul
  66. For /l %%i in (1,1,16) Do (
  67. Set /p Main=—<Nul
  68. )
  69. Colour 62
  70. Set /p Main=#  Message   <Nul
  71. Colour 49
  72. For /l %%i in (1,1,16) Do (
  73. Set /p Main=—<Nul
  74. )
  75. Set /p Main=+<Nul
  76. For /l %%i in (1,1,4) Do (
  77. Call :MessageBar
  78. )
  79. Set /p Main=+<Nul
  80. For /l %%i in (1,1,38) Do (
  81. Set /p Main=—<Nul
  82. )
  83. Set /p Main=+<Nul
  84. Colour 116
  85. Set /p Main=# F1<Nul
  86. Colour 112
  87. Set /p Main=# Help ^| Accept the settings in this dialog box.<Nul
  88. Colour 0
  89. Pause > Nul
  90. @Exit /b 0
  91. @Pause > Nul
  92. :TitleBar <FirstString> <String>
  93. Colour 124
  94. Set /p Title=%1<Nul
  95. Colour 112
  96. Set /p Title=%2  <Nul
  97. @Goto :Eof
  98. :MainBar
  99. Colour 31
  100. Set /p MainBar=丨<Nul
  101. Colour 23
  102. For /l %%i in (1,1,38) Do (
  103. Set /p Main=#  <Nul
  104. )
  105. Colour 119
  106. Set /p MainBar=■<Nul
  107. @Goto :Eof
  108. :MessageBar
  109. Colour 49
  110. Set /p MainBar=丨<Nul
  111. Colour 49
  112. For /l %%i in (1,1,38) Do (
  113. Set /p Main=#  <Nul
  114. )
  115. Colour 49
  116. Set /p MainBar=丨<Nul
  117. @Goto :Eof
复制代码
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

回复 9# HOPE2021


    居然真有!

TOP

回复 10# zzz19760225
路漫漫(曼曼)其修远兮,吾将上下而求索。
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

返回列表