就在今天！一位Bat小白寫出了一個(gè)系統(tǒng)助手！
今天有事請(qǐng)假，趁現(xiàn)在沒事干，就隨手寫了一個(gè)系統(tǒng)助手
一樣的，先上代碼：
@echo off
color 2f
@ECHO OFF & CD /D %~DP0
>NUL 2>&1 reg.exe query "HKU\S-1-5-19" || (
? ? ECHO SET UAC = CreateObject^("Shell.Application"^) > "%TEMP%\Getadmin.vbs"
? ? ECHO UAC.ShellExecute "%~f0", "%1", "", "runas", 1 >> "%TEMP%\Getadmin.vbs"
? ? "%TEMP%\Getadmin.vbs"
? ? DEL /f /q "%TEMP%\Getadmin.vbs" 2>NUL
? ? Exit /b
)
:menu
cls
title 阿九系統(tǒng)小助手 V1.0
echo? ? ? ? ? ? ? ? ? ? ? 阿九系統(tǒng)小助手 V1.0 功能表
echo.
echo? ? ? ? ? ? ? ? ? ? ? ?1.系統(tǒng)垃圾清理
echo? ? ? ? ? ? ? ? ? ? ? ?2.用戶賬號(hào)管理
echo? ? ? ? ? ? ? ? ? ? ? ?3.開機(jī)自啟管理
SET /p a=請(qǐng)輸入目標(biāo)功能的號(hào)碼：
if %a%==1 goto clean
if %a%==2 goto user
if %a%==3 goto sysboot
rem 如果輸入功能以外的文本的話......
cls
color 4f
echo 錯(cuò)誤：你沒有輸入指定的文本
echo.
pause
color 2f
goto menu
:clean
cls
title 阿九系統(tǒng)小助手 V1.0__系統(tǒng)垃圾清理
color 3f
mshta vbscript:msgbox("正在為您掃描系統(tǒng)，請(qǐng)耐心等待",6+18,"提示")(window.close)
dir/s
cls
SET /p b=檢測(cè)到系統(tǒng)垃圾，是否要為您清除? [Y / N]
if %b%==Y (goto cleanreally) ELSE (
color 2f
goto menu
)
:cleanreally
cls
mshta vbscript:msgbox("正在為您清除系統(tǒng)垃圾，請(qǐng)耐心等待",6+18,"提示")(window.close)
del /f /s /q? %systemdrive%\*.tmp
del /f /s /q? %systemdrive%\*._mp
del /f /s /q? %systemdrive%\*.log
del /f /s /q? %systemdrive%\*.gid
del /f /s /q? %systemdrive%\*.chk
del /f /s /q? %systemdrive%\*.old
del /f /s /q? %systemdrive%\recycled\*.*
del /f /s /q? %windir%\*.bak
del /f /s /q? %windir%\prefetch\*.*
rd /s /q %windir%\temp & md? %windir%\temp
del /f /q? %userprofile%\cookies\*.*
del /f /q? %userprofile%\recent\*.*
del /f /s /q? "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q? "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q? "%userprofile%\recent\*.*"
cls
echo 已成功為您清除系統(tǒng)垃圾！
echo.
pause
color 2f
goto menu
:user
color 3f
cls
title 阿九系統(tǒng)小助手 V1.0__用戶賬號(hào)管理
echo? ? ? ? ? ? ? ? ? ? ? ? ? ?功能表
echo.
echo? ? ? ? ? ? ? ? ? ? ? ?1.修改賬號(hào)密碼
echo? ? ? ? ? ? ? ? ? ? ? ?2.修改賬號(hào)名稱
echo? ? ? ? ? ? ? ? ? ? ? ?3.查看所有賬號(hào)
SET /p c=請(qǐng)輸入目標(biāo)功能的號(hào)碼：
if %c%==1 goto userpassword
if %c%==2 goto username
if %c%==3 goto alluser
rem 如果輸入功能以外的文本的話......
cls
color 4f
echo 錯(cuò)誤：你沒有輸入指定的文本
echo.
pause
color 2f
goto user
:userpassword
cls
SET /p pass=請(qǐng)輸入賬號(hào)原密碼：
SET /p pass2=請(qǐng)輸入你已經(jīng)擬定的密碼：
net user %username% %pass2% >nul
echo 正在修改密碼......
if %errorlevel%==0 (
? ? cls
echo 密碼修改完畢！
echo.
pause
color 2f
goto menu
) else (
? ? cls
color 4f
echo 錯(cuò)誤：由于某些原因，密碼修改失??！
echo.
echo ERROR CODES:%errorlevel%*%random%
echo.
pause
color 2f
goto menu
)
:username
cls
SET /P newuser=請(qǐng)輸入你已經(jīng)擬定的賬號(hào)名稱：
wmic useraccount where name='%USERNAME%' call Rename %newuser% >nul
echo 正在修改用戶名......
if %errorlevel%==0 (
? ? cls
echo 用戶名修改完畢！
echo.
pause
color 2f
goto menu
) else (
? ? cls
color 4f
echo 錯(cuò)誤：由于某些原因，用戶名修改失?。?/p>
echo.
echo ERROR CODES:%errorlevel%*%random%
echo.
pause
color 2f
goto menu
)
:alluser
cls
echo 您目前電腦上的所有賬號(hào)如下：
echo.
net user
echo.
pause
color 2f
goto menu
:sysboot
color 5f
cls
title 阿九系統(tǒng)小助手 V1.0__開機(jī)自啟管理
echo? ? ? ? ? ? ? ? ? ? ? ? ? ?功能表
echo.
echo? ? ? ? ? ? ? ? ? ? ? ?1.開機(jī)自啟掃描
echo? ? ? ? ? ? ? ? ? ? ? ?2.添加開機(jī)自啟
echo? ? ? ? ? ? ? ? ? ? ? ?3.取消開機(jī)自啟
SET /p m=請(qǐng)輸入目標(biāo)功能的號(hào)碼：
if %m%==1 goto dirboot
if %m%==2 goto addboot
if %m%==3 goto delboot
rem 如果輸入功能以外的文本的話......
cls
color 4f
echo 錯(cuò)誤：你沒有輸入指定的文本
echo.
pause
color 2f
goto sysboot
:dirboot
cls
mshta vbscript:msgbox("正在為您掃描開機(jī)自啟項(xiàng)，請(qǐng)耐心等待",6+18,"提示")(window.close)
set Path=D:\SystemBootOutput.txt
cd "C:\Users\%Username%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"
@dir "C:\Users\%Username%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup" > D:\SystemBootOutput.txt
cls
echo 掃描完畢！已將結(jié)果存放到%Path%
echo.
pause
start D:\SystemBootOutput.txt
color 2f
goto menu
:addboot
cls
SET /p r=請(qǐng)輸入你要添加至開機(jī)自啟項(xiàng)的文件名 [必須帶后綴，且不能是快捷方式]
SET /p q=請(qǐng)輸入該文件的所在路徑 [必須帶文件名]
echo 正在添加文件......
copy %q% "C:\Users\%Username%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup" >nul
if %errorlevel%==0 (
? ? cls
echo 文件添加完畢！
echo.
pause
color 2f
goto menu
) else (
? ? cls
color 4f
echo 錯(cuò)誤：由于某些原因，文件添加失??！
echo.
echo ERROR CODES:%errorlevel%*%random%
echo.
pause
color 2f
goto menu
)
:delboot
cls
SET /p g=請(qǐng)輸入該文件的所在路徑 [必須帶文件名]
echo 正在移除文件......
cd "C:\Users\%Username%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"
del %g%
if %errorlevel%==0 (
? ? cls
echo 文件移除完畢！
echo.
pause
color 2f
goto menu
) else (
? ? cls
color 4f
echo 錯(cuò)誤：由于某些原因，文件移除失敗！
echo.
echo ERROR CODES:%errorlevel%*%random%
echo.
pause
color 2f
goto menu
)
然后就是程序運(yùn)行效果了，如下：
附錄：程序的運(yùn)行效果
并且如果程序操作失敗，還會(huì)有錯(cuò)誤提示
好了，這就是有關(guān)這個(gè)程序的介紹了！希望大家喜歡這個(gè)程序，再見！
