Wireless Sinyal Seviyesi Bilgisini Almak


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: ByClxon    1 Yorum    94 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 12.05.2016, 13:49:10 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorum Sayısı:1,020 Konu Sayısı:444 Üyelik Tarihi:07.01.2016 Rep Puanı: 664

System.Management referansını ekliyoruz 


PublicClass WirelessInfo
Private _InstanceName AsString
Private _Bars AsInteger

PublicProperty InstanceName() AsString
Get
Return _InstanceName
EndGet
Set(ByVal value AsString)
_InstanceName = value
EndSet
EndProperty
PublicProperty Bars() AsInteger
Get
Return _Bars
EndGet
Set(ByVal value AsInteger)
_Bars = value
EndSet
EndProperty
EndClass
PublicFunction 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 AsNew List(Of WirelessInfo)()
ForEach mo As ManagementObject In adapterObjects
Dim w AsNew WirelessInfo()
w.InstanceName = mo("InstanceName").ToString()
Dim intStrength AsInteger = 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
EndIf
result.Add(w)
Next
Return result
EndFunction

Kullanıcı İmzası
#fenerbahçeA.A.K.
İmage
İletişim İçin Facebook;

linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



İmage






 

         

Paylaşım Tarihi: 26.08.2016, 15:02:54 #2
berkaysensiz Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:37 Konu Sayısı:3 Üyelik Tarihi:18.07.2016 Rep Puanı: 0

şunları biraz bölümlü bölümlü anlatsanız. nereye ney yazacağımı bilmiyorum.







Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir