[VB.NET] Verificar conexión a internet

  • 3 Respuestas
  • 4598 Vistas

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

Desconectado Bloc

  • *
  • Underc0der
  • Mensajes: 18
  • Actividad:
    0%
  • Reputación 0
  • Skype: Bloc-Hack
    • Ver Perfil

[VB.NET] Verificar conexión a internet

  • en: Agosto 13, 2013, 08:08:04 pm
Código: (vbnet) [Seleccionar]
    Function Verificar_conexion_a_internet()

        'Nombre: Verificar conexión a internet
        'Autor: Bloc
        'Fecha Publicada: 13/08/2013

        If My.Computer.Network.IsAvailable = True Then
            Try
                If My.Computer.Network.Ping("www.google.com", 10) Then
                    MsgBox("Si hay conexión a internet", MsgBoxStyle.Information)
                End If
            Catch ex As Exception
                MsgBox("No hay conexión a internet", MsgBoxStyle.Critical)
            End Try
        End If
    End Function

Saludos!.
« Última modificación: Mayo 27, 2014, 09:56:51 pm por Expermicid »
Skype: Bloc-Hack

Desconectado [L]ord [R]NA

  • *
  • Underc0der
  • Mensajes: 89
  • Actividad:
    0%
  • Reputación 0
  • H-Sec
  • Skype: lordrna
  • Twitter: lordrna
    • Ver Perfil

Re:[VB.NET] Verificar conexión a internet

  • en: Agosto 20, 2013, 11:54:07 pm
El codigo no funciona... inhabilite el DNS de mi red y al ejecutar me dice que no hay conexion de internet. pero hago ping a 8.8.4.4 y veo que si tengo conexion a internet.

Desconectado CrazyKade

  • *
  • Underc0der
  • Mensajes: 186
  • Actividad:
    0%
  • Reputación 0
  • Я только знаю что ничего не знаю!
    • Ver Perfil

Re:[VB.NET] Verificar conexión a internet

  • en: Agosto 21, 2013, 11:15:42 am
El codigo no funciona... inhabilite el DNS de mi red y al ejecutar me dice que no hay conexion de internet. pero hago ping a 8.8.4.4 y veo que si tengo conexion a internet.

Jojojoo, muy buen detalle el aportado por [L]ord [R]NA, ademas tiene esa sutileza que me encanta!

Querido Bloc, es cierto que si no tienes DNS que resuelva un domino tu programa fallará. Por tanto reemplaza esta linea:

Código: (vbnet) [Seleccionar]
If My.Computer.Network.Ping("www.google.com", 10) Then
Por esta otra:

Código: (vbnet) [Seleccionar]
If My.Computer.Network.Ping("8.8.8.8", 10) Then
Saludos!

Desconectado [L]ord [R]NA

  • *
  • Underc0der
  • Mensajes: 89
  • Actividad:
    0%
  • Reputación 0
  • H-Sec
  • Skype: lordrna
  • Twitter: lordrna
    • Ver Perfil

Re:[VB.NET] Verificar conexión a internet

  • en: Agosto 21, 2013, 11:19:48 pm
Código: (c#) [Seleccionar]
private void Test_Connection()
{
    System.Net.NetworkInformation.Ping ping = new System.Net.NetworkInformation.Ping();
    System.Net.NetworkInformation.PingReply reply = ping.Send("1.1.1.1");
    MessageBox.Show(reply.Status.ToString()!="Success"?
                    "No se tiene conexion a Internet":
                    "Se tiene conexion a Internet");           
        }
« Última modificación: Agosto 21, 2013, 11:24:46 pm por [L]ord [R]NA »