elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  BATCH - Problema en bucle infinito
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: BATCH - Problema en bucle infinito  (Leído 7,255 veces)
llAudioslavell

Desconectado Desconectado

Mensajes: 177


Ver Perfil
Re: BATCH - Problema en bucle infinito
« Respuesta #10 en: 21 Septiembre 2016, 19:08 pm »

Con este:




En fin, te explico...

Tomando como base el código que mostré, puedes determinar de forma individual el estado de cada proceso de la siguiente manera:

Código
  1. @Echo OFF & (CHCP 1252)1>&2>NUL
  2. SetLocal EnabledelayedExpansion
  3.  
  4. :Loop
  5. Set /A "isGUIactive=-1"
  6. Set /A "isCLIactive=-1"
  7. (Call :CheckGUI) & (Set /A "isGUIactive=!ERRORLEVEL!")
  8. (Call :CheckCLI) & (Set /A "isCLIactive=!ERRORLEVEL!")
  9.  
  10. If "!isGUIactive!" EQU "0" (
  11.    Echo:El proceso "openvpn-gui" está activo.
  12. )
  13.  
  14. If "!isCLIactive!" EQU "0" (
  15.    Echo:El proceso "openvpn" está activo.
  16. )
  17.  
  18. If "!isGUIactive!" EQU "0" If "!isCLIactive!" EQU "0" (
  19.    Echo:Ambos procesos está activos.
  20. )
  21.  
  22. (TimeOut /T 1 /NoBreak)1>&2>NUL
  23. GoTo :Loop
  24.  
  25. :CheckGUI
  26. (TaskList.exe /FI "IMAGENAME eq openvpn-gui.exe" | Find "openvpn-gui.exe")1>&2>NUL
  27. Exit /B "%ERRORLEVEL%"
  28.  
  29. :CheckCLI
  30. (TaskList.exe /FI "IMAGENAME eq openvpn.exe" | Find "openvpn.exe")1>&2>NUL
  31. Exit /B "%ERRORLEVEL%"

