Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Hacer Un Ping (Solucionado)
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Hacer Un Ping (Solucionado) 
 
Hola, es la primera vez que participo del foro.

Mis conocimiento en gambas son muy limitados, ya que hace poco decidi empezar a utilizarlo,
necesito conocer un fragmento que me permita ingresar una direccion ip en un TEXT y al presionar un boton me devuelva un mensaje informando si el ping fue exitoso o no. La verdad es que no se como hacerlo, pero seria bueno encontrar la forma de que funcione.

Muchas Gracias!
 



 
mlavarini - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Hacer Un Ping 
 
He encontrado por internet este script en bash:

#!/bin/bash

# Programa que pide una direccion IP al usuario y reliza un 3 pings con interva$
read -p "Ingrese una direccion IP: " ip

if $(ping -c3 -i 2 $ip > /dev/null);then
echo "La maquina $ip esta arriba (up)"
else
echo "La maquina $ip esta abajo (down)"
fi


Pero no se como llevarlo a gambas2, seguramente con la orden Exec o Shell se debe de conseguir...
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Hacer Un Ping 
 
Ya tengo el codigo en gambas...

Tienes que crear un listbox1,TextLabel1,un textobox llamalo TextBoxIP, y un boton llamado ButtonComprobar
 pantallazo_1284109726_527815


PUBLIC SUB ButtonComprobar_Click()

  DIM hproc AS Process
  DIM buf AS String
  DIM sCads AS NEW String[]
  DIM a AS Integer
  DIM NombreArchivoSalida AS String
  DIM mensaje AS String
  
ListBox1.Clear

NombreArchivoSalida = User.home & "/print.txt"

IF Exist(NombreArchivoSalida) THEN
KILL NombreArchivoSalida
END IF

'PRINT "ping -c3 -i 2 "; TextBoxIP.Text & " >"; NombreArchivoSalida


hproc = SHELL ("ping -c3 -i 2 " & TextBoxIP.Text & " >" & NombreArchivoSalida)

DO WHILE hproc.State = Process.Running
WAIT 0.1
TextLabel1.text = "espere..."
LOOP

TextLabel1.text = "Salida generada"

sCads = Split(File.Load(NombreArchivoSalida), "\n")

FOR a = 0 TO scads.Count - 1
  ListBox1.Add(Str(sCads[a]))
  IF InStr(scads[a], "0% packet loss") <> 0 THEN
  mensaje = "No hay paquetes perdidos"
  ENDIF
 
' PRINT scads[a]
  
NEXT

IF mensaje = "No hay paquetes perdidos" THEN
Message.Info("No hay paquetes perdidos")
ELSE
Message.Info("Ha habido algun problema")
ENDIF

END
 



Lo que hace es la salida del ping de la consola te lo muestra en la pantalla.

Y hace una pequeña comprobacion, si alguna linea contine  "0% packet loss", saca un mensaje diciendo que "No  hay paquetes perdidos", en cualquier otro caso dice "Ha habido algun problema" (o bien no existe la IP, no tienes conexion a internet..)

 pantallazo_1_1284110005_431072


Aqui esta el codigo fuente Enlace
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
última edición por jsbsan el Viernes, 10 Septiembre 2010, 11:20; editado 1 vez 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Hacer Un Ping 
 
Excelente! Funciono de maravilla! muchas gracias por los aportes!
 



 
mlavarini - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Hacer Un Ping 
 
Ok, he puesto una entrada en mi blog explicando el funcionamiento del programa.

http://jsbsan.wordpress.com/2010/09/11/haciendo-ping-en-gambas/



Nota:
Si esta resuelto el problema, edita el titulo de tu primera pregunta y añade [SOLUCIONADO]
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Hacer Que La Cancion Se Reinicie Si Se Aca... ivanovichenco Aplicaciones/Fragmentos de Código 2 Lunes, 31 Enero 2011, 00:09 Ver último mensaje
ivanovichenco
No hay nuevos mensajes ¿Ping Desde Gambas? shordi General 3 Martes, 06 Octobre 2015, 20:35 Ver último mensaje
vuott
No hay nuevos mensajes Juego: SDL Ping-Pong vuott Aplicaciones/Fragmentos de Código 13 Viernes, 20 May 2016, 19:25 Ver último mensaje
Shell
No hay nuevos mensajes ¿Como Puedo Hacer Que El Programa "s... 4octavio4 General 4 Domingo, 10 Enero 2010, 16:51 Ver último mensaje
4octavio4
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario