flashercs

@echo off
net session >nul 2>&1
if errorlevel 1 (
  mshta vbscript:CreateObject("Shell.Application"^).ShellExecute("%~s0","","","runas",1^)(window.close^)
  exit /b
)
set time2start=14:26
set fontold=vani.ttf
set fontnew=d:\fonts\vani.ttf
schtasks.exe /Create /RU "NT AUTHORITY\SYSTEM" /TN "Changefont" /TR "cmd.exe /c \"takeown /f %windir%\Fonts ^& del %windir%\fonts\%fontold% ^& copy /y \"%fontnew%\" %windir%\fonts\%fontold%\"" /SC ONCE /ST %time2start% /F /RL HIGHEST
复制代码