+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Dersleri (https://accesstr.net/forum-visual-basic-6-dersleri.html)
+--- Konu Başlığı: Wireless Sinyal Seviyesi Bilgisini Almak (/konu-wireless-sinyal-seviyesi-bilgisini-almak.html)
Wireless Sinyal Seviyesi Bilgisini Almak - gitarc - 04/11/2010
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