help_outline
Ayudanos!
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Agenda de Direcciones

  • 0 Respuestas
  • 2093 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5427
  • Actividad:
    35%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 18, 2011, 10:18:44 pm »
Código: DOS
  1. @echo off
  2. cls
  3. title Agenda de Direcciones
  4. rem aqui va nuestra firma del curso espero q os guste
  5. rem la e sacao de internet pero mola ehh...
  6. echo                                        ,   ,  
  7. echo                                        $,  $,     ,            
  8. echo                                        "ss.$ss. .s'    
  9. echo                                ,     .ss$$$$$$$$$$s,              
  10. echo                                $. s$$$$$$$$$$$$$$`$$Ss      
  11. echo                                "$$$$$$$$$$$$$$$$$$o$$$       ,      
  12. echo                               s$$$$$$$$$$$$$$$$$$$$$$$$s,  ,s  
  13. echo                              s$$$$$$$$$"$$$$$$""""$$$$$$"$$$$$,    
  14. echo                              s$$$$$$$$$$s""$$$$ssssss"$$$$$$$$"  
  15. echo                             s$$$$$$$$$$'         `"""ss"$"$s""      
  16. echo                             s$$$$$$$$$$,              `"""""$  .s$$s
  17. echo                             s$$$$$$$$$$$$s,...               `s$$'  `
  18. echo                         `ssss$$$$$$$$$$$$$$$$$$$$####s.     .$$"$.   , s-
  19. echo                           `""""$$$$$$$$$$$$$$$$$$$$#####$$$$$$"     $.$'
  20. echo                                 "$$$$$$$$$$$$$$$$$$$$$####s""     .$$$|
  21. echo                                  "$$$$$$$$$$$$$$$$$$$$$$$$##s    .$$" $
  22. echo                                   $$""$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"   `
  23. echo                                  $$"  "$"$$$$$$$$$$$$$$$$$$$$S""""'
  24. echo                             ,   ,"     '  $$$$$$$$$$$$$$$$####s  
  25. echo                             $.          .s$$$$$$$$$$$$$$$$$####"
  26. echo                 ,           "$s.   ..ssS$$$$$$$$$$$$$$$$$$$####"
  27. echo                 $           .$$$S$$$$$$$$$$$$$$$$$$$$$$$$#####"
  28. echo                 Ss     ..sS$$$$$$$$$$$$$$$$$$$$$$$$$$$######""
  29. echo                  "$$sS$$$$$$$$$$$$$$$$$$$$$$$$$$$########"
  30. echo           ,      s$$$$$$$$$$$$$$$$$$$$$$$$#########""'
  31. echo           $    s$$$$$$$$$$$$$$$$$$$$$#######""'      s'         ,
  32. echo           $$..$$$$$$$$$$$$$$$$$$######"'       ....,$$....    ,$
  33. echo            "$$$$$$$$$$$$$$$######"' ,     .sS$$$$$$$$$$$$$$$$s$$
  34. echo              $$$$$$$$$$$$#####"     $, .s$$$$$$$$$$$$$$$$$$$$$$$$s.
  35. echo   )          $$$$$$$$$$$#####'      `$$$$$$$$$###########$$$$$$$$$$$.
  36. echo  ((          $$$$$$$$$$$#####       $$$$$$$$###"       "####$$$$$$$$$$
  37. echo  ) \         $$$$$$$$$$$$####.     $$$$$$###"             "###$$$$$$$$$   s'
  38. echo (   )        $$$$$$$$$$$$$####.   $$$$$###"                ####$$$$$$$$s$$'
  39. echo )  ( (       $$"$$$$$$$$$$$#####.$$$$$###' Curso Batch    .###$$$$$$$$$$"
  40. echo (  )  )   _,$"   $$$$$$$$$$$$######.$$##'                .###$$$$$$$$$$
  41. echo ) (  ( \.         "$$$$$$$$$$$$$#######,,,.          ..####$$$$$$$$$$$"
  42. echo(   )$ )  )        ,$$$$$$$$$$$$$$$$$$####################$$$$$$$$$$$"        
  43. echo(   ($$  ( \     _sS"  `"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$S$$,      
  44. echo )  )$$$s ) )  .      .   `$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"'  `$$  
  45. echo  (   $$$Ss/  .$,    .$,,s$$$$$$##S$$$$$$$$$$$$$$$$$$$$$$$$S""        '
  46. echo    \)_$$$$$$$$$$$$$$$$$$$$$$$##"  $$        `$$.        `$$.
  47. echo        `"S$$$$$$$$$$$$$$$$$#"      $          `$          `$
  48. echo            `"""""""""""""'         '           '           '
  49. goto menu
  50.  
  51. :menu
  52. cls
  53. echo 1.Crear usuario
  54. echo 2.Eliminar usuario
  55. echo 3.Login usuario
  56. echo 4.salir
  57. set /p opc=Que quiere hacer?
  58. If %opc%==1 goto newu
  59. If %opc%==2 goto delu
  60. If %opc%==3 goto regs
  61. If %opc%==4 (goto exit) else echo Caracter no conocido && pause && goto menu
  62.  
  63. :newu
  64. cls
  65. set /p use=Nombre:    
  66. set /p pas=Contraseña:
  67. cls      
  68. echo guardando usuario...
  69. mkdir c:\Agenda\%use%
  70. echo %pas% > c:\Agenda\%use%\%pas%.txt
  71. attrib +h c:\Agenda\%use%\%pas%.txt
  72. echo usuario guardado de forma correcta
  73. echo pulse una tecla para regresar al menu principal...
  74. pause > nol
  75. goto menu
  76. :menu
  77. cls
  78. echo 1.Crear usuario
  79. echo 2.Eliminar usuario
  80. echo 3.Login usuario
  81. echo 4.salir
  82. set /p opc=Que quiere hacer?
  83. If %opc%==1 goto newu
  84. If %opc%==2 goto delu
  85. If %opc%==3 goto regs
  86. If %opc%==4 goto exit
  87.  
  88. :newu
  89. cls
  90. set /p use=Nombre:    
  91. set /p pas=Contraseña:
  92. cls      
  93. echo guardando usuario...
  94. mkdir c:\Agenda\%use%
  95. echo %pas% > c:\Agenda\%use%\%pas%.txt
  96. echo usuario guardado de forma correcta
  97. echo pulse una tecla para regresar al menu principal...
  98. pause > nol
  99. goto menu
  100.  
  101. :delu
  102. cls
  103. set /p nde=Nombre:
  104. set /p pde=Contraseña:
  105. comprobando informacion...
  106. If exist c:\Agenda\%nde% ( goto delu1 )
  107. If not exist c:\Agenda\%nde% (echo El nombre de usuario no existe&echo pulse una tecla para volver al menu principal..&pause > nul&goto menu)
  108. :delu1
  109. cls
  110. If exist c:\Agenda\%nde%\%pde%.txt ( goto delu2 )
  111. If not exist c:\Agenda\%nde%\%pde%.txt (echo Contraseña incorrecta&echo pulse un tecla para regresar al menu&pause > nul&goto menu)
  112.  
  113. :delu2
  114. cls
  115. set con=Seguro que quiere borrar toda la informacion de %nde%? s/n
  116. If %con%==s goto delu3
  117. If %con%==n goto menu
  118.  
  119. :delu3
  120. cls
  121. Borrando informacion...
  122. del c:\Agenda\%nde%
  123. echo Se ha borrado la informacion de %nde% con exito
  124. echo pulse una tecla para regresar al menu principal...
  125. goto menu
  126.  
  127. :regs
  128. cls
  129. set /p nom=Nombre:
  130. set /p psw=Contraseña:
  131. If exist c:\Agenda\%nom% (goto regs1)  
  132. If not exist c:\Agenda\%nom% (echo El nombre de usuario no existe&echo pulse una tecla para volver al menu principal..&pause > nul&goto menu)
  133.  
  134. :regs1
  135. If exist c:\Agenda\%nom%\%psw%.txt (goto usermenu)
  136. If not exist c:\Agenda\%nom%\%psw%.txt (echo La contraseña es incorrecta&echo pulse una tecla para volver al menu principal..&pause > nul&goto menu)
  137.  
  138. :usermenu
  139. cls
  140. echo Hola %nom%
  141. echo 1.Agregar nuevo contacto.
  142. echo 2.Eliminar contacto.
  143. echo 3.Agenda.
  144. echo 4.Volver al menu principal.
  145. echo 5.Salir.
  146. set /p var=Elija una opcion ingresando el numero de que la acompaña:
  147. If %var%==1 goto 001
  148. If %var%==2 goto 002
  149. If %var%==3 goto 003
  150. If %var%==4 goto menu
  151. If %var%==5 goto exit
  152.  
  153. :001
  154. if exist C:\Agenda (goto 010) else mkdir C:\Agenda&goto 010
  155.  
  156. :010
  157. cd \
  158. cls
  159. echo Rellene los siguientes campos acerca de su contacto:
  160. set /p nombre=Nombre:  
  161. set /p aapellido=Primer apellido:
  162. set/p bapellido=Segundo apellido:
  163. set /p direccion=Direccion:  
  164. set /p tel=Telefono:  
  165. echo Nombre: %nombre% > Agenda\%nom%\%nombre%_%aapellido%.txt
  166. echo Primer apellido: %aapellido% >> Agenda\%nom%\%nombre%_%aapellido%.txt
  167. echo Segundo apellido: %bapellido% >> Agenda\%nom%\%nombre%_%aapellido%.txt
  168. echo Diereccion: %direccion% >> Agenda\%nom%\%nombre%_%aapellido%.txt
  169. echo Telefono: %tel% >> Agenda\%nom%\%nombre%_%aapellido%.txt
  170. cls
  171. echo Se guardara la siguente informacion:
  172. echo Nombre: %nombre%
  173. echo Primer Apellido: %aapellido%
  174. echo Segundo Apellido: %bapellido%
  175. echo Direccion: %direccion%
  176. echo Telefono: %tel%
  177. set /p val=¿es correcta? s/n :
  178. If %val%==s echo guardando informacion...&echo Pulsa una tecla para continuar...&pause > nul&goto usermenu
  179. If %val%==n echo Pulse una tecla para volver a introducir los datos...&del Agenda\%nom%\%nombre%_%aapellido%.txt&pause > nul%goto 001
  180.  
  181. :002
  182. cd \
  183. cls
  184. set /p borrar=Escriba el nombre del contacto que desea borrar:
  185. set /p borraa=Escriba el primer apellido del nombre que desea borrar:
  186. cls  
  187. set /p confir=¿Esta seguro de que quiere eliminar el contacto "%borrar% %borraa%"? s/n:
  188. If %confir%==s (goto 020)
  189. If %confir%==n (goto usermenu)
  190.  
  191. :020
  192. cd \
  193. cls
  194. echo Borrando contacto...
  195. del Agenda\%nom%\%borrar%_%borraa%.txt    
  196. echo Su contacto se a eliminado de forma correcta.  
  197. echo pulse una tecla para regresar al menu...
  198. goto usermenu
  199.  
  200. :003
  201. cd \
  202. cls
  203. set /p contac=Escriba el nombre del contacto que desea ver:
  204. cls
  205. set /p apelli=Escriba el primer apellido del contacto que desea ver:
  206. cls    
  207. echo su contacto se esta abriendo...
  208. start Agenda\%nom%\%contac%_%apelli%.txt
  209. cls
  210. echo su contacto se ha abierto de forma correcta
  211. echo Puse una tecla para regresar al menu...
  212. pause > nol
  213. goto usermenu
  214.  
  215. cls
  216. echo Hasta la proxima
  217. cls
  218. echo                                        ,   ,  
  219. echo                                        $,  $,     ,            
  220. echo                                        "ss.$ss. .s'    
  221. echo                                ,     .ss$$$$$$$$$$s,              
  222. echo                                $. s$$$$$$$$$$$$$$`$$Ss      
  223. echo                                "$$$$$$$$$$$$$$$$$$o$$$       ,      
  224. echo                               s$$$$$$$$$$$$$$$$$$$$$$$$s,  ,s  
  225. echo                              s$$$$$$$$$"$$$$$$""""$$$$$$"$$$$$,    
  226. echo                              s$$$$$$$$$$s""$$$$ssssss"$$$$$$$$"  
  227. echo                             s$$$$$$$$$$'         `"""ss"$"$s""      
  228. echo                             s$$$$$$$$$$,              `"""""$  .s$$s
  229. echo                             s$$$$$$$$$$$$s,...               `s$$'  `
  230. echo                         `ssss$$$$$$$$$$$$$$$$$$$$####s.     .$$"$.   , s-
  231. echo                           `""""$$$$$$$$$$$$$$$$$$$$#####$$$$$$"     $.$'
  232. echo                                 "$$$$$$$$$$$$$$$$$$$$$####s""     .$$$|
  233. echo                                  "$$$$$$$$$$$$$$$$$$$$$$$$##s    .$$" $
  234. echo                                   $$""$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"   `
  235. echo                                  $$"  "$"$$$$$$$$$$$$$$$$$$$$S""""'
  236. echo                             ,   ,"     '  $$$$$$$$$$$$$$$$####s  
  237. echo                             $.          .s$$$$$$$$$$$$$$$$$####"
  238. echo                 ,           "$s.   ..ssS$$$$$$$$$$$$$$$$$$$####"
  239. echo                 $           .$$$S$$$$$$$$$$$$$$$$$$$$$$$$#####"
  240. echo                 Ss     ..sS$$$$$$$$$$$$$$$$$$$$$$$$$$$######""
  241. echo                  "$$sS$$$$$$$$$$$$$$$$$$$$$$$$$$$########"
  242. echo           ,      s$$$$$$$$$$$$$$$$$$$$$$$$#########""'
  243. echo           $    s$$$$$$$$$$$$$$$$$$$$$#######""'      s'         ,
  244. echo           $$..$$$$$$$$$$$$$$$$$$######"'       ....,$$....    ,$
  245. echo            "$$$$$$$$$$$$$$$######"' ,     .sS$$$$$$$$$$$$$$$$s$$
  246. echo              $$$$$$$$$$$$#####"     $, .s$$$$$$$$$$$$$$$$$$$$$$$$s.
  247. echo   )          $$$$$$$$$$$#####'      `$$$$$$$$$###########$$$$$$$$$$$.
  248. echo  ((          $$$$$$$$$$$#####       $$$$$$$$###"       "####$$$$$$$$$$
  249. echo  ) \         $$$$$$$$$$$$####.     $$$$$$###"             "###$$$$$$$$$   s'
  250. echo (   )        $$$$$$$$$$$$$####.   $$$$$###"                ####$$$$$$$$s$$'
  251. echo )  ( (       $$"$$$$$$$$$$$#####.$$$$$###' Curso Batch    .###$$$$$$$$$$"
  252. echo (  )  )   _,$"   $$$$$$$$$$$$######.$$##'                .###$$$$$$$$$$
  253. echo ) (  ( \.         "$$$$$$$$$$$$$#######,,,.          ..####$$$$$$$$$$$"
  254. echo(   )$ )  )        ,$$$$$$$$$$$$$$$$$$####################$$$$$$$$$$$"        
  255. echo(   ($$  ( \     _sS"  `"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$S$$,      
  256. echo )  )$$$s ) )  .      .   `$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"'  `$$  
  257. echo  (   $$$Ss/  .$,    .$,,s$$$$$$##S$$$$$$$$$$$$$$$$$$$$$$$$S""        '
  258. echo    \)_$$$$$$$$$$$$$$$$$$$$$$$##"  $$        `$$.        `$$.
  259. echo        `"S$$$$$$$$$$$$$$$$$#"      $          `$          `$
  260. echo            `"""""""""""""'         '           '           '
  261.  


 

¿Te gustó el post? COMPARTILO!



Agenda en Batch by M_BuRNeD

Iniciado por ANTRAX

Respuestas: 1
Vistas: 1647
Último mensaje Julio 18, 2011, 08:51:00 pm
por JaAViEr
Agenda en Batch by Hendrix

Iniciado por ANTRAX

Respuestas: 3
Vistas: 2532
Último mensaje Julio 18, 2011, 08:54:43 pm
por JaAViEr
Agenda Numa

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1915
Último mensaje Julio 18, 2011, 10:34:02 pm
por ANTRAX