Ver originales (Francés)

Verificar acceso a Internet

Resuelto
Usuario anónimo -  
Demonnya Mensajes publicados 27 Estado Miembro -
Hola,

En VB, me gustaría saber cómo comprobar si la PC está conectada a INTERNET. Ya conozco el método My.Computer.Network.IsAvailable pero éste sólo permite probar la conexión a una RED.

Al final encontré el método InternetGetConnectedState pero no entiendo cómo usarlo.

Si puedes responderme o conoces otro método, ¡respóndeme!

¡Gracias!

2 respuestas

  1.
    Demonnya Mensajes publicados 27 Estado Miembro 20
     
    Más corto:

    '|||||||||||||||||||||||||||||||||||||||||||||||||||||
    If My.Computer.Network.IsAvailable Then
    MsgBox("Computer is connected.")
    Else
    MsgBox("Computer is not connected.")
    End If
    '|||||||||||||||||||||||||||||||||||||||||||||||||||||

    (no probado)
    1
  2. Myster62 Mensajes publicados 5 Estado Miembro
     
    Una pequeña investigación es suficiente:

    Option Explicit
    Function Connessione()
    Set WshShell = CreateObject("WScript.Shell")
    PINGFlag = Not CBool(WshShell.run("ping -n 1 www.google.it",0,True))
    If PINGFlag = True Then
    'Ping exitoso
    Connessione = True
    Else
    'Ping no exitoso
    Connessione = False
    End If
    End Function

    Dim Result : Result = Connessione()

    Source: http://www.visualbasicscript.com/VBS-to-check-for-active-internet-connection-m65481.aspx

    --
    Twibook.eu | ¡La red social hipercomunitaria! - Chat gratis - Chat sin registro - Chat para adolescentes - Chat para adultos
    -7