Skip to main content

AccessTr.neT


Wireless Sinyal Seviyesi Bilgisini Almak

Wireless Sinyal Seviyesi Bilgisini Almak

#1
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
PROGRAMMER MEHMET
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da