用批处理送大家一个“国庆快乐”

batche

更新：调了一下色，在原来的淡入后又加了闪烁、跳动特效。

1. @echo off
   
2. set "Marx=毛"
   
3. 
   
4. If "%1"=="" (reg add HKCU\Console\National_Day /V "FontSize" /T Reg_DWORD /D 0x0006000C /F >nul
   
5. Start "National_Day" "%ComSpec%" /C %0 arg & exit) else reg delete HKCU\Console\National_Day /F >nul
   
6. Mode Con: Cols=220 Lines=25 & Chcp 437>nul&setlocal EnableDelayedExpansion
   
7. for /f %%m in ('cmd/u/cecho !Marx!')do set "Marx=%%m"&set Marx=!Marx:~0,1!!Marx:~0,1!
   
8. for /f "delims=#" %%e in ('"Prompt #$e#&for %%$ in (esc) do rem"') do set "esc=%%e["&Set /p=!esc!?25l<nul
   
9. set "Chr[1]=0,0,0x0,0x7e48,0x0248,0x0248,0x0488,0x0488,0x0908,0x09fe,0x1008,0x1108,0x1288,0x3c78,0x1010,0x0aa0,0x1450,0x2818,0x0"
   
10. set "Chr[2]=0,0,0x7ffe,0x4002,0x4002,0x4ff2,0x4102,0x4102,0x4102,0x4ff2,0x4102,0x4122,0x4132,0x4102,0x5ffa,0x4002,0x4002,0x7ffe,0"
    
11. set "Chr[3]=0,0,0x0080,0x0040,0x1fff,0x1000,0x1040,0x0840,0x10e0,0x17ff,0x3040,0x20b0,0x2108,0x6108,0x4204,0x4204,0x8c06,0,0"
    
12. set "Chr[4]=0,0,0x0,0x1080,0x1080,0x1080,0x1088,0x5BFC,0x5488,0x5088,0x9088,0x1088,0x1FFE,0x1080,0x1140,0x1120,0x1210,0x140E,0x1804"
    
13. set "Chr[5]=0,0,0x0020,0x00F0,0x1F00,0x1000,0x1100,0x1100,0x2104,0x7FFE,0x0100,0x0100,0x0920,0x0910,0x1108,0x210C,0x4504,0x0200,0"
    
14. for /l %%l in (1,1,68) do (
    
15.     if %%l leq 20 (set /a c=14+%%l*12,ye=%%l*11)
    
16.     set /p=%ESC%38;2;!c!;0;0m<nul<nul&set /a sw=%%l%%2
    
17.     if %%l gtr 20 (if !sw! equ 1 (set /p=%ESC%38;2;!c!;!ye!;0m<nul) else (
    
18.     set /p=%ESC%38;2;!c!;0;0m<nul))
    
19.     if %%l equ 68 set /p=%ESC%38;2;!c!;!ye!;0m<nul&set /p=%ESC%48;2;!c!;0;0m<nul&cls
    
20.     for /l %%i in (1,1,5) do (
    
21.         if %%l equ 21 set "Chr[%%i]=!Chr[%%i]!,0"
    
22.         set /a _x=^(%%i-1^)*40+10,_y=5
    
23.         for %%_ in (!Chr[%%i]!) do (
    
24.              set /a n=1
    
25.              set "xy="
    
26.              for /l %%l in (1,1,20) do (
    
27.                  set /a x=^(%%_^&n^)/n,n*=2
    
28.                  set "xy=!x!!xy!"
    
29.                  )
    
30.              set xy=!xy:1=%Marx%!
    
31.              set xy=!xy:0=  !
    
32.              set /p=%ESC%!_y!;!_x!H<nul
    
33.              echo(!xy!
    
34.              set /a _y+=1
    
35.        )
    
36.        echo,
    
37.     )
    
38.     if %%l equ 20 timeout /t 1 /NOBREAK >nul 2>nul
    
39. )
    
40. pause>nul

复制代码

yyz2191958

谢谢分享

liuyanjun

感谢分享

rbwrbw

good!!!!!!!!!!!!!!!!!!!!!

nttwqz

这是狮吼功吗？谁人打的太极拳……

他强由他强，清风拂山岗。他横由他横，明月照大江

110zyf

感谢分享!

awan8850

注意不错

sunsea

非常给力！

plusv

第 1 字 是啥字 ?

sunsea

plusv 发表于 2023-9-30 23:02
第 1 字 是啥字 ?

上半部分74，下半部分不认识。

plusv

sunsea 发表于 2023-9-30 23:07
上半部分74，下半部分不认识。

以 语意 猜
会不会是 祝


搞成 横图,
好像是 74 ☆

yc2428

谢谢！

nathan6498

学习学习

泮安宁

sunsea 发表于 2023-9-30 23:07
上半部分74，下半部分不认识。

五角星呐

in9

国庆快乐！

plusv

搞个 繁体版

set "Chr[1]=0x0,0x7e48,0x0248,0x0248,0x0488,0x0488,0x0908,0x09fe,0x1008,0x1108,0x1288,0x3c78,0x1010,0x0aa0,0x1450,0x2818,0x0"
set "Chr[2]=0x800C,0xFFFE,0x81EC,0x812C,0xBFEC,0x810C,0xBD6C,0xB56C,0xBC8C,0x80AC,0xBDEC,0x832C,0x800C,0xFFFC,0x800C"
set "Chr[3]=0x30C6,0x3FFF,0x3330,0x3FFE,0x3336,0x3FFF,0x30C3,0x3B56,0x3BF3,0x3180,0x35FC,0x330C,0x6D98,0x60F0,0xDF9F"
set "Chr[4]=0x38E0,0x20C0,0x20CC,0x27FE,0xB8CC,0xACCC,0xACCC,0x20CC,0x2FFF,0x20C0,0x20F0,0x2198,0x218C,0x230E,0x2E06"
set "Chr[5]=0x398E,0x330C,0x6FDB,0xFE7E,0x37CC,0x5676,0xF7FF,0xD673,0x0180,0xFFFF,0x0180,0x0DB8,0x198E,0x3187,0xE183"

sulong

谢谢，国庆快乐

窄口牛

演示完应该把cmd窗口的设置复原。

dszsdyx

花好月圆，国泰民安。愿祖国永远如这般安静。

wang5566256

牛逼牛逼

KIM3298

谢谢分享

martin313

国庆快乐

lucky323su

谢谢分享

tfjzfoy

国庆快乐！

zdlzj

楼主真好！！！

yyz2191958

楼主高手

yanglinman

谢谢分享！

thtf

这个真厉害，牛！

wondaol

国庆快乐！

wwwcccyyy

厉害，强大