Agenda en Batch by M_BuRNeD

@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

if not defined opcion