AGENDA

Agenda creada en el lenguaje Batch, para que puedas logearte, configurar tu usuario o eliminar cierta cuenta, Creada por Maestro Html

@echo off
rem TODOS LO DERECHOS RESERVADOS
title Agenda 1.0 by Maestro Html * TODOS LOS DERECHOS RESERVADOS
:comprov1
if exist "%homedrive%\agenda_data" goto comprov1ok
if not exist "%homedrive%\agenda_data" goto comprov1fail

:comprov1fail
mkdir "%homedrive%\agenda_data"
attrib +h "%homedrive%\agenda_data"
goto comprov2

:comprov1ok
goto comprov2

:comprov2
if exist "%homedrive%\agenda_data\usuarios" goto comprov2ok
if not exist "%homedrive%\agenda_data\usuarios" goto comprov2fail

:comprov2fail
mkdir "%homedrive%\agenda_data\usuarios"
attrib +h "%homedrive%\agenda_data\usuarios"
goto register1

:comprov2ok
goto menu1

:register1
title Registrar usuario
cls
set /p nombreuser= Cual sera tu nombre?
cls
set /p passuser= Cual sera tu password?
cls
mkdir "%homedrive%\agenda_data\usuarios\%nombreuser%"
mkdir "%homedrive%\agenda_data\usuarios\%nombreuser%\pass_%passuser%"
attrib +h "%homedrive%\agenda_data\usuarios\%nombreuser%"
attrib +h "%homedrive%\agenda_data\usuarios\%nombreuser%\pass_%passuser%"
mkdir "%homedrive%\agenda_data\usuarios\%nombreuser%\admin"
attrib +h "%homedrive%\agenda_data\usuarios\%nombreuser%\admin"
cls
echo Como eres el primer usuario de la agenda seras el administrador.
echo El administrador es el unico que puede acceder a la configuracion de la agenda
pause
goto menu1

:menu1
title Agenda 1.0 by Maestro Html * TODOS LOS DERECHOS RESERVADOS
cls
echo 1.Log In
echo 2.Configuracion agenda
echo 3.Registrarse
echo 4.Salir
set /p menu1= Que quieres hacer? (pon el numero correspondiente)
if %menu1%==1 goto login
if %menu1%==2 goto config
if %menu1%==3 goto register
if %menu1%==4 exit
cls
echo Opcion no valida
pause
goto menu1

:login
title Login
cls
set /p userlogin= Usuario:
cls
set /p userpass= Password:
cls
goto comprov3

:comprov3
if exist "%homedrive%\agenda_data\usuarios\%userlogin%" goto comprov3ok
if not exist "%homedrive%\agenda_data\usuarios\%userlogin%" goto comprov3fail

:comprov3fail
cls
echo Ese usuario no existe...
echo Pero puedes registrarlo en el menu
pause
goto menu1

:comprov3ok
cls
if exist "%homedrive%\agenda_data\usuarios\%userlogin%\pass_%userpass%" goto menuuser
if not exist "%homedrive%\agenda_data\usuarios\%userlogin%\pass_%userpass%" goto comprov3fail

:comprov3fail
cls
echo Password incorrecto
pause
goto menu1

:menuuser
title Bienvenido %userlogin%
cls
echo Bienvenido %userlogin%
echo 1.Agregar contacto
echo 2.Ver contacto
echo 3.Borrar contacto
echo 4.Salir
set /p menuuser= Que quieres hacer? (pon el numero correspondiente)
if %menuuser%==1 goto agregar
if %menuuser%==2 goto ver
if %menuuser%==3 goto borrar
if %menuuser%==4 goto menu1
cls
echo Opcion no valida
pause
goto menuuser

:agregar
title Agregar contacto
cls
set /p nombrecont= Nombre:
cls
set /p apellido1cont= Primer Apellido:
cls
set /p apellido2cont= Segundo Apellido:
cls
set /p email= E-mail:
cls
set /p telefono= Telefono:
cls
set /p observaciones= Observaciones / datos adicionales:
cls
cd "%homedrive%\agenda_data\usuarios\%userlogin%"
echo Nombre: %nombrecont% >> %nombrecont%.txt
echo Primer apellido: %apellido1cont% >> %nombrecont%.txt
echo Segundo apellido: %apellido2cont% >> %nombrecont%.txt
echo E-mail: %email% >> %nombrecont%.txt
echo Telefono: %telefono% >> %nombrecont%.txt
echo Observaciones / datos adicionales: %observaciones% >> %nombrecont%.txt
cls
echo Contacto agregado!
pause
goto menuuser

