Netzwerk Informationen Auslesen

  • VB.NET

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

    Netzwerk Informationen Auslesen

    Hallo,

    Zurzeit lade ich Download/S und Upload/S so:

    VB.NET-Quellcode

    1. Public Class NetworkMeter
    2. Private Down As PerformanceCounter
    3. Private Up As PerformanceCounter
    6. Private Sub NetworkMeter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. Down = New PerformanceCounter
    8. With Down
    9. .CategoryName = "Netzwerkadapter"
    10. .InstanceName = "Controller der Familie Realtek PCIe GBE"
    11. .CounterName = "Empfangene Bytes/s"
    12. End With
    14. Up = New PerformanceCounter
    15. With Up
    16. .CategoryName = "Netzwerkadapter"
    17. .InstanceName = "Controller der Familie Realtek PCIe GBE"
    18. .CounterName = "Bytes gesendet/s"
    19. End With
    20. End Sub
    23. rivate Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    24. Timer1.interval = 1000
    26. Dim DownByte As Long = CDec(Down.NextValue)
    28. If DownByte >= 0 And DownByte <= 1024 Then
    29. Label6.Text = DownByte & " B/s"
    30. Else
    31. If DownByte >= 1025 And DownByte <= 1024 ^ 2 Then
    32. Label6.Text = Math.Round(DownByte / 1024, 1) & " KB/s"
    33. Else
    34. If DownByte >= 1024 ^ 2 + 1 And DownByte <= 1024 ^ 3 Then
    35. Label6.Text = Math.Round(DownByte / 1024 ^ 2, 2) & " MB/s"
    36. Else
    38. End If
    39. End If
    40. End If
    42. Dim UpByte As Long = CDec(Up.NextValue)
    44. If UpByte >= 0 And UpByte <= 1024 Then
    45. Label9.Text = UpByte & " B/s"
    46. Else
    47. If UpByte >= 1025 And UpByte <= 1024 ^ 2 Then
    48. Label9.Text = Math.Round(UpByte / 1024, 1) & " KB/s"
    49. Else
    50. If UpByte >= 1024 ^ 2 + 1 And UpByte <= 1024 ^ 3 Then
    51. Label9.Text = Math.Round(UpByte / 1024 ^ 2, 2) & " MB/s"
    52. Else
    54. End If
    55. End If
    56. End If
    57. End Sub



    .InstanceName = "Controller der Familie Realtek PCIe GBE"
    kann ich so setzten weil ich im Performace Counter diese Information Manuel ausgelesen hab. Doch wie kann ich per Code diese Information auslesen? da es ja bei jedem anders sein kann.


    außerdem, wie lese ich aus wie ich verbunden bin, also per LAN, WLAN, 3G oder what ever?
    und wie lese ich aus wie das Netzwerk heißt, also z. Bsp.: Netzwerk1024 oder Heimnetzwerk oder Bumblebee oder whatever...


    vielen dank schon mal im voraus ,-)

    Hey,

    auslesen kannste das so in der Art:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    4. Dim pC As New PerformanceCounterCategory("Netzwerkschnittstelle")
    5. Dim instances() As String = pC.GetInstanceNames()
    7. For Each s As String In instances
    8. MessageBox.Show(s)
    9. Next
    10. End Sub
    11. End Class


    Denk auch daran, solltest Du Dein Programm weitergeben, dass ein auf englisch eingestelltes Windows auch die englischen Bezeichnungen für die PerformanceCounter verwendet...
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o