Rank: 4

帖子: 365
积分: 493
技术: 38
捐助: 0
注册时间: 2021-8-8

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2021-10-7 09:15 | 只看该作者

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

@Echo off
Mode Con: Cols=48 Lines=4
Color 0f
Chcp 936 > Nul
Title Hope Art Studio
@Goto :StartUp

:StartUp
	Echo.
	Echo.                     Please
	Echo.                      Wait
	For /l %%i in (1,1,144) do Call :Set_Bs
	Set "Hope=Hope"
	For /l %%i in (1,1,22) do Call :Set_Hope
	Set "Studio=Studio"
	For /l %%i in (1,1,21) do Call :Set_Studio
	Set "Arrow[1]=^<"
	For /l %%i in (1,1,11) do Call :Set_Arrow1
	Set "Arrow[2]=^>"
	For /l %%i in (1,1,11) do Call :Set_Arrow2
	Cls
@Goto :Main

:Main
	Set /p String=%Bs_%   %Arrow[1]%%Hope%%Studio%%Arrow[2]%   <Nul
	Call :Sleep 512
	Set /p String=%Bs_%  %Arrow[1]% %Hope%%Studio% %Arrow[2]%  <Nul
	Call :Sleep 512
	Set /p String=%Bs_% %Arrow[1]%  %Hope%%Studio%  %Arrow[2]% <Nul
	Call :Sleep 512
	Set /p String=%Bs_%%Arrow[1]%   %Hope%%Studio%   %Arrow[2]%<Nul
	Call :Sleep 512
@Goto :Main

:Set_Bs
	Set "Bs_=%Bs_%"
@Goto :Eof

:Set_Hope
	Set "Hope= %Hope% "
@Goto :Eof

:Set_Studio
	Set "Studio= %Studio% "
@Goto :Eof

:Set_Arrow1
	Set "Arrow[1]=%Arrow[1]%   ^<"
@Goto :Eof

:Set_Arrow2
	Set "Arrow[2]=%Arrow[2]%   ^>"
@Goto :Eof

:Sleep <Num>
	For /l %%i in (1,1,%i) Do (
		Set ReturnKey=1
	)
@Goto :Eof
复制代码

By Hope2021
谢谢

2 评分人数

cmd1152: 不错不错技术 + 1
zzz19760225: 简单的好技术 + 1

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

zzz19760225

上等兵

Rank: 1

帖子: 121
积分: 90
技术: 0
捐助: 0
注册时间: 2021-9-27

2楼

发表于 2021-10-7 09:42 | 只看该作者

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

TOP

HOPE2021

六级士官

Rank: 4

帖子: 365
积分: 493
技术: 38
捐助: 0
注册时间: 2021-8-8

3楼

发表于 2021-10-7 09:46 | 只看该作者

回复 2# zzz19760225

还加上闪的那种

指什么?

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

TOP

zzz19760225

上等兵

Rank: 1

帖子: 121
积分: 90
技术: 0
捐助: 0
注册时间: 2021-9-27

4楼

发表于 2021-10-7 09:51 | 只看该作者

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

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

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

TOP

HOPE2021

六级士官

Rank: 4

帖子: 365
积分: 493
技术: 38
捐助: 0
注册时间: 2021-8-8

5楼

发表于 2021-10-7 09:55 | 只看该作者

回复 4# zzz19760225
谢谢您的建议,将来会继续改进.

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

TOP

HOPE2021

六级士官

Rank: 4

帖子: 365
积分: 493
技术: 38
捐助: 0
注册时间: 2021-8-8

6楼

发表于 2021-10-7 10:15 | 只看该作者

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

回复 4# zzz19760225

可以做成简单软件

