@echo off&setlocal enabledelayedexpansion
mode con cols=61 lines=25&color f5
mshta vbscript:msgbox("在運行程序前，請確認所有編輯資料已經保存",,"自制優化系統")(window.close)
if exist tem.txt del /f /q tem.txt
echo.正在刷選進程.............
echo>>tem.txt explorer.exe
echo>>tem.txt System Idle Process
echo>>tem.txt System
echo>>tem.txt smss.exe
echo>>tem.txt csrss.exe
echo>>tem.txt winlogon.exe
echo>>tem.txt services.exe
echo>>tem.txt TheWorld.exe
echo>>tem.txt lsass.exe
echo>>tem.txt svchost.exe
echo>>tem.txt spoolsv.exe
echo>>tem.txt alg.exe
echo>>tem.txt ctfmon.exe
echo>>tem.txt ekrn.exe
echo>>tem.txt wdfmgr.exe
echo>>tem.txt 360tray.exe
echo>>tem.txt egui.exe
echo>>tem.txt wmiprvse.exe
echo>>tem.txt QQ.exe
echo>>tem.txt cmd.exe
echo>>tem.txt IEXPLORE.EXE
echo>>tem.txt TXPlatform.exe
echo>>tem.txt tasklist.exe
echo>>tem.txt conime.exe
echo>>tem.txt safeboxTray.exe
echo>>tem.txt Thunder5.exe
echo>>tem.txt tudouva.exe
for /f "eol= tokens=1,2 delims=," %%i in ('tasklist /nh /fo csv') do (
findstr /i /x %%i tem.txt >nul
if errorlevel 1 (
taskkill /f /pid %%j 1>nul 2>nul
)
)
del tem.txt & echo 結束進程任務基本完成
echo ======================================
echo ==                                  ==
echo ======================================
echo 優化開機啟動項
del /f /s /q "%systemdrive%/Docume~1/All Users/「開始」菜單/程序/啟動/*.*"
del /f /s /q "%userprofile%/「開始」菜單/程序/啟動/*.*"
for /f "delims=/" %%j in ('fsutil fsinfo drives^|find /v ""') do (
del /f /q "%%j/*.inf">nul 2>nul &del /f /q /ah "%%j/*.exe" 2>nul
)
echo>>tem.txt "egui"
echo>>tem.txt "essact"
echo>>tem.txt "CTFMON.EXE"
set key=Software/Microsoft/Windows/CurrentVersion/run
REG EXPORT "HKCU/%key%" a.reg /nt4>nul
echo REGEDIT4 >b.reg
echo [HKEY_CURRENT_USER/%key%] >>b.reg
for /f "skip=2 eol=[ tokens=1,2 delims==" %%a in (a.reg) do (
findstr /i %%a tem.txt>nul||echo %%a=- >>b.reg
)
for /f "skip=2 delims=[" %%m in ('find /i "/run/" a.reg') do (
echo ^[^-%%m >>b.reg
)
regedit /s b.reg
REG EXPORT "HKLM/%key%" a.reg /nt4>nul
echo REGEDIT4 >b.reg
echo [HKEY_LOCAL_MACHINE/%key%] >>b.reg
for /f "skip=2 eol=[ tokens=1,2 delims==" %%a in (a.reg) do (
findstr /i %%a tem.txt>nul||echo %%a=- >>b.reg
)
for /f "skip=2 delims=[" %%m in ('find /i "/run/" a.reg') do (
echo ^[^-%%m >>b.reg
)
regedit /s b.reg
del /q a.reg
del /q b.reg
del tem.txt
echo 已經優化好
echo ======================================
echo ==                                  ==
echo ======================================
echo 清理部分系統垃圾
del /f /q %systemdrive%/*.tmp>nul 2>nul
del /f /q %systemdrive%/*._mp>nul 2>nul
del /f /q %systemdrive%/*.log>nul 2>nul
del /f /q %systemdrive%/*.gid>nul 2>nul
del /f /q %systemdrive%/*.chk>nul 2>nul
del /f /q %systemdrive%/*.old>nul 2>nul
del /f /q %windir%/*.bak>nul 2>nul
del /f /q %windir%/*.tmp>nul 2>nul
del /f /q %windir%/prefetch/*.*>nul 2>nul
del /f /s /q %systemdrive%/recycled/*.*>nul 2>nul
del /f /q "%ALLUSERSPROFILE%/Documents/DrWatson/*.*">nul 2>nul
del /f /q "%USERPROFILE%/Cookies/*.txt">nul 2>nul
del /f /q /s "%TEMP%/*.*">nul 2>nul
del /f /q /s "%Systemroot%/Prefetch/*.*">nul 2>nul
del /f /q "%USERPROFILE%/Recent/*.*">nul 2>nul
del /f /q "%USERPROFILE%/Application Data/Microsoft/Office/Recent/*.lnk">nul 2>nul
del /f /q /s "%USERPROFILE%/Local Settings/Temp/*.*">nul 2>nul
rd /s /q %windir%/temp & md %windir%/temp>nul 2>nul
if not exist %SystemRoot%/Minidump/NUL del /f /q /s %SystemRoot%/Minidump/*.*>nul 2>nul
del /f /s /q "%userprofile%/Local Settings/Temporary Internet Files/*.*">nul 2>nul
echo 已經清理了
mshta vbscript:msgbox("everything done!!",,"完成信息")(window.close)
taskkill /f /im cmd.exe