Estimado Elektro, la parte del codigo ya lo hice  ;-) necesito mostrartelo para que me ayudes verificando si esta bien. Lo que nose es como hace para que mi codigo se vea como el tuyo cuando lo publicas  :(  :(  o sea con ese marco


En línea

llAudioslavell

Desconectado Desconectado

Mensajes: 177


Ver Perfil
Re: BATCH - Problema en bucle infinito
« Respuesta #11 en: 21 Septiembre 2016, 19:20 pm »

Código
  1. @Echo OFF & (CHCP 1252)1>&2>NUL
  2. SetLocal EnabledelayedExpansion
  3.  
  4. :Loop
  5. Set /A "exitCodeCount=0"
  6. (Call :CheckGUI) & (Set /A "exitCodeCount=!ERRORLEVEL!")
  7. (Call :CheckCLI) & (Set /A "exitCodeCountt=!ERRORLEVEL!")
  8.  
  9. If "!exitCodeCount!" EQU "0" (
  10.    Echo:GUI Open
  11. If "!exitCodeCountt!" EQU "0" (
  12. Echo:Conex Open
  13. ) else (
  14. Echo:Conex Close
  15. )
  16. ) else (
  17. Echo:GUI Close
  18. )
  19.  
  20. (TimeOut /T 1 /NoBreak)1>&2>NUL
  21. GoTo :Loop
  22.  
  23. :CheckGUI
  24. (TaskList.exe /FI "IMAGENAME eq openvpn-gui.exe" | findstr "openvpn-gui.exe")1>&2>NUL
  25. Exit /B "%ERRORLEVEL%"
  26.  
  27. :CheckCLI
  28. (TaskList.exe /FI "IMAGENAME eq openvpn.exe" | findstr "openvpn.exe")1>&2>NUL
  29. Exit /B "%ERRORLEVEL%"
  30.  

Ya esta  ;-) Este programa me monitorea a la perfeccion ambos procesos, aqui te mando lo que en realidad quiero hacer:

Código
  1. @Echo OFF & (CHCP 1252)1>&2>NUL
  2. SetLocal EnabledelayedExpansion
  3.  
  4. :Loop
  5. Set /A "exitCodeCount=0"
  6. (Call :CheckGUI) & (Set /A "exitCodeCount=!ERRORLEVEL!")
  7. (Call :CheckCLI) & (Set /A "exitCodeCountt=!ERRORLEVEL!")
  8.  
  9. If "!exitCodeCount!" EQU "0" (
  10.    Echo:GUI Open
  11. If "!exitCodeCountt!" EQU "0" (
  12. Echo:Conex Open
  13. ) else (
  14. rem: aqui si la conexion esta cerrada, cierrlo el programa y lo abro con la conexion.
  15. taskkill /IM openvpn-gui.exe
  16. "C:\Program Files (x86)\xxxxx\xxxxx SSL VPN Client\bin\openvpn-gui.exe" --connect xxxxxxx@cxxxxxxxx.xxxxx.ovpn
  17. )
  18. ) else (
  19. rem: aqui abro el programa y con "--connect" abro la conexion
  20. "C:\Program Files (x86)\xxxxx\xxxxx SSL VPN Client\bin\openvpn-gui.exe" --connect xxxxxxx@cxxxxxxxx.xxxxx.ovpn
  21. )
  22.  
  23. (TimeOut /T 1 /NoBreak)1>&2>NUL
  24. GoTo :Loop
  25.  
  26. :CheckGUI
  27. (TaskList.exe /FI "IMAGENAME eq openvpn-gui.exe" | findstr "openvpn-gui.exe")1>&2>NUL
  28. Exit /B "%ERRORLEVEL%"
  29.  
  30. :CheckCLI
  31. (TaskList.exe /FI "IMAGENAME eq openvpn.exe" | findstr "openvpn.exe")1>&2>NUL
  32. Exit /B "%ERRORLEVEL%"
  33.  

Creo que se entiende a la perfeccion, el problema es que cuando openvpn-gui esta cerrado, ejecucto el script, abre ambos procesos sin ningun problema ! el problema es que cuando desconecto o sea cuando se ejecuta openvpn, el programa se queda ahi pasmado, como si el bucle se hubiera detenido y cuando cierro openvpn-gui el programa lo vuelve a abrir, eso esta perfecto ! pero se sigue quedando ahi pasmado como si no fuera un bucle :/

Ayudameee porfavor  :( :( :( :( :(


PSDT:

Código
  1. If "!exitCodeCountt!" EQU "0" (
  2. Echo:Conex Open
  3. ) else (
  4. rem: aqui si la conexion esta cerrada, cierrlo el programa y lo abro con la conexion.
  5. taskkill /IM openvpn-gui.exe
  6. "C:\Program Files (x86)\xxxxx\xxxx SSL VPN Client\bin\openvpn-gui.exe" --connect xxxxxxxxxxx@xxxxxxxxxx.xxxx.ovpn
  7. Echo:Conex Close
  8. )

Aqui esta el problema, entra al else solo  cuando abro el batch pero luego cuando desconecto manualmente el vpn ya no vuelve a conectar. Revise con el comando tasklist en cmd y si abre el proceso openvpn cuando abro la conexion y el proceso desaparece o  se cierra cuando cierro la conexion. Alguna explicacion?? iluminamee porfavor  :( :(

PSDT: Perdon por modificar 2 veces  ;-)


« Última modificación: 21 Septiembre 2016, 19:25 pm por llAudioslavell » En línea

llAudioslavell

Desconectado Desconectado

Mensajes: 177


Ver Perfil
Re: BATCH - Problema en bucle infinito
« Respuesta #12 en: 21 Septiembre 2016, 19:30 pm »

Perdonnn, ya logre conseguirlo  ;-)  ;-)  ;-)  ;-)  ;-)  ;-)  ;-)  ;-) Muchisimas graciass Elektroo Te amooooooo :'( :'(  :'( Graciasssssssssssssssss
En línea

Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
probando un bucle infinito... « 1 2 3 »
Bugs y Exploits
mousehack 22 15,598 Último mensaje 28 Agosto 2015, 21:46 pm
por MCKSys Argentina
El que se ha metido en un bucle infinito soy yo...
Programación C/C++
Superplay 0 3,819 Último mensaje 1 Diciembre 2010, 21:14 pm
por Superplay
Implementacion de bucle infinito
Programación C/C++
mark182 3 4,548 Último mensaje 12 Marzo 2011, 11:33 am
por Akai
Bucle infinito interumpible
Programación C/C++
soyloqbuskas 3 2,748 Último mensaje 23 Agosto 2012, 01:06 am
por 0xDani
Problema con bucle infinito
Programación C/C++
magictheory 8 3,115 Último mensaje 1 Noviembre 2016, 12:57 pm
por magictheory
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines