System.Management referansını ekliyoruz

 



Public Class WirelessInfo

Private _InstanceName As String

Private _Bars As Integer



Public Property InstanceName() As String

Get

Return _InstanceName

End Get

Set(ByVal value As String)

_InstanceName = value

End Set

End Property

Public Property Bars() As Integer

Get

Return _Bars

End Get

Set(ByVal value As Integer)

_Bars = value

End Set

End Property

End Class

Public Function GetWirelessSignalStrength() As List(Of WirelessInfo)



Dim searcher As ManagementObjectSearcher = Nothing

searcher = New ManagementObjectSearcher("root/WMI", "Select InstanceName,Ndis80211ReceivedSignalStrength from MSNdis_80211_ReceivedSignalStrength")

Dim adapterObjects As ManagementObjectCollection = searcher.[Get]()

Dim result As New List(Of WirelessInfo)()

For Each mo As ManagementObject In adapterObjects

Dim w As New WirelessInfo()

w.InstanceName = mo("InstanceName").ToString()

Dim intStrength As Integer = Convert.ToInt32(mo("Ndis80211ReceivedSignalStrength"))

If intStrength > -57 Then

w.Bars = 5

ElseIf intStrength > -68 Then

w.Bars = 4

ElseIf intStrength > -72 Then

w.Bars = 3

ElseIf intStrength > -80 Then

w.Bars = 2

ElseIf intStrength > -90 Then

w.Bars = 1

Else

w.Bars = 0

End If

result.Add(w)

Next

Return result

End Function