Trying to retrieve current WiFi data usage

[Calpgrmr]

Greetings,

After searching and asking ChatGPT, I have cobbled this together:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim q As New ObjectQuery("SELECT * FROM Win32_PerfFormattedData_Tcpip_NetworkInterface")
Dim s As New ManagementObjectSearcher(q)

For Each mo As ManagementObject In s.Get()
'show the instance
Debug.Print(mo.ToString())
Next

End Sub


But I get a runtime error. Does anyone see what I am doing wrong?

[jdelano]

I was able to get some information using this:

    Private Sub btnGetWifiUsage_Click(sender As Object, e As EventArgs) Handles btnGetWifiUsage.Click
        MessageBox.Show("Your Wi-Fi usage is: " & GetWifiUsage())
    End Sub

   Public Function GetWifiUsage() As String
       Dim output As String = ""
       For Each ni As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces()
           If ni.NetworkInterfaceType = NetworkInterfaceType.Wireless80211 Then
               Dim stats As IPv4InterfaceStatistics = ni.GetIPv4Statistics()
               If stats.BytesReceived > 0 Then
                   output += $"Bytes received : {stats.BytesReceived}{vbCrLf}"
                   output += $"Bytes sent: {stats.BytesSent}{vbCrLf}"
               End If
           End If
       Next

       Return output
   End Function

You need to import

Imports System.Net.NetworkInformation

Maybe this helps you?

[Calpgrmr]

Thank you jdelano !

I'll give it a try

[Calpgrmr]

GetWifiUsage() works great !

Thank you so much.

Cal

[jdelano]

Fantastic, glad it worked for you. You're welcome, happy to lend a hand.