for /f "tokens=2 delims==." %%a in ('wmic path Win32_VideoController get CurrentHorizontalResolution /value') do ( set "resolution=%%a" )
if exist "%temp%\brightness.txt" ( set /p brightness=<"%temp%\brightness.txt" if !brightness! equ 10 ( set "brightness=90" ) else ( set "brightness=10" ) )
@echo off setlocal enabledelayedexpansion color 09 mode con COLS=67 LINES=8 title 数字时钟 code by felicity set num0_0=■■■■ set num0_1=■□□■ set num0_2=■□□■ set num0_3=■□□■ set num0_4=■□□■ set num0_5=■□□■ set num0_6=■■■■
set num1_0=□□□■ set num1_1=□□□■ set num1_2=□□□■ set num1_3=□□□■ set num1_4=□□□■ set num1_5=□□□■ set num1_6=□□□■
set num2_0=■■■■ set num2_1=□□□■ set num2_2=□□□■ set num2_3=■■■■ set num2_4=■□□□ set num2_5=■□□□ set num2_6=■■■■
set num3_0=■■■■ set num3_1=□□□■ set num3_2=□□□■ set num3_3=■■■■ set num3_4=□□□■ set num3_5=□□□■ set num3_6=■■■■
set num4_0=■□□■ set num4_1=■□□■ set num4_2=■□□■ set num4_3=■■■■ set num4_4=□□□■ set num4_5=□□□■ set num4_6=□□□■
set num5_0=■■■■ set num5_1=■□□□ set num5_2=■□□□ set num5_3=■■■■ set num5_4=□□□■ set num5_5=□□□■ set num5_6=■■■■
set num6_0=■■■■ set num6_1=■□□□ set num6_2=■□□□ set num6_3=■■■■ set num6_4=■□□■ set num6_5=■□□■ set num6_6=■■■■
set num7_0=■■■■ set num7_1=□□□■ set num7_2=□□□■ set num7_3=□□□■ set num7_4=□□□■ set num7_5=□□□■ set num7_6=□□□■
set num8_0=■■■■ set num8_1=■□□■ set num8_2=■□□■ set num8_3=■■■■ set num8_4=■□□■ set num8_5=■□□■ set num8_6=■■■■
set num9_0=■■■■ set num9_1=■□□■ set num9_2=■□□■ set num9_3=■■■■ set num9_4=□□□■ set num9_5=□□□■ set num9_6=■■■■
:lable ::获取系统时间，并去除冒号得到一个数 set str=%time:~0,-3% set str1=%str::=%
:: 判断时间的大小以区分10点之前或之后，分别处理，因为10点之前的时间少一位数。之后把时间数字的每位数分别提出来赋给n1-n6。 if %str1% lss 100000 ( set n1=0 set n2=%str1:~1,1% set n3=%str1:~2,1% set n4=%str1:~3,1% set n5=%str1:~4,1% set n6=%str1:~5,1% ) else ( set n1=%str1:~0,1% set n2=%str1:~1,1% set n3=%str1:~2,1% set n4=%str1:~3,1% set n5=%str1:~4,1% set n6=%str1:~5,1% ) ping /n 2 127.0.0.1>nul &cls
set /p =!num%n1%_0!□!num%n2%_0!□□□!num%n3%_0!□!num%n4%_0!□□□!num%n5%_0!□!num%n6%_0!<nul & echo. set /p =!num%n1%_1!□!num%n2%_1!□□□!num%n3%_1!□!num%n4%_1!□□□!num%n5%_1!□!num%n6%_1!<nul & echo. set /p =!num%n1%_2!□!num%n2%_2!□■□!num%n3%_2!□!num%n4%_2!□■□!num%n5%_2!□!num%n6%_2!<nul & echo. set /p =!num%n1%_3!□!num%n2%_3!□□□!num%n3%_3!□!num%n4%_3!□□□!num%n5%_3!□!num%n6%_3!<nul & echo. set /p =!num%n1%_4!□!num%n2%_4!□■□!num%n3%_4!□!num%n4%_4!□■□!num%n5%_4!□!num%n6%_4!<nul & echo. set /p =!num%n1%_5!□!num%n2%_5!□□□!num%n3%_5!□!num%n4%_5!□□□!num%n5%_5!□!num%n6%_5!<nul & echo. set /p =!num%n1%_6!□!num%n2%_6!□□□!num%n3%_6!□!num%n4%_6!□□□!num%n5%_6!□!num%n6%_6!<nul & echo.
goto :lable
vbs脚本区域
电脑念诗（香水篇）
注意双引号是英文的，然后将.txt后缀名改为.vbs即可。
1 2
set objTTS = createobject("sapi.spvoice") objTTS.speak "芦丹氏-柏林少女:玫瑰是我偷的，你爱的人是我杀的。不爱你是假的，想忘了你是真的。冷水：所谓冷水，如人饮水冷暖自知。芦丹氏-孤儿怨：你绝非善类，我也不做好人。YSL-反转巴黎：我想和你见面，地点你选，森林沙漠，夜晚依稀的湖畔，草原大海，情分薄雾的街口，只是不要在梦里。纪梵希-心无禁忌：从此，我爱的人都像你。蒂普迪克-影中之水：我爱你只是我的事，与你无关。"
' 循环询问 Dim j Do While j < 1 Select Case msgbox("做我女朋友好吗", 68, "请郑重的回答我") Case 6 ' Yes 按钮 j = 1 Case 7 ' No 按钮 speech.Speak "再给你一次机会" msgbox "再给你一次机会" End Select Loop
