vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück
Rubrik: HTML/Internet/Netzwerk · Netzwerk   |   VB-Versionen: VB607.09.05
LAN-Verbindungen im Systray anzeigen

Alle aktivierten LAN-Verbindungen ermitteln und im Systray anzeigen

Autor:   Michael GosseBewertung:     [ Jetzt bewerten ]Views:  11.631 
www.ech-o-lot.deSystem:  WinXP, Win8, Win10 Beispielprojekt auf CD 

Mit nachstehendem Code wird für alle Netzwerkkarten, die connected sind, ein Registry-Eintrag gesetzt, damit die LAN-Verbindung als Sysmbol im Info Bereich der Taskbar (SysTray) angezeigt wird. Sowohl das Ermitteln der Verbindungen, als auch das Schreiben der Registry-Einträge erfolgt über das WMI-Objekt.

Private Sub ShowLANInSysTray()
  ' Deklaration der Variabelen
  Dim strMACaddress(9)
  Dim strSettingID(9)
  Dim strComputer As String
  Dim objWMIService As Object
  Dim colAdapters As Object
  Dim objAdapter As Object
  Dim i As Long
  Dim colAdapters2 As Object
  Dim strRegKey As String
  Dim strRegKey1 As String
  Dim strRegKey2 As String
  Dim strKeyPath As String
  Dim oReg  As Object
  Dim strValueName As String
  Dim dwValue As Long
 
  Const HKEY_LOCAL_MACHINE = &H80000002
 
  strComputer = "."
 
  ' Hier wird überprüft, welche Netzwerkkarte connected ist
  Set objWMIService = GetObject("winmgmts:" & "!\\" & _
    strComputer & "\root\cimv2")
  Set colAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapter Where NetConnectionStatus = 2")
 
  ' Für den Netzwerkadapter, der connected ist, wird die MAC Adresse
  ' in strMACaddress(i) geschrieben
  i = 0
  For Each objAdapter In colAdapters
    If Not IsNull(objAdapter.MACAddress) Then
      Debug.Print "MAC Adresse: " & objAdapter.MACAddress
      strMACaddress(i) = objAdapter.MACAddress
      i = i + 1
    End If
  Next
 
  For i = 0 To UBound(strMACaddress)
    Debug.Print strMACaddress(i)
  Next
 
  ' Hier wird die SettingID(i) der Netzwerkkarte herausgefunden,
  ' die conncted ist
  Set objWMIService = GetObject _
    ("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
 
  Set colAdapters2 = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = TRUE")
 
  For Each objAdapter In colAdapters2
    For i = 0 To UBound(strMACaddress)
      If objAdapter.MACAddress = strMACaddress(i) Then
        Debug.Print "test:" & strMACaddress(i)
        strSettingID(i) = objAdapter.SettingID
 
        Debug.Print "SettingID:" & strSettingID(i)
 
        ' Hier wird der Registry-Key zusammengebaut, der gesetzt werden soll
        strRegKey = "SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\"
        strRegKey1 = strRegKey & strSettingID(i)
        strRegKey2 = "\Connection"
        strKeyPath = strRegKey1 & strRegKey2
 
        ' Ausgabe des Registry-Keys
        Debug.Print "RegKey1:" & strKeyPath
 
        ' Setzen von Variabelen
        Set oReg = GetObject("winmgmts:" & "!\\" & strComputer & "\root\default:StdRegProv")
        strValueName = "ShowIcon"
        dwValue = 1
 
        ' Hier wird der Wert (Reg DWORD) in die Registry geschrieben
        oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
      End If
    Next i
  Next
End Sub

Dieser Tipp wurde bereits 11.631 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2020 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel