本帖最后由 flashercs 于 2020-3-18 12:50 编辑
- @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
复制代码
|