Puissance du réseau en VB

Question

Bonjour,

Je voudrais savoir si il est possible de récupérer la force du réseau, je sais comment comment savoir s'il y a du réseau ou pas avec plusieurs codes ci dessous pour ceux qui sont intéressés :

My.Computer.Network.IsAvailable = True / False
SystemInformation.Network = True / False

Mais moi je voudrais pouvoir récupérer les barres réseau :

Est-ce possible ?

---

Cordialement JonhSHEPARD

Answer 1

Bonjour JonhSHEPARD,

Ne pas oublier si la réponse te convient, de cliquer sur le triangle vert en haut à gauche de cette réponse :

Ce ne sont pas les barres que l'on récupère, mais un pourcentage, et c'est toi qui fait les barres, enfin, c'est ce que je connais.

J'ai déposé une source gratuite sur mon site qui gère tout ça (débit USB 3G), en bas du site "vbNet", c'est ici :

http://irolog.free.fr/gratuit.htm

Cordialement.

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---

Answer 2

Bonjour,

Le site est intéressant et le programme aussi mais moi je ne veut que le pourcentage et le code du programme est énorme.

---

Cordialement JonhSHEPARD

Answer 3

Bonjour suite...

Public Class form1
  Dim client As WlanClient = New WlanClient()
  Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    Dim wlanIface As WlanClient.WlanInterface = client.Interfaces(0)
    If wlanIface.InterfaceState = Wlan.WlanInterfaceState.Connected Or wlanIface.InterfaceState = Wlan.WlanInterfaceState.AdHocNetworkFormed Then
      TextBox2.Text = "Signal = " & wlanIface.CurrentConnection.wlanAssociationAttributes.wlanSignalQuality & " %" & vbCrLf
    End If
  End Sub
End Class

Si ça te va, mettre en bas aussi "proposer comme réponse" et en haut à droite mettre des points si utile...

Cordialement.

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---

Answer 4

Bonjour,

Est-ce que vous avez testé les solutions proposées ? Merci de partager avec nous les résultats, afin que d'autres personnes avec le même problème puissent profiter de cette solution.

Cordialement,

Aurel

---

Aurel BERA, Microsoft
Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

Answer 5

 

Bonjour,

Nous changeons le type de votre question à « Discussion générale » parce que vous n’êtes pas revenu avec les informations sollicitées. Si vous avez plus de temps pour réexaminer la question et fournir plus d'informations, n'hésitez pas à modifier le type du thread à « Question ». Si le problème est résolu, s’il vous plaît partagez la solution avec nous afin que la réponse puisse être trouvée et utilisée par d'autres membres de la communauté ayant des questions similaires.

Merci !

Cordialement,

Aurel

---

Aurel BERA, Microsoft
Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

Answer 6

Sa ne marche pas, regardez la capture : 

Merci de répondre.

Answer 7

Bonjour,

J'ai du mal à suivre, c'est "JonhSHEPARD" qui pose la question et c'est "Theodore Morgado qui répond ?

Il faut déclarer la DLL WLanApi.dll

Quand ça ne fonctionne pas il faut le dire...

Toutefois la source dans son entier telle que téléchargeable fonctionne

http://irolog.free.fr/gratuit.htm

En plus j'ai été grandement aidé pour faire ce programme, alors je ne maîtrise pas tous les éléments le composant, si jamais ça ne tournait pas après avoir mis la DLL, il faudrait poser à nouveau la question sur les point litigieux.

Cordialement.

---

Joseph Attila PUSZTAY
EhJoe       Logiciels       Romans       Ecrire

---