@echo off
color 70
title Registro_batch by M_BuRNeD
cls
echo *********************************
echo * Programa de registro en Batch *
echo * By M_BuRNeD *
echo *********************************
Pause > nul
:0
cls
echo ...Elija una opcion
echo 1- Ver la ultima entrada a ¤adida
echo 2- Consultar una entrada
echo 3- Añadir entradas al registro
echo 4- Borrar dato del registro
echo 5- Borrar clave del registro
echo 6- Comparar claves
echo 7- Bloquea el registro
echo 8- Desbloquea el registro
echo 9- Salir del programa
Set /p var= Elija una opcion (1,2,3,4,...)
IF %var%== goto 0
IF %var%==1 goto Ver else Next
IF %var%==2 goto Cons else Next
IF %var%==3 goto An else Next
IF %var%==4 goto Del else Next
IF %var%==5 goto Dele else Next
IF %var%==6 goto Comp else Next
IF %var%==7 goto Blk else Next
IF %var%==8 goto Dblk else Next
IF %var%==9 goto Exi else Next
:Ver
echo La ultima clave registrada es:
reg Query HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit /v LastKey
Pause > nul
goto 0
:Cons
cls
echo Puedes visualizar el contenido de la subclave que quieras.Ej:
echo Ruta : HKEY_CURRENT_USER\Software\Microsoft\Telnet
echo Subclave : MODE
set /p reg= Ruta regedit:
Set /p rig= Subclave :
reg Query %reg% /v %rig%
if errorlevel = 1 (
echo Error en los datos
Pause > nul
goto :Cons
)
Pause > nul
goto 0
:An
cls
echo Puedes a ¤adir la clave que quieras
Set /p rut= Ruta regedit:
Set /p nom= Nombre de la subclave:
Set /p tip= Tipo de subclave:
Set /p dat= Datos a asignar:
reg add %rut% /v %nom% /t %tip% /d %dat% /f
if errorlevel = 1 (
echo Error en los datos
Pause > nul
goto An
)
Pause > nul
goto 0
:Del
cls
echo Aqui puedes borrar los datos sueltos que consideres innecesarios.
echo Borrad solo si sabeis lo que va a pasar.No pide confirmacion
set /p pat= Ruta regedit:
set /p num= Nombre del dato:
reg delete %pat% /v %num% /f
If errorlevel = 1 (
echo Error en los datos
Pause > nul
goto Del
)
Pause > nul
goto 0
:Dele
cls
echo Aqui puedes borrar claves enteras del registro de windows
set /p zon= Ruta de la clave que quieres borrar
reg delete &zon% /f
If errorlevel = 1 (
echo Error en los datos
Pause > nul
goto Dele
)
Pause > nul
goto 0
:Comp
cls
echo Compara dos claves de registro elegidas por usted
set /p cmp= Primera clave:
set /p com= Segunda clave:
reg compare %cmp% %com%
Pause > nul
goto 0
:Blk
cls
echo Esta es la ultima opcion.Con esto puedes bloquear el registro para
echo que nadie pueda "entrar" a verlo
Set Path=HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System
Set Value=1
Set Tipo=REG_DWORD
reg add %Path% /v DisableRegistryTools /t %Tipo% d/ %Value% /f
If errorlevel = 1 (
echo Error
Pause > nul
goto 0
)
echo Registro bloqueado...
Pause > nul
goto 0
:Dblk
cls
echo Por si a alguien se le ocurre bloquearlo pensara... ¨y c ¢mo lo desbloqueo?
echo asi:
Set Dblk=HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System
Reg del %Dblk% /v DisableRegistryTools /f
Reg add %Dblk% /v DisableRegistryTools /t REG_DWORD d/ 0 /f
If errorlevel = 1 (
echo Error al desbloquar
Pause > nul
goto 0
)
:Exi
cls
echo Gracias por probar el programa
echo M_BuRNeD
Pause > nul
exit
Hola, Buen Día.
Es un code trabajado, frente a un IF para detectar
opciones, siempre es bueno utilizar :
if not defined opcion
Teniendo en cuenta que opcion es el set/p de la Opción ;D
Saludos.