Stato della connessione ad Internet

[frankin0]

Ragazzi ho un problema ho creato queste righe per verificare lo stato della mia connessione se attivo o meno.

Dim conn As Boolean = My.Computer.Network.IsAvailable
If conn = True Then
   Label1.Text = "La connessione è attiva"
Else
   Label1.Text = "La connessione è assente"
End If

Ma non mi funziona, quando avvio il programma, pur se disattivo la connessione o stacco il cavo mi da sempre "La connessione è attiva", ho provato altri metodi tipo racchiudere direttamente My.Computer.Network.IsAvailable negli If ma nulla..
Ho trovato altri metodi che misurano i ping, ma lo sconsigliano, perché alcuni firewall li bloccano.
Cosa posso fare?

[oregon]

Secondo me la questione è un'altra. A prescindere dal codice, se dopo che il controllo è stato superato la connessione cade, che succede?

Ti suggerisco di evitare questo tipo di controlli e di fare quello che devi con il tuo programma, prevedendo una robusta gestione degli errori durante lo scambio dei dati.

[eziogsv]

... quando avvio il programma, pur se disattivo la connessione o stacco il cavo mi da sempre "La connessione è attiva"...

Proprietà My.Computer.Network.IsAvailable

https://msdn.microsoft.com/it-it/lib...=vs.90%29.aspx

Indica se un computer è connesso a una rete... ad una RETE, non ad Internet, e se hai un network device... hai una rete.

Per verificare la connessione ad Internet... occorre "pingare" un server internet che accetti di essere pingato (si puo verificare tramite comando ping in cmd.exe)

        Try            
            If My.Computer.Network.Ping("yahoo.it", 1000) Then
                MsgBox("Server pingato, connessione internet attiva")
            Else
                MsgBox("Ping time out.")
            End If
        Catch ex As Exception
            MsgBox("ERRORE: Connessione non disponibile.")
        End Try

Ignoro se un firewall può a sua volta bloccare un ping.... ma altre vie non ne vedo, salvo, come già ti ha detto oregon, gestire gli errori di invio/ricezione dati.

[oregon]

Sì, i ping possono essere bloccati da un firewall (proprio per questo alcuni server non possono essere pingati, bloccano l'icmp).

[eziogsv]

Si, ok, ma credo che stiamo parlando del server di destinazione del ping, non del firewall del router che invia la richiesta di ping.

Cioè, voglio dire, dopo che TU, tramite il comando "ping" in cmd.exe, hai verificato che "yahoo.it" o "google.com" accettano di essere pingati... qualsiasi richiesta di ping su quei server da parte di un qualsiasi PC connesso ad internet dovrebbe essere esaudita positivamente... o no?

[oregon]

Si, ok, ma

Tutti i firewall possono bloccare l'ICMP ... Anche il tuo PC su Internet può essere pingato da un client ...

Semmai il modo più semplice è contattare un web server "famoso" sulla porta 80. Anche se non si è sicuri al 100% in caso di fallimento.

[frankin0]

Proprietà My.Computer.Network.IsAvailable

https://msdn.microsoft.com/it-it/lib...=vs.90%29.aspx

Indica se un computer è connesso a una rete... ad una RETE, non ad Internet, e se hai un network device... hai una rete.

Per verificare la connessione ad Internet... occorre "pingare" un server internet che accetti di essere pingato (si puo verificare tramite comando ping in cmd.exe)

        Try            
            If My.Computer.Network.Ping("yahoo.it", 1000) Then
                MsgBox("Server pingato, connessione internet attiva")
            Else
                MsgBox("Ping time out.")
            End If
        Catch ex As Exception
            MsgBox("ERRORE: Connessione non disponibile.")
        End Try

Ignoro se un firewall può a sua volta bloccare un ping.... ma altre vie non ne vedo, salvo, come già ti ha detto oregon, gestire gli errori di invio/ricezione dati.

Vero.. avete perfettamente ragione, avevo una connessione di vritualBox attiva e se disattivavo solo la eternet, me la dava per connesso, ho disattivato la porta di virtualbox e questa volta me l'ha data offline, quindi non è per niente affidabile, fare con il Ping c'è la questione che qualche firewall blocchi il ping al 50%.

[oregon]

Ti ripeto il suggerimento della connessione a un sito web conosciuto su porta 80 ... ma non è comunque la soluzione ...