Feedback

Netzwerkverfügbarkeit überwachen

VB - Volker Steitz Dezember 22, 2006
4 Ratings 4/5

Sprache: VB

Müssen Sie für Ihre Anwendung die Netzwerkverfügbarkeit überwachen, kann dieser Code dafür sehr hilfreich sein. Gehen wir von folgendem aus: Die Anwendung heisst: MyApplication Die Anwendung hat 2 Icons: NETZ StopNoNet Die Anwendung hat ein Textlabel mit Namen: networkAvailabilityTextLabel Das Hauptformular der Anwendung heisst: Mainform Der Nachfolgende code muss in die Application Events Bei jedem Wechsel der netzwerkverfügbarkeit wird dies gemeldet – das heisst, das Icon wechselt und das Label_Steuerelememt wechselt seinen Text 
    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
    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
Abgelegt unter Lan Networkavailability Netzwerk netzwerkverfügbarkeit

Alte URL: /snippet/netzwerkverfuegbarkeit-ueberwachen/391