:ver
cls
title Ver contacto
set /p contacto= Introduzca el nombre de pila del contacto:
cls
cd "%homedrive%\agenda_data\usuarios\%userlogin%"
type %contacto%.txt
pause
goto menuuser

:borrar
cls
title Borrar contacto
set /p contacto= Introduzca el nombre de pila del contacto:

:borrarcon
cls
set /p confirmacion= Esta seguro de que que quiere borrar a %contacto%? (s/n)
if %confirmacion%==s goto borrarsi


if %confirmacion%==n goto menuuser
cls
echo Solo introduzca s o n
pause
goto borrarcon

:borrarsi
erase "%homedrive%\agenda_data\usuarios\%userlogin%\%contacto%.txt"
cls
echo El contacto %contacto% ha sido borrado.
pause
goto menuuser

:config
cls
echo Aqui solo pueden entrar administradores
set /p userlogin= Usuario:
cls
echo Aqui solo pueden entrar administradores
set /p userpass= Password:
cls

:comprov4
if exist "%homedrive%\agenda_data\usuarios\%userlogin%" goto comprov4ok
if not exist "%homedrive%\agenda_data\usuarios\%userlogin%" goto comprov4fail

:comprov4fail
cls
echo Ese usuario no existe...
pause
goto menu1

:comprov4ok
cls
if exist "%homedrive%\agenda_data\usuarios\%userlogin%\pass_%userpass%" goto comprov5
if not exist "%homedrive%\agenda_data\usuarios\%userlogin%\pass_%userpass%" goto comprov4fail

:comprov4fail
cls
echo Password incorrecto
pause
goto menu1

:comprov5
if exist "%homedrive%\agenda_data\usuarios\%userlogin%\admin" goto menuadmin
if not exist "%homedrive%\agenda_data\usuarios\%userlogin%\admin" goto comprov5fail

:comprov5fail
cls
echo Tu no eres administrador! Solo los administradores pueden acceder aqui!
pause
goto menu1

:menuadmin
title Bienvenido %userlogin%
cls
echo Bienvenido %userlogin%
echo 1.Ver usuarios
echo 2.Eliminar usuarios
echo 3.Eliminar agenda
echo 4.Salir
set /p menuadmin= Que quieres hacer? (pon el numero correspondiente)
if %menuadmin%==1 goto verusers
if %menuadmin%==2 goto eliminarusers
if %menuadmin%==3 goto eliminaragenda
if %menuadmin%==4 goto menu1
cls
echo Opcion no valida
pause
goto menuadmin

:verusers
cls
title Ver usuarios
cd "%homedrive%\agenda_data\usuarios\"
echo Abajo se mostraran los usuarios en la columna mas a la derecha
dir /a:d
pause
goto menuadmin

:eliminarusers
title Eliminar usuarios
cls
set /p usuario= Que usuario quiere eliminar?
:eliminaruserscon
cls
set /p confirmacion= Esta seguro de que que quiere borrar a %usuario%? (s/n)
if %confirmacion%==s goto eliminarusersi
if %confirmacion%==n goto menuadmin
cls
echo Solo introduzca s o n
pause
goto eliminaruserscon

:eliminarusersi
cls
if not exist "%homedrive%\agenda_data\usuarios\%usuario%" goto noexiste
attrib -h "%homedrive%\agenda_data\usuarios\%usuario%"
rd "%homedrive%\agenda_data\usuarios\%usuario%" /S /Q
cls
echo El usuario %usuario% ha sido borrado.
pause
goto menuadmin

:noexiste
cls
echo Ese usuario no existe
pause
goto menuadmin

:eliminaragenda
title Eliminar agenda
cls
echo ATENCION! Si elimina la agenda se eliminaran todos los usuarios, incluso el administrador
set /p confirmacion= Esta seguro de que que quiere borrar la agenda? (s/n)
if %confirmacion%==s goto eliminaragendasi
if %confirmacion%==n goto menuadmin
cls
echo Solo introduzca s o n
pause
goto eliminaragenda

:eliminaragendasi
cls
attrib -h "%homedrive%\agenda_data"
rd "%homedrive%\agenda_data" /S /Q
cls
echo La agenda ha sido borrada.
pause
exit

:register
title Registrar usuario
cls
set /p nombreuser= Cual sera tu nombre?
cls
set /p passuser= Cual sera tu password?
cls
mkdir "%homedrive%\agenda_data\usuarios\%nombreuser%"
mkdir "%homedrive%\agenda_data\usuarios\%nombreuser%\pass_%passuser%"
attrib +h "%homedrive%\agenda_data\usuarios\%nombreuser%"
cls
echo Ahora ya puedes loguearte
pause
goto menu1