1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
Private Sub GetWifiInfo()
ListView.Items.Clear()
Dim query As String = "SELECT * FROM MSNDis_80211_BSSIList WHERE Active='True'"
Dim searcher As Management.ManagementObjectSearcher = New Management.ManagementObjectSearcher("root/WMI", query)
Dim moc As Management.ManagementObjectCollection = searcher.Get()
Dim moe As Management.ManagementObjectCollection.ManagementObjectEnumerator = moc.GetEnumerator()
moe.MoveNext()
Dim Ndis80211BSSIList() As Management.ManagementBaseObject = CType(moe.Current.Properties("Ndis80211BSSIList").Value, Management.ManagementBaseObject())
Dim nbrAP As Integer = moe.Current.Properties("NumberOfItems").Value
Dim i As Integer = 0
' ********* datas issues de Ndis80211BSSIList *********
Dim Config As Management.ManagementBaseObject ' donnée issue de Ndis80211BSSIList
Dim ATIMWindow As String 'donnée issue de Config
Dim BeaconPeriod As String 'donnée issue de Config
Dim DSConfig As String 'donnée issue de Config
Dim FHConfig As Management.ManagementBaseObject 'donnée issue de Config
Dim DwellTime As String 'donnée issue de FHConfig
Dim FHLenght As String 'donnée issue de FHConfig
Dim HopPattern As String 'donnée issue de FHConfig
Dim HopSet As String 'donnée issue de FHConfig
Dim InfraMode As Management.ManagementBaseObject
Dim NetInfra As String 'donnée issue de InfraMode
Dim NetInUse As Management.ManagementBaseObject
Dim NetworkType As String 'donnée issue de NetInUse
Dim MacAdress() As Byte ' adresse Mac BSSID
Dim Privacy As Boolean ' Open ou non
Dim RSSI As String ' Niveau de signal
Dim SSID() As Byte ' Nom de l'AP
Dim SupportedRate() As Byte ' Vitesses suportées
'*****************************************************
For i = 0 To nbrAP - 1
Dim AP As Management.ManagementBaseObject
AP = Ndis80211BSSIList(i)
Config = AP.Properties("Ndis80211Configuration").Value
ATIMWindow = Config.Properties("ATIMWindow").Value
BeaconPeriod = Config.Properties("BeaconPeriod").Value
DSConfig = Config.Properties("DSConfig").Value
FHConfig = Config.Properties("FHConfig").Value
DwellTime = FHConfig.Properties("DwellTime").Value
FHLenght = FHConfig.Properties("FHLength").Value
HopPattern = FHConfig.Properties("HopPattern").Value
HopSet = FHConfig.Properties("HopSet").Value
InfraMode = AP.Properties("Ndis80211InfrastructureMode").Value
NetInfra = InfraMode.Properties("Ndis80211NetworkInfrastructure").Value
NetInUse = AP.Properties("Ndis80211NetworkTypeInUse").Value
NetworkType = NetInUse.Properties("Ndis80211NetworkType").Value
MacAdress = AP.Properties("Ndis80211MacAddress").Value
Privacy = AP.Properties("Ndis80211Privacy").Value
RSSI = AP.Properties("Ndis80211Rssi").Value
SSID = AP.Properties("Ndis80211SsId").Value
SupportedRate = AP.Properties("Ndis80211SupportedRate").Value
Dim SSID_str As String = System.Text.Encoding.ASCII.GetString(SSID)
Dim MacAdress_Str As String = ByteArray2HexaString(MacAdress)
Dim SupportedRate_str As String = ByteArray2HexaString(SupportedRate)
Dim NetInfra_str As String = GetNetInfraType(NetInfra) 'renvoi AdHoc, Infra, AUtoUnknow ou non référencé + la valeur
Dim NetwokType_str As String = GetNetworkType(NetworkType) ' renvoi DS, FH , OFDM24, OFDM5 ou non référencé + la valeur
Dim StringItem() As String = {SSID_str, MacAdress_Str, RSSI, NetInfra_str, NetwokType_str, Privacy, _
SupportedRate_str, ATIMWindow, BeaconPeriod, DSConfig, DwellTime, FHLenght, HopPattern, HopSet}
Dim LVI As New ListViewItem(StringItem)
Me.ListView.Items.Add(LVI)
Next
End Sub |
Développer une application capable lister des réseaux Wifi disponibles
Répondre avec citation
Envoyé par benoit colin
Partager