Netzwerkeinstellungen anzeigen und evtl. ändern können

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von gfcwfzkm.

    Netzwerkeinstellungen anzeigen und evtl. ändern können

    Hallo,
    ich möchte ein kleines "Progrämmchen" haben, das mir alle aktivierten Netzwerkadapter anzeigt und auf Klick deren Einstellungen. (Evtl. mit der Möglichkeit diese dann auch zu ändern, aber hat keine Priorität).


    Mein Quellcode sieht im Moment so aus:

    VB.NET-Quellcode

    1. Public Class Netzwerkeinstellungen
    3. Dim CurrentNet As String
    4. Dim adapter As Net.NetworkInformation.NetworkInterface
    5. Dim adapters As Net.NetworkInformation.NetworkInterface()
    7. Private Property txtNetInfo As Object
    9. Public Sub DisplayDnsConfiguration()
    10. adapters = Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
    12. For Each Me.adapter In adapters
    13. Dim properties As Net.NetworkInformation.IPInterfaceProperties = adapter.GetIPProperties
    15. Netzwerkadapter.Items.Add(adapter.Name)
    16. Next adapter
    17. End Sub
    19. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    20. DisplayDnsConfiguration()
    21. End Sub
    23. Private Sub Netzwerkadapter_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Netzwerkadapter.SelectedIndexChanged
    26. For Each Me.adapter In adapters
    27. Dim properties As Net.NetworkInformation.IPInterfaceProperties = adapter.GetIPProperties()
    29. If adapter.Description = Netzwerkadapter.Text Then
    30. Try
    31. txtNetInfo.Text += adapter.Description & vbNewLine & _
    32. "----->DEVICE INFORMATIONS<----- " & vbNewLine & _
    33. "-->Type........................ : " & adapter.Name & vbNewLine & _
    34. "-->Speed....................... : " & (adapter.Speed / 1000000) & " MBit/s" & vbNewLine & _
    35. "-->DNS suffix.................. : " & properties.DnsSuffix & vbNewLine & _
    36. "-->Gateway Adress.............. : " & properties.GatewayAddresses(0).Address.ToString() & vbNewLine & _
    37. "-->DHCP Server Adress.......... : " & properties.DhcpServerAddresses(0).ToString() & vbNewLine & _
    38. "-->DNS enabled ................ : " & properties.IsDnsEnabled & vbNewLine & _
    39. "-->Dynamically configured DNS . : " & properties.IsDynamicDnsEnabled & vbNewLine & _
    40. "-->Receive Only................ : " & adapter.IsReceiveOnly & vbNewLine & _
    41. "-->HashCode.................... : " & adapter.GetHashCode.ToString & vbNewLine & _
    42. "-->ID.......................... : " & adapter.Id & vbNewLine & _
    43. "---->CONNECTION INFORMATIONS<-- " & vbNewLine & _
    44. "-->Supports IPv6............... : " & adapter.Supports(Net.NetworkInformation.NetworkInterfaceComponent.IPv6) & vbNewLine & _
    45. "-->Supports IPv4............... : " & adapter.Supports(Net.NetworkInformation.NetworkInterfaceComponent.IPv4) & vbNewLine & _
    46. "-->DHCP-Enabled................ : " & adapter.GetIPProperties.GetIPv4Properties.IsDhcpEnabled.ToString & vbNewLine & _
    47. "-->MAC-Adress.................. : " & adapter.GetPhysicalAddress.ToString & vbNewLine & _
    48. "-->IP-Adress................... : " & adapter.GetIPProperties.GatewayAddresses.Item(0).Address.ToString
    52. CurrentNet = adapter.Description
    53. Catch ex As Exception
    54. End Try
    56. End If
    57. Next
    58. End Sub
    59. End Class




    Die Form dazu:




    Die aktivierten Netzwerkadapter bekomm ich angezeigt, wenn ich jetzt auf "Einstellungen anzeigen" klicke, möchte ich diese dann auch zu sehen bekommen. Das bekomme ich aber leider nicht hin. Hoffe Ihr könnt mir dabei helfen :P

    Liebe Grüße

    ich kann dir weiterhelfen:

    VB.NET-Quellcode

    1. Imports System.Net.NetworkInformation
    2. Public Class Form3
    4. Dim CurrentNet As String 'Das aktuell ausgewählte Netzwerk
    5. Dim lastUp As Long 'Hochgeladene Bytes
    6. Dim lastDown As Long 'Heruntergeladene Bytes
    7. Dim adapter As NetworkInterface 'Eine Netzwerkadapter Instanz
    8. Dim adapters As NetworkInterface() 'Array mit allen Netzwerkadaptern
    10. Public Sub DisplayDnsConfiguration()
    11. adapters = NetworkInterface.GetAllNetworkInterfaces()
    13. 'Alle Adapter in der Liste durchlaufen
    14. For Each Me.adapter In adapters
    15. Dim properties As IPInterfaceProperties = adapter.GetIPProperties()
    17. lstNetworks.Items.Add(adapter.Description)
    18. Next adapter
    19. End Sub
    20. Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    21. DisplayDnsConfiguration()
    22. lstNetworks.Show()
    23. End Sub
    24. Private Sub lstNetworks_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstNetworks.SelectedIndexChanged
    25. txtNetInfo.Text = ""
    27. For Each Me.adapter In adapters
    28. Dim properties As IPInterfaceProperties = adapter.GetIPProperties()
    30. If adapter.Description = lstNetworks.Text Then
    31. lstNetworks.Visible = False
    32. txtNetInfo.Visible = False
    33. txtNetInfo.Visible = True
    34. aaaa.Visible = True
    35. Label2.Visible = True
    36. Label1.Visible = False
    37. Label3.Visible = True
    38. Label4.Visible = True
    39. lblDown.Visible = True
    40. lblNetwork.Visible = True
    41. lblUp.Visible = True
    42. Try
    43. txtNetInfo.Text += adapter.Description & vbNewLine & _
    44. "----->DEVICE INFORMATIONS<----- " & vbNewLine & _
    45. "-->Type........................ : " & adapter.Name & vbNewLine & _
    46. "-->Speed....................... : " & (adapter.Speed / 1000000) & " MBit/s" & vbNewLine & _
    47. "-->DNS suffix.................. : " & properties.DnsSuffix & vbNewLine & _
    48. "-->Gateway Adress.............. : " & properties.GatewayAddresses(0).Address.ToString() & vbNewLine & _
    49. "-->DHCP Server Adress.......... : " & properties.DhcpServerAddresses(0).ToString() & vbNewLine & _
    50. "-->DNS enabled ................ : " & properties.IsDnsEnabled & vbNewLine & _
    51. "-->Dynamically configured DNS . : " & properties.IsDynamicDnsEnabled & vbNewLine & _
    52. "-->Receive Only................ : " & adapter.IsReceiveOnly & vbNewLine & _
    53. "-->HashCode.................... : " & adapter.GetHashCode.ToString & vbNewLine & _
    54. "-->ID.......................... : " & adapter.Id & vbNewLine & _
    55. "---->CONNECTION INFORMATIONS<-- " & vbNewLine & _
    56. "-->Bytes Send.................. : " & adapter.GetIPv4Statistics.BytesSent & "(" & FormatNumber(((adapter.GetIPv4Statistics.BytesSent / 1024) / 1024), 3) & " MB)" & vbNewLine & _
    57. "-->Bytes Received.............. : " & adapter.GetIPv4Statistics.BytesReceived & "(" & FormatNumber(((adapter.GetIPv4Statistics.BytesReceived / 1024) / 1024), 3) & " MB)" & vbNewLine & _
    58. "-->Incoming Pakets with Errors. : " & adapter.GetIPv4Statistics.IncomingPacketsWithErrors & vbNewLine & _
    59. "-->Outgoing Pakets with Errors. : " & adapter.GetIPv4Statistics.OutgoingPacketsWithErrors & vbNewLine & _
    60. "-->Incoming Pakets Discarded... : " & adapter.GetIPv4Statistics.IncomingPacketsDiscarded & vbNewLine & _
    61. "-->Outgoing Pakets Discarded... : " & adapter.GetIPv4Statistics.OutgoingPacketsDiscarded & vbNewLine & _
    62. "-->Unicast Pakets Received..... : " & adapter.GetIPv4Statistics.UnicastPacketsReceived & vbNewLine & _
    63. "-->unicast Pakets Sent......... : " & adapter.GetIPv4Statistics.UnicastPacketsSent & vbNewLine & _
    64. "-->Supports IPv6............... : " & adapter.Supports(NetworkInterfaceComponent.IPv6) & vbNewLine & _
    65. "-->Supports IPv4............... : " & adapter.Supports(NetworkInterfaceComponent.IPv4) & vbNewLine & _
    66. "-->DHCP-Enabled................ : " & adapter.GetIPProperties.GetIPv4Properties.IsDhcpEnabled.ToString & vbNewLine & _
    67. "-->MAC-Adress.................. : " & adapter.GetPhysicalAddress.ToString & vbNewLine & _
    68. "-->IP-Adress................... : " & adapter.GetIPProperties.GatewayAddresses.Item(0).Address.ToString
    71. tmrSek.Enabled = True
    72. CurrentNet = adapter.Description
    73. lastUp = adapter.GetIPv4Statistics.BytesSent
    74. lastDown = adapter.GetIPv4Statistics.BytesReceived
    75. Catch ex As Exception
    76. 'Timer1.Enabled = False
    77. End Try
    79. End If
    80. Next
    81. If txtNetInfo.Text = "" Then
    82. txtNetInfo.Visible = True
    83. txtNetInfo.Visible = False
    84. aaaa.Visible = False
    85. Label2.Visible = False
    86. Label1.Visible = True
    87. Label3.Visible = False
    88. lstNetworks.Visible = True
    89. Label4.Visible = False
    90. lblDown.Visible = False
    91. lblNetwork.Visible = False
    92. lblUp.Visible = False
    93. MsgBox("Beim Auslesen der Netzwerk Informationen ist ein Fehler aufgetreten, möglicherweise ist dies ein Virtuelles Netzwerk." & vbNewLine & vbNewLine & "Bitte Wählen Sie ein anderen Netzwerkadapter!")
    94. End If
    95. End Sub
    97. Private Sub tmrSek_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrSek.Tick
    98. For Each Me.adapter In adapters
    99. If adapter.Description = lstNetworks.Text Then
    100. Dim properties As IPInterfaceProperties = adapter.GetIPProperties()
    102. Dim currentUp As Long = adapter.GetIPv4Statistics.BytesSent
    103. Dim currentDown As Long = adapter.GetIPv4Statistics.BytesReceived
    105. lblNetwork.Text = lstNetworks.Text
    106. lblUp.Text = FormatNumber(((currentUp / 1024) - (lastUp / 1024)), 2) & " KB/s"
    107. lblDown.Text = FormatNumber(((currentDown / 1024) - (lastDown / 1024)), 2) & " KB/s"
    109. lastUp = adapter.GetIPv4Statistics.BytesSent
    110. lastDown = adapter.GetIPv4Statistics.BytesReceived
    111. End If
    112. Next
    113. End Sub
    114. End Class


    Hoffe, das ich dir Helfen konnte ;)

    mfg

Facebook
Telefonspende