这是个远大的计划,需要上下求索.我只会一些界面设计,请参考[请在http://www.bathome.net/thread-60261-1-1.html下载配套的Colour.Exe]:

chcp 437
if "%1"=="" (
  for %%a in (  FontSize:00100008
                FontFamily:00000030
                WindowSize:003d0050
                ScreenColors:0000000f
                CodePage:000001b5
                ScreenBufferSize:003d0050
  ) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (
    >nul reg add HKCU\Console\DosBatch_Edit /v %%b /t reg_dword /d 0x%%c /f
  )
  start "DosBatch_Edit" "%ComSpec%" /c "%~s0" 1&goto:eof

) else ( >nul reg delete HKCU\Console\DosBatch_Edit /f )

@Echo Off
Mode Con: Cols=80 Lines=30
Title Edit
Color 70
Chcp 936 > Nul
@Goto :Title

:Title
	Colour 112
	Set /p Title=# <Nul
	Colour 15
	Set /p Title=# F<Nul
	Colour 8
	Set /p Title=ile <Nul
	Colour 112
	Set /p Title=# <Nul
	Call :TitleBar E dit
	Call :TitleBar S earch
	Call :TitleBar V iew
	Call :TitleBar O ptions
	Call :TitleBar H elp
	Set /p Title=#                                     <Nul
@Goto :Main

:Main
	Colour 15
	Set /p Main=＋<Nul
	For /l %%i in (1,1,16) Do (
		Set /p Main=—<Nul
	)
	Colour 112
	Set /p Main=#  UNTITLED  <Nul
	Colour 15
	For /l %%i in (1,1,16) Do (
		Set /p Main=—<Nul
	)
	Set /p Main=↑<Nul
	For /l %%i in (1,1,26) Do (
		Call :MainBar
	)
	Colour 15
	Set /p Main=丨<Nul
	Colour 31
	For /l %%i in (1,1,38) Do (
		Set /p Main=#  <Nul
	)
	Colour 15
	Set /p Main=↓<Nul
	Colour 112
	Set /p Main=# Commands for manipulating files.<Nul
	Colour 0
	@Pause > Nul
@Exit /b 0

:TitleBar <FirstString> <String>
	Colour 127
	Set /p Title=%1<Nul
	Colour 112
	Set /p Title=%2  <Nul
@Goto :Eof

:MainBar
	Colour 15
	Set /p MainBar=丨<Nul
	Colour 23
	For /l %%i in (1,1,38) Do (
		Set /p Main=#  <Nul
	)
	Colour 119
	Set /p MainBar=■<Nul
@Goto :Eof
复制代码

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

TOP

zzz19760225

上等兵

Rank: 1

帖子: 121
积分: 90
技术: 0
捐助: 0
注册时间: 2021-9-27

7楼

发表于 2021-10-7 10:33 | 只看该作者

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

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

TOP

cmd1152

禁止访问

帖子: 984
积分: 467
技术: 33
捐助: 0
注册时间: 2021-7-14

8楼

发表于 2021-10-7 10:48 | 只看该作者

回复 4# zzz19760225

服了你的商业头脑

梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

HOPE2021

六级士官

Rank: 4

帖子: 365
积分: 493
技术: 38
捐助: 0
注册时间: 2021-8-8

9楼

发表于 2021-10-7 11:46 | 只看该作者

回复 7# zzz19760225

Tc2.0

Tc2.0界面:
windows 7版:

chcp 437
if "%1"=="" (
  for %%a in (  FontSize:00100008
                FontFamily:00000030
                WindowSize:003d0050
                ScreenColors:0000000f
                CodePage:000001b5
                ScreenBufferSize:003d0050
  ) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (
    >nul reg add HKCU\Console\DosBatch_Edit /v %%b /t reg_dword /d 0x%%c /f
  )
  start "DosBatch_Edit" "%ComSpec%" /c "%~s0" 1&goto:eof

) else ( >nul reg delete HKCU\Console\DosBatch_Edit /f )

@Echo Off
Mode Con: Cols=80 Lines=25
Title Turbo C
Color 70
Chcp 936 > Nul
@Goto :Title

:Title
	Colour 124
	Set /p Title=#  ≡  <Nul
	Call :TitleBar F ile
	Call :TitleBar E dit
	Call :TitleBar S earch
	Call :TitleBar R un
	Call :TitleBar C ompile
	Call :TitleBar D ebug
	Call :TitleBar P roject
	Call :TitleBar O ptions
	Set /p Title=# <Nul
	Call :TitleBar W indow
	Call :TitleBar H elp
@Goto :Main

:Main
	Colour 31
	Set /p Main=╔<Nul
	For /l %%i in (1,1,16) Do (
		Set /p Main=═<Nul
	)
	Colour 112
	Set /p Main=#  UNTITLED  <Nul
	Colour 31
	For /l %%i in (1,1,13) Do (
		Set /p Main=═<Nul
	)
	Set /p Main=1=[↑]╗<Nul
	For /l %%i in (1,1,14) Do (
		Call :MainBar
	)
	Colour 31
	Set /p Main=║<Nul
	Colour 31
	For /l %%i in (1,1,38) Do (
		Set /p Main=#  <Nul
	)
	Colour 31
	Set /p Main=↓<Nul
	Set /p Main=╚<Nul
	For /l %%i in (1,1,38) Do (
		Set /p Main=═<Nul
	)
	Set /p Main=╝<Nul
	Colour 49
	Set /p Main=╔<Nul
	For /l %%i in (1,1,16) Do (
		Set /p Main=═<Nul
	)
	Colour 62
	Set /p Main=#  Message   <Nul
	Colour 49
	For /l %%i in (1,1,16) Do (
		Set /p Main=═<Nul
	)
	Set /p Main=╗<Nul
	For /l %%i in (1,1,4) Do (
		Call :MessageBar
	)
	Set /p Main=╚<Nul
	For /l %%i in (1,1,38) Do (
		Set /p Main=═<Nul
	)
	Set /p Main=╝<Nul
	Colour 116
	Set /p Main=# F1<Nul
	Colour 112
	Set /p Main=# Help ^| Accept the settings in this dialog box.<Nul
	Colour 0
	Pause > Nul
	@Exit /b 0
@Pause > Nul

:TitleBar <FirstString> <String>
	Colour 124
	Set /p Title=%1<Nul
	Colour 112
	Set /p Title=%2  <Nul
@Goto :Eof

:MainBar
	Colour 31
	Set /p MainBar=║<Nul
	Colour 23
	For /l %%i in (1,1,38) Do (
		Set /p Main=#  <Nul
	)
	Colour 119
	Set /p MainBar=■<Nul
@Goto :Eof

:MessageBar
	Colour 49
	Set /p MainBar=║<Nul
	Colour 49
	For /l %%i in (1,1,38) Do (
		Set /p Main=#  <Nul
	)
	Colour 49
	Set /p MainBar=║<Nul
@Goto :Eof
复制代码

Windows 10 版:

chcp 437
if "%1"=="" (
  for %%a in (  FontSize:00100008
                FontFamily:00000030
                WindowSize:003d0050
                ScreenColors:0000000f
                CodePage:000001b5
                ScreenBufferSize:003d0050
  ) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do (
    >nul reg add HKCU\Console\DosBatch_Edit /v %%b /t reg_dword /d 0x%%c /f
  )
  start "DosBatch_Edit" "%ComSpec%" /c "%~s0" 1&goto:eof

) else ( >nul reg delete HKCU\Console\DosBatch_Edit /f )

@Echo Off
Mode Con: Cols=80 Lines=25
Title Turbo C
Color 70
Chcp 936 > Nul
@Goto :Title

:Title
	Colour 124
	Set /p Title=#  ≡  <Nul
	Call :TitleBar F ile
	Call :TitleBar E dit
	Call :TitleBar S earch
	Call :TitleBar R un
	Call :TitleBar C ompile
	Call :TitleBar D ebug
	Call :TitleBar P roject
	Call :TitleBar O ptions
	Set /p Title=# <Nul
	Call :TitleBar W indow
	Call :TitleBar H elp
@Goto :Main

:Main
	Colour 31
	Set /p Main=＋<Nul
	For /l %%i in (1,1,16) Do (
		Set /p Main=—<Nul
	)
	Colour 112
	Set /p Main=#  UNTITLED  <Nul
	Colour 31
	For /l %%i in (1,1,13) Do (
		Set /p Main=—<Nul
	)
	Set /p Main=1-[↑]＋<Nul
	For /l %%i in (1,1,14) Do (
		Call :MainBar
	)
	Colour 31
	Set /p Main=丨<Nul
	Colour 31
	For /l %%i in (1,1,38) Do (
		Set /p Main=#  <Nul
	)
	Colour 31
	Set /p Main=↓<Nul
	Set /p Main=＋<Nul
	For /l %%i in (1,1,38) Do (
		Set /p Main=—<Nul
	)
	Set /p Main=＋<Nul
	Colour 49
	Set /p Main=＋<Nul
	For /l %%i in (1,1,16) Do (
		Set /p Main=—<Nul
	)
	Colour 62
	Set /p Main=#  Message   <Nul
	Colour 49
	For /l %%i in (1,1,16) Do (
		Set /p Main=—<Nul
	)
	Set /p Main=＋<Nul
	For /l %%i in (1,1,4) Do (
		Call :MessageBar
	)
	Set /p Main=＋<Nul
	For /l %%i in (1,1,38) Do (
		Set /p Main=—<Nul
	)
	Set /p Main=＋<Nul
	Colour 116
	Set /p Main=# F1<Nul
	Colour 112
	Set /p Main=# Help ^| Accept the settings in this dialog box.<Nul
	Colour 0
	Pause > Nul
	@Exit /b 0
@Pause > Nul

:TitleBar <FirstString> <String>
	Colour 124
	Set /p Title=%1<Nul
	Colour 112
	Set /p Title=%2  <Nul
@Goto :Eof

:MainBar
	Colour 31
	Set /p MainBar=丨<Nul
	Colour 23
	For /l %%i in (1,1,38) Do (
		Set /p Main=#  <Nul
	)
	Colour 119
	Set /p MainBar=■<Nul
@Goto :Eof

:MessageBar
	Colour 49
	Set /p MainBar=丨<Nul
	Colour 49
	For /l %%i in (1,1,38) Do (
		Set /p Main=#  <Nul
	)
	Colour 49
	Set /p MainBar=丨<Nul
@Goto :Eof
复制代码

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

TOP

zzz19760225

上等兵

Rank: 1

帖子: 121
积分: 90
技术: 0
捐助: 0
注册时间: 2021-9-27

10楼

发表于 2021-10-7 12:01 | 只看该作者

回复 9# HOPE2021

居然真有！

TOP

HOPE2021

六级士官

Rank: 4

帖子: 365
积分: 493
技术: 38
捐助: 0
注册时间: 2021-8-8

11楼

发表于 2021-10-7 12:02 | 只看该作者

回复 10# zzz19760225
路漫漫(曼曼)其修远兮,吾将上下而求索。

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

TOP

返回列表

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

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

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]