Bugün sıcaktan bunalırken aklıma gelen bir fikir sonrası böyle küçük bir CCleaner klonu tasarlamaya çalıştım. Şu anlık seçenekler kısıtlı fakat güncelleyeceğim, yeni sürümleri de sürekli olarak buradan paylaşmaya çalışacağım. "Neden batch ile yaptın?" diye soracak olursanız tamamen canım istediği için, hiçbir sebebi yok. Eğer önerileriniz varsa açığım ya da herhangi bir bug vb. bulursanız söyleyebilirsiniz. Elimden geldiğince bütün gün boş boş yatmak yerine güncellemeye çalışacağım. Belki birilerinin işine yarar.
Programı çalıştırmak için kodların tamamını kopyalayıp Notepad'e yapıştırdıktan sonra .bat formatı ile kaydedebilirsiniz.
Yok ben üşenirim öyle şeylere derseniz de direkt indirebilirsiniz. Komut sistemi araçları.bat.
Kod:
@echo off
@title Komut Sistemi Araclari
:: ADMİN İZNİ VERME
:-------------------------------------
REM --> Check for permissions
IF "%PROCESSOR_ARCHITECTURE%" EQU "amd64" (
>nul 2>&1 "%SYSTEMROOT%\SysWOW64\cacls.exe" "%SYSTEMROOT%\SysWOW64\config\system"
) ELSE (
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
)
REM --> If error flag set, we do not have admin.
if '%errorlevel%' NEQ '0' (
echo Requesting administrative privileges...
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
set params = %*:"=""
echo UAC.ShellExecute "cmd.exe", "/c ""%~s0"" %params%", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
del "%temp%\getadmin.vbs"
exit /B
:gotAdmin
pushd "%CD%"
CD /D "%~dp0"
:--------------------------------------
::DEĞİŞKEN ATAMALARI
set input=nothing
set defragyesno=nothing
set disktemizlemeyesno=nothing
set ayarlar=nothing
set renk=nothing
::İNTRO
echo Sisteminizin basina gelebilecek herhangibir seyde sorumlu kisi sizsinizdir.
pause
::MENÜ
:menu
cls
echo MADE BY KEREM SADDEX
echo -------------------------------------------
echo [0] Cikis
echo [1] Hakkinda
echo [2] Ayarlar
echo [3] Disk Birlestir
echo [4] Disk Temizleme
echo Lutfen kullanmak istediginiz aracin basindaki sayiyi yazip entera basiniz.
set/p input=
if %input%==0 goto 0
if %input%==1 goto 1
if %input%==2 goto 2
if %input%==3 goto 3
if %input%==4 goto 4
goto menu
:0
exit
:1
cls
echo Komut sistemi araclari
echo Basit ve kullanisli cmd komutlarini anlasilir sekilde biraraya getiren program
echo Telif hakki bulunmamaktadir.
echo -------------------------------------------
echo menu'ye donmek icin bir tusa basiniz.
pause
goto menu
:2
cls
echo [1]renk ayari
set/p ayarlar=Degistirmek istediginiz ayarin kodunu giriniz:
if %ayarlar%==1 goto ayarlar1
if %ayarlar%==exit goto menu
:ayarlar1
cls
echo ana menu'ye donmek icin exit yazınız (enter'a bastıktan sonra herhangibir tuşa bassarsanız ana menüye döner.
echo 0 = Siyah 8 = Gri
echo 1 = Mavi 9 = Acik Mavi
echo 2 = Yesil A = Acik Yesil
echo 3 = Su B = Hafif Su
echo 4 = Kirmizi C = Acik Kirmizi
echo 5 = Mor D = Acik Mor
echo 6 = Sari E = Acik Sari
echo 7 = Beyaz F = Parlak Beyaz
set/p renk=yazilari yapmak istediginiz rengin kodunu giriniz:
color %renk%
goto menu
:3
cls
echo bu islem biraz uzun surebilir ayrica SSD kullaniyorsaniz sisteminize faydadan cok zarari dokunacaktir.
set/p defragyesno=devam etmek istiyor musunuz? e=evet h=hayir:
if %defragyesno%==e goto defragyesnoevet
if %defragyesno%==h goto defragyesnohayır
:defragyesnoevet
defrag c:
:defragyesnohayır
goto menu
:4
cls
echo bu islem biraz uzun surebilir
set/p disktemizlemeyesno=devam etmek istiyor musunuz? e=evet h=hayir:
if %disktemizlemeyesno%==e goto disktemizlemeyesnoevet
if %disktemizlemeyesno%==h goto disktemizlemeyesnohayır
:disktemizlemeyesnoevet
c:\windows\SYSTEM32\cleanmgr.exe
:disktemizlemeyesnohayır
goto menuProgramı çalıştırmak için kodların tamamını kopyalayıp Notepad'e yapıştırdıktan sonra .bat formatı ile kaydedebilirsiniz.
Yok ben üşenirim öyle şeylere derseniz de direkt indirebilirsiniz. Komut sistemi araçları.bat.
