Agenda en Batch by Hendrix

Iniciado por ANTRAX, Julio 18, 2011, 08:40:39 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Les dejo este code de Hendrix, Es una agenda personal hecha en batch

Código: dos
@echo off
Title Agenda Personal
color 0a
cls
echo Bienvenido a la Agenda personal.
pause > nul
cls
if exist "C:\Windows\hendrixagenda" (goto intro) else (mkdir C:\Windows\hendrixagenda && goto intro)
:intro
cls
echo Selecciona:
echo 1. Crear un nuevo usuario
echo 2. Borrar un usuario
echo 3. Entrar a tu cuenta
echo 4. Salir del programa
set /p option=
if %option%==1 goto newu
if %option%==2 goto delu
if %option%==3 goto usersesion
if %option%==4 goto fin
:newu
cls
echo Aqui podras ingresar un nuevo usuario.
echo Introduce el nombre:
set /p nom=
echo Introduce la pass:
set /p pass=
cls
echo Procesando datos...
mkdir C:\Windows\hendrixagenda\%nom% > nul
echo Nombre:%nom% Pass:%pass% > C:\Windows\hendrixagenda\%nom%\info.txt
attrib +H C:\Windows\hendrixagenda\%nom%\info.txt
ping 127.0.0.1 -2 > nul
cls
echo Cuenta creada satisfactoriamente!!!
pause > nul
goto intro
:delu
cls
echo Selecciona el nombre del usuario:
set /p usdel=
echo Introduce la pass del usuario:
set /p uspass=
If exist "C:\Windows\hendrixagenda\%usdel%" (goto 1) else (echo No existe el nombre del usuario && pasue > nul && goto delu)
:1
FOR /F "tokens=3 delims=:" %%A IN (C:\Windows\hendrixagenda\%usdel%\info.txt) do set key=%%A
If %key%==%uspass% (cd C:\Windows\hendrixagenda\%usdel% && del /s /q *.* && rd C:\Windows\hendrixagenda\%usdel% && goto 4) else (echo pass incorrecta && pause > nul && goto delu)
:4
cls
echo Usuario Borrado con exito!!!
echo.
echo Pulse una tecla para volver al menu principal:
pause > nul
goto intro
:deladmin
cls
echo NOTA: va a borrar todos los datos de este software, esta seguro??? (S/N)
set /p segur=
If /i %segur%==s goto cont
If /i %segur%==n goto intro
:cont
cls
echo Introduce la Pass del Admin:
set /p passmin=
FOR /F "tokens=3 delims=:" %%A IN (C:\Windows\hendrixagenda\admin\info.txt) do set key=%%A
If %key%==%passmin% (goto 2) else (echo Pass incorrecta && pause && goto cont)
:2
rd C:\Windows\hendrixagenda
cls
echo Todo lo relacionado con este software esta borrado.
pause > nul
goto intro
:usersesion
cls
echo Introduce el nombre del usuario:
set /p numu=
echo Introduce la pass:
set /p contrase=
If exist "C:\Windows\hendrixagenda\%numu%" (goto 3) else (echo No existe el usuario && pause && goto usersesion)
:3
FOR /F "tokens=3 delims=:" %%A IN (C:\Windows\hendrixagenda\%numu%\info.txt) do set key=%%A
If %key%==%contrase% (goto sesion) else (echo pass incorrecta && pause > nul && goto usersesion)
:sesion
cls
echo Bienvenido %numu%, selecciona:
echo 1. Agregar archivo a la agenda personal
echo 2. Borrar un archivo
echo 3. Ver tus archivos
echo 4. Comprimir un archivo
echo 5. Comprimir todos mis archivos
echo 6. Esconder mis archivos
echo 7. Salir de la cuenta
echo 8. Salir del software
set /p usoptio=
If %usoptio%==1 goto new
If %usoptio%==2 goto borra
If %usoptio%==3 goto miron
If %usoptio%==4 goto compr1
If %usoptio%==5 goto compr
If %usoptio%==6 goto stealth
If %usoptio%==7 goto intro
If %usoptio%==8 goto fin
:new
cls
echo Aqui es donde se configurara tu agenda personal:
pause > nul
cls
echo Introduce el nombre (sin la extension) del archivo para guardarlo:
set /p nenuko=
cls
echo Introduce los siguientes datos de la persona:
echo.
set /p nom1=Nombre:
set /p ape1=Apellidos:
set /p dire1=Direccion:
set /p tele1=Numero telefono:
set /p poble1=Poblacion:
set /p postal1=Codigo postal:
set /p notita1=Nota para este contacto:
cls
echo Guardando datos....
cd C:\Windows\hendrixagenda\%numu%
echo Nombre: %nom1% > %nenuko%.txt
echo Apellidos: %ape1% >> %nenuko%.txt
echo Direccion: %dire1% >> %nenuko%.txt
echo Numero telefono: %tele1% >> %nenuko%.txt
echo Poblacion: %poble1% >> %nenuko%.txt
echo Codigo Postal: %postal1% >> %nenuko%.txt
echo Nota para este Contecto: %notita1% >> %nenuko%.txt
ping 127.0.0.1 -n 3 > nul
cls
echo Guardado con exito!!!
pause > nul
goto sesion
:borra
cls
dir C:\Windows\hendrixagenda\%numu%
echo.
echo Escribe el nombre del archivo a borrar:
set /p limon=
cd C:\Windows\hendrixagenda\%numu%\
del /s /q %limon%
cls
echo Bien, archivo borrado con exito
pause > nul
goto sesion
:miron
cls
dir C:\Windows\hendrixagenda\%numu%
echo.
echo.
echo Selecciona un archivo para verlo o escribe salir para volver al menu:
set /p eskorbuto=
If /i %eskorbuto%==sair (goto sesion) else (start C:\Windows\hendrixagenda\%numu%\%eskorbuto%)
goto sesion
:compr1
cls
dir C:\Windows\hendrixagenda\%numu%
echo Escribe el nombre del archivo a comprimir:
set /p naranja=
echo Introduce la ruta y el nombre del archivo .rar que se creara:
set /p manzana=
cd C:\Windows\hendrixagenda\%numu%
start winrar.exe a %manzana% %naranja%
cls
echo Archivos comprimidos con exito!!!
pause > nul
goto sesion
:compr
echo Introduce la ruta y el nombre del archivo .rar que se creara:
set /p lima=
start winrar.exe a %lima% C:\Windows\hendrixagenda\%numu%\
cls
echo Comprimido!!!
pause > nul
goto sesion
:stealth
cd C:\Windows\hendrixagenda\%numu%\
attrib +H *.*
cls
echo Completado!!!
pause > nul
goto sesion
:fin
color 07
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                 **********************************************
echo                 *     SOFTWARE DEVOLOPED BY HENDRIX          *
echo                 **********************************************
echo.
echo.
echo.
echo.
echo.
echo.
pause > nul
exit
exit


Hola, buen día.
Hay un par de errores en el code, pero nada importante
Por ejemplo en la línea 211 hay doble exit.
Se recomienda utilizar variables de entorno en los Batchs
para evitar errores C:\WINDOWS lo cambiaría por
%windir% y para detectar la unidad %homedrive%\ ya que no
siempre es C:\
Luego sigo revisandolo...
Good Job-.
No tienes permitido ver los links. Registrarse o Entrar a mi cuenta

Si tenes razon. Pero no quise modificar el codigo original.
Este code lo saque de unos post viejos en CPH. creo que del 2007 jajaja

Saludos!


Jajajja si lo noté , solo por el nick de Hendrix
Que era moderador en aquella epoca.
Solo lo decía por si un usuario lee el topic, sepa
que se puede mejorar o evitar errores :D
No tienes permitido ver los links. Registrarse o Entrar a mi cuenta