[特效代码] 批处理两只老虎跑的快

smss

@echo off&setlocal enabledelayedexpansion
(set S=212 212 190 212 159 169 212 212 190 212 142 159 212 212 106 126 159 169 190 119 119 126 159 142 159)&(set L=9 3 12 12 12 24 9 3 12 12 12 24 9 3 12 12 12 12 12 9 3 12 12 12 24)
set "L= !L!"&for %%A in (%S%)do @for /f "tokens=1*" %%B in ("!L!")do @(set "L=%%C"&set/at=450000/%%A,d=%%B*20 2>nul&&powershell "[Console]::Beep(!t!,!d!)" 2>nul)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
:: 音符频率（单位：Hz，C大调音阶）
set S=262 294 330 262 262 294 330 262 330 349 392 330 349 392 392 440 392 349 330 262 392 440 392 349 330 262 262 392 262
:: 节拍时长（单位：1/4音符=400ms）
set L=4 4 4 4 4 4 4 4 4 4 8 4 4 8 4 4 4 4 4 4 4 4 4 4 4 4 4 4 8
set "L=!L! "
for %%A in (%S%) do (
    for /f "tokens=1*" %%B in ("!L!") do (
        set "L=%%C"
        set /a "t=%%A, d=%%B*150"
        if !t! gtr 0 (
            powershell "[Console]::Beep(!t!, !d!)" >nul
        ) else (
            timeout /t !d!/1000 >nul
        )
    )
)
pause
复制代码