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

 

 


Tema destacado: Top 20 herramientas Hacking más populares de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  Detección de Conectividad WEB
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Detección de Conectividad WEB  (Leído 1,009 veces)
jjcoronas2017

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Detección de Conectividad WEB
« en: 4 Junio 2017, 17:29 pm »

Saludos, modifiqué un fragmento de código bajado de la web que me permite en VB.NET verificar el estado de conexión a Internet con un formulario pequeño, el cual envía un dato a través de puerto serial (USB) a una tarjeta Arduino UNO R3 para que actúe en consecuencia. El código lo ejecuto dentro de un timer con un intervalo de 10 minutos, pero al correrlo (lo puse en segundos para probar su funcionamiento) cada vez que transcurre el tiempo fijado, obviamente ejecuta la acción y la tarjeta actúa, ya que recibe el dato. Lo que necesito es que evalúe el estado cada cierto tiempo y solo si se altera el estado de la conexión que envíe el dato. ¿Qué me sugieren hacer? Anexo el código para que puedan ver lo que actualmente hace:
Código
  1. Imports System.Net.NetworkInformation
  2. Imports System.Threading
  3. Public Class Form1
  4.    Private Sub InitializeTimer()
  5.        Timer1.Interval = 10000
  6.        Timer1.Enabled = True
  7.    End Sub
  8.    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  9.        If My.Computer.Network.IsAvailable() Then
  10.            Try
  11.                If My.Computer.Network.Ping("8.8.8.8", 1000) Then
  12.                    Label1.Text = "Conectado."
  13.                    Label1.Location = New Point(131, 65)
  14.                    Label1.ForeColor = Color.White
  15.                    Me.BackColor = Color.Green
  16.                    SerialPort1.Open()
  17.                    SerialPort1.Write("1")
  18.                    System.Threading.Thread.Sleep(3000)
  19.                    SerialPort1.Write("2")
  20.                    SerialPort1.Close()
  21.                Else
  22.                    Label1.Text = "Error de conexión."
  23.                    Label1.Location = New Point(95, 65)
  24.                    Label1.ForeColor = Color.White
  25.                    Me.BackColor = Color.Red
  26.                    SerialPort1.Open()
  27.                    SerialPort1.Write("0")
  28.                    System.Threading.Thread.Sleep(3000)
  29.                    SerialPort1.Write("2")
  30.                    SerialPort1.Close()
  31.                End If
  32.            Catch ex As PingException
  33.                Label1.Text = "Error de conexión."
  34.                Label1.Location = New Point(95, 65)
  35.                Label1.ForeColor = Color.White
  36.                Me.BackColor = Color.Red
  37.                SerialPort1.Open()
  38.                SerialPort1.Write("0")
  39.                System.Threading.Thread.Sleep(3000)
  40.                SerialPort1.Write("2")
  41.                SerialPort1.Close()
  42.            End Try
  43.        Else
  44.            Label1.Text = "Error de conexión."
  45.            Label1.Location = New Point(95, 65)
  46.            Label1.ForeColor = Color.White
  47.            Me.BackColor = Color.Red
  48.            SerialPort1.Open()
  49.            SerialPort1.Write("0")
  50.            System.Threading.Thread.Sleep(3000)
  51.            SerialPort1.Write("2")
  52.            SerialPort1.Close()
  53.        End If
  54.    End Sub


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
No puedo conectarme a internet (Conectividad limitada o sin conectividad)
Redes
creyesone 5 6,224 Último mensaje 31 Octubre 2012, 11:09 am
por creyesone
Conectividad
Programación General
osoprog 0 761 Último mensaje 3 Febrero 2014, 18:17 pm
por osoprog
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines