dotNETportal.cz

Zdravím

Tvořím program ,který kontroluje stav sítě pomocí příkazu PING.

lbltest.Text = My.Computer.Network.Ping("10.0.0.138")

Jakmile odpojím síťový kabel,tak najednou nastane pád aplikace.Jak mám předejít pádu aplikace tak aby napsala pouze stav PING na FALSE a běh aplikace nebyl narušen?

Děkuji

toto já mám vpořádku,jen,zadej tento kód do programu,spusť ten program a odpoj síťový připojení... po pár vteřinách ti aplikace spadne z důvodu odpojení síťového připojení. Já potřebuju pomoc s tím,jak udělat,že po odpojení sítě,se aplikace nezhroutí,ale bude pokračovat dál ve funkci

Toto funguje

Toto je ta část která ukazuje stav Sítě ,v mém případě jde o komunikaci s MODEMEM. Po přiložení tvé funkce,proces funguje i po odpojení sítě a program drží. Děkuju moc za pomoc :)

Private Sub timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer1.Tick

 Function sendPing(ByVal ip As String)
        Dim reachable As Boolean = False
        Try
            reachable = My.Computer.Network.IsAvailable AndAlso _
                        My.Computer.Network.Ping(ip, 10000)
        Catch pingException As System.Net.NetworkInformation.PingException
        Catch genericNetworkException As System.Net.NetworkInformation.NetworkInformationException
            ' Fail silently and return false
        End Try
        Return reachable
    End Function

If sendPing("10.0.0.138") = True Then
            lblStatLAN.ForeColor = Color.Green
            lblStatLAN.Text = "Online"
        ElseIf sendPing("10.0.0.138") = False Then
            lblStatLAN.ForeColor = Color.Red
            lblStatLAN.Text = "Offline"
        Else
            lblStatLAN.ForeColor = Color.Black
            lblStatLAN.Text = "N/A"
        End If
End Sub