Comment lire la carte réseau wifi

Bonjour,

Pour faire un gestionnaire de connexion 3g, je cherche à réunir les info
de la carte réseau, seulement je n'y connais rien en la matière, ah
En fait, je voudrais des infos qui sont déjà disponible dans le PC (Vista) :
systray \ icôneRéseau \ centreRéseauEtPartage \ VoirLeStatut = Etat de
connexion réseau sans fil

Alors j'ai commencé en vbNet, mais malgré le bonne volonté des
intervenant à mes questions, je n'ai pu aboutir, vous trouverez in fine mon
code vbNet (dans lequel je ne comprends pas grand chose d'ailleurs).
Je vais donc tenter de faire ceci en VB6, d'où la raison de la présente
question, à moins qu'ici quelqu'un sache terminer mon problème en vbNet ?

J'ai besoin des infos suivantes au nombre de 8 :
Etat (connecté ou pas)
Nom du PC
Nom du pseudo wisi (ssid)
adresse ip PC
Etat du trafic (montant et descendant)
Vitesse d'échange
Durée de connexion (qui peut éventuellement se calculer)
Qualité de la connexion

Je tiens à faire observer que ces infos existent déjà, et sont réunies
dans le PC sous la forme du panneau sus-cité, peut-être serait-il possible
de les repiquer à ce stade ? Toutefois, j'ai bien peur que ça fasse partie
du noyau Windows, et qu'il ne soit pas possible d'intercepter

Si possible en code uniquement, à défaut avec dll API, à défaut avec un
objet (vb6Pro)

Merci donc de vos future lumières "éclairées" :o)

Cordialement ;o)

-
Logiciels, romans, contacts : http://irolog.free.fr

Mon code vbNet
' cle3Gusb form1
Option Explicit On
Imports System.Net.NetworkInformation
Imports System.Net
Imports System.Math
' IL ME MANQUE : durée, SSID wifi, qualité de réception
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
'
' vitesse
Dim MonInterface As System.Net.NetworkInformation.NetworkInterface
For Each MonInterface In
System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
TextBox1.Text = TextBox1.Text & "Vitesse : " &
MonInterface.Speed.ToString \ 1048576 & " Mo/s" & vbCrLf
Exit For
Next
End Sub ' form1
End Class
-- fin code vbNet
_______________________
.
.