Discussion :

[Ehjoe]

Bonjour,

(Je débute en vbNet), je cherche à récupérer les info du panneau "d'état de connexion du réseau sans fil", que l'on a en cliquant dans le systray sur l'icône de connexion à Internet.
Les infos sont donc déjà regroupées par le système, mais a priori nul ne sait comment aller les chercher (si c'est possibile), alors je tente de récupérer ces infos par le code, mais je n'arrive pas à toutes les récupérer, d'où 4 questions in fine; voici ce que j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Option Explicit On
Imports System.Net.NetworkInformation
Imports System.Net
Imports System.Math
 
Public Class Form1
  Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Statistics As IPv4InterfaceStatistics
    Dim varHostEntry As IPHostEntry
    Dim t1
    Dim p1 As Double
    Dim p2 As Double
    '
    TextBox1.Text = ""
    t1 = ""
    '
    ' connexion
    If My.Computer.Network.IsAvailable Then TextBox1.Text = TextBox1.Text & "Etat     : Connecté" & vbCrLf
    If Not My.Computer.Network.IsAvailable Then TextBox1.Text = TextBox1.Text & "Etat     : Déconnecté" & vbCrLf
    '
    TextBox1.Text = TextBox1.Text & "Computer : " & Environment.UserName & vbCrLf
    ' IP
    varHostEntry = Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)
    For Each varAnAddress In varHostEntry.AddressList
      t1 = varAnAddress.ToString
    Next
    TextBox1.Text = TextBox1.Text & "Adr I.P  : " & t1 & vbCrLf
 
    ' Trafic
    For Each NetInterface As NetworkInterface In System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
      If NetInterface.NetworkInterfaceType = NetworkInterfaceType.Wireless80211 Then
        Statistics = NetInterface.GetIPv4Statistics
        p1 = System.Math.Round(Statistics.BytesSent / 1048576, 2)
        p2 = Round(Statistics.BytesReceived / 1048576, 2)
        TextBox1.Text = TextBox1.Text & "Trafic   : " & Format(Round(p1 + p2, 3), "0.000") & " Mo" & vbCrLf
      End If
    Next
    '
    'Dim monInterface As NetworkInterface
    'Dim r As Long
    'r = monInterface.Speed
    'TextBox1.Text = TextBox1.Text & "Vitesse  : " & r
  End Sub ' form1
End Class

4 QUESTIONS :

-1/4-
Dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
varHostEntry = Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)

Ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dns.GetHostByName

Il me dit que c'est obsolète, par quoi puis-je le remplacer ?

-2/4-
Il me manque la vitesse de connexion, j'ai un début de code, mais ça ne marche pas, il doit en manquer des morceaux, voici ce que j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    'Dim monInterface As NetworkInterface
    'Dim r As Long
    'r = monInterface.Speed
    'TextBox1.Text = TextBox1.Text & "Vitesse  : " & r

Et il dit :


"La référence d'objet n'est pas définie … une instance d'un objet."


Si vous pouvez me dire comment résoudre ce problème ???


-3/4-
En avant dernier il me manque SSID (le nom du réseau wifi), comment puis-je faire ???


-4/4-
En dernier je cherche à récupérer la qualité de connexion maxi 5 à mini 0, comment puis-je ?

Merci beaucoup, cordialement.

Joe.

[Ogotcha]

Concernant la question 2, il te faut instancier ton objet par le constructeur New.

Voici un petit bout de code qui je pense pourras d'aider quelques peu (j'espère)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim mesInterfaces() As NetworkInformation.NetworkInterface
mesInterfaces = NetworkInformation.NetworkInterface.GetAllNetworkInterfaces
 
        For Each MonInterface As NetworkInformation.NetworkInterface In mesInterfaces
            If MonInterface.NetworkInterfaceType <> NetworkInformation.NetworkInterfaceType.Loopback Then
                ' Affichage de l'adresse IP de l'interface
                For Each adresseIp As NetworkInformation.IPAddressInformation In MonInterface.GetIPProperties.UnicastAddresses
                    TxtResult.Text &= MonInterface.Name & " : " & adresseIp.Address.ToString() & vbNewLine
                Next
            End If
        Next

Ensuite voici un lien qui te donnera des informations sur NetworkInterface MSDN

[Ehjoe]

Concernant la question 2

Bonjour, merci, mais la question 2 c'est la vitesse, or ton code me donne l'IP que j'ai déjà...

Même si je mets "new" ça ne donne rien...

Je vais voir ton lien, merci encore.

Joe.

[Ogotcha]

Oui regarde le lien car l'exemple que je t'ai mis permet de boucler sur toutes tes interfaces réseau donc tu peux savoir laquelle est de type "réseau sans fil"

en testant par exemple ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonInterface.NetworkInterfaceType = NetworkInformation.NetworkInterfaceType.Wireless80211

Ensuite pour récupérer la vitesse tu as ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonInterface.Speed

Etc....

Le lien MSDN que je t'ai passé devrait de donner pas mal d'informations

[Ehjoe]

Bonjour,

Voici le code, mais ça ne marche pas (moi débutant), il doit manquer un petit rien...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Option Explicit On
Imports System.Net.NetworkInformation
Imports System.Net
Imports System.Math
 
Public Class Form1
 
  Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    MonInterface.NetworkInterfaceType = NetworkInformation.NetworkInterfaceType.Wireless80211
    monInterface.Speed()
 
  End Sub ' form1
 
End Class

Il dit de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonInterface

Le nom "MonInterface" n'est pas déclaré


Oui mais... comment faire ?

Merci, cordialement.

Joe.

[Ogotcha]

Regarde mon code précédemment posté.

Je déclare une première chose la variables "MesInterfaces" qui listes les interfaces réseau du pc ensuite je boucle sur toute ces interfaces avec la boucle For Each qui au début de celle-ci utilise une variable nommée "MonInterface".