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
' 确保路径存在，如果不存在则创建 If Not objFSO.FolderExists("C:\temp") Then objFSO.CreateFolder("C:\temp") End If
' 检查是否已经以管理员权限运行 If Not IsAdmin() Then ' 如果没有管理员权限，重新启动脚本并以管理员身份运行 RunAsAdmin() WScript.Quit End If
' 检查标记文件，防止重复执行 If FileExists(tempFile) Then WScript.Echo "脚本已经在运行，请稍后..." WScript.Quit End If
' 创建标记文件，表示脚本正在运行 CreateFile tempFile
' 检查 VSCode 是否已启动 Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process where Name = 'Code.exe'")
' 如果 VSCode 已经在运行，关闭它 If colProcesses.Count > 0 Then WshShell.Run "taskkill /F /IM Code.exe", 0, True WScript.Sleep 2000 ' 等待 2 秒钟，以确保进程完全关闭 ' WScript.Echo "VSCode 已关闭。" ' 输出到控制台 End If
' 启动 VSCode WshShell.Run """D:\Program Files\Microsoft VS Code\Code.exe""", 1, False ' 使用 Run 方法，不等待
' 等待直到 VSCode 启动完成或达到最大等待次数 max_wait_time = 120 wait_interval = 5 max_attempts = max_wait_time / wait_interval attempt = 0 Do While attempt < max_attempts Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process where Name = 'Code.exe'") If colProcesses.Count > 0 Then Exit Do Else WScript.Echo "VSCode 尚未启动，继续等待... 已等待 " & attempt * wait_interval & " 秒" WScript.Sleep wait_interval * 1000 attempt = attempt + 1 End If Loop
If attempt >= max_attempts Then WScript.Echo "达到最大等待时间，VSCode 可能无法启动。" End If
' 删除标记文件，表示脚本执行完成 DeleteFile tempFile
' 函数：检查文件是否存在 Function FileExists(filePath) On Error Resume Next FileExists = (Len(Dir(filePath)) > 0) On Error GoTo 0 End Function
' 函数：创建文件 Sub CreateFile(filePath) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(filePath, True) objFile.WriteLine("VSCode脚本正在执行") objFile.Close End Sub
' 函数：删除文件 Sub DeleteFile(filePath) Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile filePath, True End Sub
' 函数：检查是否以管理员身份运行 Function IsAdmin() On Error Resume Next Set objShell = CreateObject("Shell.Application") If objShell.IsUserAnAdmin() Then IsAdmin = True Else IsAdmin = False End If On Error GoTo 0 End Function
' 函数：以管理员身份重新运行脚本 Sub RunAsAdmin() Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """", "", "runas", 1 End Sub
关闭电脑
这个是vbs文件的关机命令，还可以直接cmd命令窗口：shutdown -s -t 00来关机。
1 2 3 4 5
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
