Bonjour Jo,
Merci, ?a avance, y a qu'un truc qui ne marche pas, j'ai fait :
Imports System.Net
Public Class Form1
' - SSID nom r,seau wifi + ' - Vitesse de d,bit
Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Dim t(9) As String
Dim varHostEntry As IPHostEntry varHostEntry =
Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)
Dim varAnAddress As System.Net.IPAddress
For Each varAnAddress In varHostEntry.AddressList
t(6) = varAnAddress.ToString & vbCrLf
Next
Ces deux lignes l? ne fonctionnent pas :
Dim varHostEntry As IPHostEntry varHostEntry =
Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)
Dim varAnAddress As System.Net.IPAddress
Premier plantage sur :
varHostEntry = Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)
Qui dit : Fin d'instruction attendue
Second plantage sur :
varHostEntry.AddressList
Qui dit le nom " varHostEntry.AddressList" n'est pas d?clar?
-------------------------
Reste aussi deux questions :
- Vitesse de transfert
- SSID nom r,seau wifi
---------- Voici tout le code --------------
' cle3Gusb form1
Option Explicit On
Imports System.Net.NetworkInformation
Imports System.Net
Imports System.Math
Public Class Form1
' IL ME MANQUE 5 ELEMENTS
' - adresse IP local PC
' - nom utilisteur PC
' - SSID nom r,seau wifi
' - Vitesse de d,bit
Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Dim Statistics As IPv4InterfaceStatistics
Dim t(9) As String
Dim p(9)
Dim varHostEntry As IPHostEntry varHostEntry =
Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)
Dim varAnAddress As System.Net.IPAddress
For Each varAnAddress In varHostEntry.AddressList
t(6) = varAnAddress.ToString & vbCrLf
Next
'
For Each NetInterface As NetworkInterface In