Wifi signal meter

2/5 (3 avis)

Vue 8 327 fois - Téléchargée 1 956 fois

Description

Projet pour avoir le niveau du signal wifi. On utilise le WMI de Windows et la classe NDIS_80211.
Tout est pret dans le zip, mais si vous voulez dedans il y a mon courier electronique.
C'est ma premiere contribution, pour tant soyez indulgents avec... et avec mon mauvais Francais.
Avec plaisir...

Source / Exemple :


Dans le zip.....

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Galactus13 Messages postés 332 Date d'inscription lundi 29 septembre 2008 Statut Membre Dernière intervention 10 avril 2020 1
27 mai 2013 à 12:57
Quelques bugs résiduel certes ...
Mais, sa marche, et c'est un programme somme toute: court ^^
Un Query a WMI donne ça :

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;
};
};
};
Existe un "bug" du WMI du Windows, le seconde poste aparait avec beaucoup de garbage.
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
'
'

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.