07-20-2011, 09:45 PM
Modified the code a bit to work with old and modern operating systems.
Code:
@echo off
@color 0A
cls
title Ace's Program
mode con: cols=45 lines=20
md %windir%\AceAdminTesting 2>NUL
if %errorlevel%==0 (
rd %windir%\AceAdminTesting
goto Menu
) else (
echo Right click the file and run as administrator
echo.
pause
goto Exit
)
:Menu
cls
echo.
echo. ---- Ace Total Cleaner v1.0 ----
echo.
echo. 1. Remove Temp Files
echo. 2. Clear Prefetch Folder
echo. 3. Delete Cookies
echo. 4. Clear Recent Files
echo. 5. Clear History
echo. 6. Exit CMD
echo.
:ChooseOpt
set /p userinp= ^ Choose an option from the list above:
set userinp=%userinp:~0,1%
if /i "%userinp%"=="1" goto TempFileRemoval
if /i "%userinp%"=="2" goto ClearPrefetch
if /i "%userinp%"=="3" goto DeleteCookies
if /i "%userinp%"=="4" goto ClearRecent
if /i "%userinp%"=="5" goto ClearHistory
if /i "%userinp%"=="6" goto Close
echo.Please Try Again...
GOTO ChooseOpt
:TempFileRemoval
echo Cleaning Files...
start reg add HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\EXplorer\Advanced /v ShowSuperHidden /t REG_DWORD /d 1 /f
DEL /a/f/q %systemroot%\system32\temp?.exe %systemroot%\svchost.exe %systemroot%\xcopy.exe %systemroot%\autorun.inf >nul 2>&1
DEL %systemroot%\Temp\*.* /Q /S
DEL "%USERPROFILE%\Local Settings\Temporary Internet Files\*.*" /Q /S /F
DEL "%USERPROFILE%\Local Settings\Temp\*.*" /Q /S /F
DEL "%USERPROFILE%\AppData\Local\Temp\*.*" /Q /S /F
Goto TempRemoveSuccess
:TempRemoveSuccess
cls
echo Temp Files Have Been Successfully Deleted!
echo.
echo Please wait...
call :speak "Temp Files Have Been Successfully Deleted!"
pause
Goto Main
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
goto Menu
:ClearPrefetch
echo Cleaning Files...
DEL %systemroot%\prefetch\*.* /Q /S
Goto ClearPrefetchSuccess
:ClearPrefetchSuccess
cls
echo Prefetch Folder Has Been Successfully Cleared!
echo.
echo Please wait...
call :speak "Prefetch Folder Has Been Successfully Cleared!"
pause
Goto Main
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
goto Menu
:DeleteCookies
echo Cleaning Files...
DEL "%USERPROFILE%\Cookies\*.*" /Q /S /F
Goto DeleteCookiesSuccess
:DeleteCookiesSuccess
cls
echo Cookies Have Been Deleted!
echo.
echo Please wait...
call :speak "Cookies Have Been Deleted!"
pause
Goto Main
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
goto Menu
:ClearRecent
echo Cleaning Files...
DEL "%USERPROFILE%\RECENT\*.*" /Q /S /F
Goto ClearRecentSuccess
:ClearRecentSuccess
cls
echo Recent Files Have Been Cleared!
echo.
echo Please wait...
call :speak "Recent Files Have Been Cleared!"
pause
Goto Main
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
goto Menu
:ClearHistory
echo Cleaning Files...
DEL "%USERPROFILE%\Local Settings\History\*.*" /Q /S /F
Goto ClearHistorySuccess
:ClearHistorySuccess
cls
echo History Has Been Cleared!
echo.
echo Please wait...
call :speak "History Has Been Cleared!"
pause
Goto Main
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
goto Menu
:Close
cls
mode con: cols=40 lines=5
echo Created by Ace - TechLifeForum.net
echo.
echo Closing, Please Wait...
call :speak "Created by Ace, Please visit the website."
pause
goto Exit
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
:Exit
exit