Ereigniss bei NetzwerkState änderung

Hallo, ich brauche in meinem VB Programm, wenn jemand das Netzwerkkabel entfernt. Ich will das nicht zyklisch abfragen, sondern brauche das Ereigniss, wie wenn bei Windows das Popup kommt " Kein Netzwerkabel angeschlossen"

Kann mir da jemand helfen?

Grüße Markus

[Eckard41]

Mit einem Ereignis geht das nicht. Die einzige Möglichkeit ist ein Timer, der immer wieder prüft, ob sich der Status geändert hat.
Ich hab dir mal eine Function aus diesem Tipp zusammengebastelt:

Private Function DeactiveLAN() As Boolean
  Dim objWMIService As Variant
  Dim colAdapters As Variant
  Dim objAdapter As Variant
  
  Dim i As Long
  
  ' Hier werden alle Adapter ermittelt, die nicht verbunden sind
  Set objWMIService = GetObject _
    ("winmgmts:" & "!\\.\root\cimv2")
  Set colAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapter Where NetConnectionStatus = 7")

  i = 0
  For Each objAdapter In colAdapters
    If Not IsNull(objAdapter.MACAddress) Then
      i = i + 1
    End If
  Next
  
  If i = 0 Then
    DeactiveLAN = False
  Else
    DeactiveLAN = True
  End If
  
End Function

Die musst du nur noch aus dem Timer heraus aufrufen und prüfen.