Netzwerkverfügbarkeit überwachen

1
2
3
4
5
6
7
8
9
10
11
12
13
14

    Private Sub MyApplication_NetworkAvailabilityChanged(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) Handles Me.NetworkAvailabilityChanged
        Try
            If e.IsNetworkAvailable = True Then

                My.Forms.Mainform.ToolStripSplitButton1.Image = Global.WindowsApplication1.My.Resources.Resources.NETZ.ToBitmap
                My.Forms.Mainform.networkAvailabilityTextLabel.Text = "   Network Operations Status: Network available"
            Else
                My.Forms.Mainform.ToolStripSplitButton1.Image = Global.My.Resources.My.Resources.Resources.StopNoNet.ToBitmap
                My.Forms.Mainform.networkAvailabilityTextLabel.Text = "   Network Operations Status: Network NOT available"
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub