WIFI SIGNAL METER
lluismas
-
24 mai 2013 à 09:48
Galactus13 Messages postés 335 Date d'inscription lundi 29 septembre 2008 Statut Membre Dernière intervention 16 août 2023 - 27 mai 2013 à 12:57
Galactus13 Messages postés 335 Date d'inscription lundi 29 septembre 2008 Statut Membre Dernière intervention 16 août 2023 - 27 mai 2013 à 12:57
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/55167-wifi-signal-meter
https://codes-sources.commentcamarche.net/source/55167-wifi-signal-meter
27 mai 2013 à 12:57
Mais, sa marche, et c'est un programme somme toute: court ^^
24 mai 2013 à 11:32
instance of MSNdis_80211_Configuration
{
Active = TRUE;
InstanceName = "TG123g USB Wireless Adapter";
Ndis80211Config =
instance of MSNdis_80211_ConfigurationInfo
{
ATIMWindow = 0;
BeaconPeriod = 100;
ConfigLength = 32;
DSConfig = 2427000;
FHConfig =
instance of MSNdis_80211_ConfigurationFH
{
DwellTime = 0;
FHLength = 16;
HopPattern = 0;
HopSet = 0;
};
};
};
24 mai 2013 à 09:48
Je suis en train de recuperer les data par bytes.... pour voir si c'est posible de ranger bien les data de WMI.
D'autre part, pour recuperer le channel il est obligatoire de jouer avec Select Case, donc WMI donne la frequence au centre du channel.
'
Set wlan = GetObject("winmgmts:root/wmi").InstancesOf("MSNdis_80211_BSSIList", 32)
For Each nic In wlan
objecte = nic.Ndis80211BSSIList
Next nic
For Each ob In objecte
obCadena = ob.Ndis80211Configuration.DSConfig
obCadena = Mid(obCadena, 1, 4) ' on recupere les 4 premiers xifres
Next ob
'
canal = ""
Select Case obCadena
Case "2412"
canal = "1"
Case "2417"
canal = "2"
Case "2422"
canal = "3"
Case "2427"
canal = "4"
Case "2432"
canal = "5"
Case "2437"
canal = "6"
Case "2442"
canal = "7"
Case "2447"
canal = "8"
Case "2452"
canal = "9"
Case "2457"
canal = "10"
Case "2462"
canal = "11"
End SelectIf canal "" Then canal ">11"
lblCanal.Caption = canal
'
'