zulme karşı mukavemet!
Süper Üye
[font='Titillium Web', sans-serif]System.Management referansını ekliyoruz [/FONT]
[font='Titillium Web', sans-serif]PublicClass WirelessInfo[/FONT]
[font='Titillium Web', sans-serif]Private _InstanceName AsString[/FONT]
[font='Titillium Web', sans-serif]Private _Bars AsInteger[/FONT]
[font='Titillium Web', sans-serif]PublicProperty InstanceName() AsString[/FONT]
[font='Titillium Web', sans-serif]Get[/FONT]
[font='Titillium Web', sans-serif]Return _InstanceName[/FONT]
[font='Titillium Web', sans-serif]EndGet[/FONT]
[font='Titillium Web', sans-serif]Set(ByVal value AsString)[/FONT]
[font='Titillium Web', sans-serif]_InstanceName = value[/FONT]
[font='Titillium Web', sans-serif]EndSet[/FONT]
[font='Titillium Web', sans-serif]EndProperty[/FONT]
[font='Titillium Web', sans-serif]PublicProperty Bars() AsInteger[/FONT]
[font='Titillium Web', sans-serif]Get[/FONT]
[font='Titillium Web', sans-serif]Return _Bars[/FONT]
[font='Titillium Web', sans-serif]EndGet[/FONT]
[font='Titillium Web', sans-serif]Set(ByVal value AsInteger)[/FONT]
[font='Titillium Web', sans-serif]_Bars = value[/FONT]
[font='Titillium Web', sans-serif]EndSet[/FONT]
[font='Titillium Web', sans-serif]EndProperty[/FONT]
[font='Titillium Web', sans-serif]EndClass[/FONT]
[font='Titillium Web', sans-serif]PublicFunction GetWirelessSignalStrength() As List(Of WirelessInfo)[/FONT]
[font='Titillium Web', sans-serif]Dim searcher As ManagementObjectSearcher = Nothing[/FONT]
[font='Titillium Web', sans-serif]searcher = New ManagementObjectSearcher("root/WMI", "Select InstanceName,Ndis80211ReceivedSignalStrength from MSNdis_80211_ReceivedSignalStrength")[/FONT]
[font='Titillium Web', sans-serif]Dim adapterObjects As ManagementObjectCollection = searcher.[Get]()[/FONT]
[font='Titillium Web', sans-serif]Dim result AsNew List(Of WirelessInfo)()[/FONT]
[font='Titillium Web', sans-serif]ForEach mo As ManagementObject In adapterObjects[/FONT]
[font='Titillium Web', sans-serif]Dim w AsNew WirelessInfo()[/FONT]
[font='Titillium Web', sans-serif]w.InstanceName = mo("InstanceName").ToString()[/FONT]
[font='Titillium Web', sans-serif]Dim intStrength AsInteger = Convert.ToInt32(mo("Ndis80211ReceivedSignalStrength"))[/FONT]
[font='Titillium Web', sans-serif]If intStrength > -57 Then[/FONT]
[font='Titillium Web', sans-serif]w.Bars = 5[/FONT]
[font='Titillium Web', sans-serif]ElseIf intStrength > -68 Then[/FONT]
[font='Titillium Web', sans-serif]w.Bars = 4[/FONT]
[font='Titillium Web', sans-serif]ElseIf intStrength > -72 Then[/FONT]
[font='Titillium Web', sans-serif]w.Bars = 3[/FONT]
[font='Titillium Web', sans-serif]ElseIf intStrength > -80 Then[/FONT]
[font='Titillium Web', sans-serif]w.Bars = 2[/FONT]
[font='Titillium Web', sans-serif]ElseIf intStrength > -90 Then[/FONT]
[font='Titillium Web', sans-serif]w.Bars = 1[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]w.Bars = 0[/FONT]
[font='Titillium Web', sans-serif]EndIf[/FONT]
[font='Titillium Web', sans-serif]result.Add(w)[/FONT]
[font='Titillium Web', sans-serif]Next[/FONT]
[font='Titillium Web', sans-serif]Return result[/FONT]
[font='Titillium Web', sans-serif]EndFunction[/FONT]
