Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Cherche infos connexion PC / Internet ???

Cherche infos connexion PC / Internet ???

7 réponses
Avatar
LE TROLL
Bonjour,

Je cherche infos PC liaison Internet sous Vista :

' - état connexion : actif ou inactif (pour calcul durée)

' - adresse IP local PC

' - nom utilisteur PC

' - SSID nom réseau wifi

' - Vitesse de débit



Si vous avez une idée, même plusieurs ???



Merci, cordialement ;o)


-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Bonjour Le Troll,

' - état connexion : actif ou inactif (pour calcul durée)


Alors, à priori, pour savoir si tu es connecté sur internet, si ce n'est pas
ton PC qui est connecté en direct sur internet, la seule solution que je
pense est 1 simple ping sur 1 adresse internet, à moins que tu puisses
communiquer avec le périphérique qui fournit internet (et encore, ca doit
pas être évident).

' - adresse IP local PC


Tu peux en avoir 1 par carte réseau, et quand il y en a plusieurs, c'est pas
forcément la 1ère carte qui possède les informations souhaitées.

J'ai trouvé quand même ca via Google :
http://faqvbnet.developpez.com/?page=netw#netw_testcnx
http://faqvbnet.developpez.com/?page=netw#netw_ipaddr
http://faqvbnet.developpez.com/?page=netw#netw_AllIPMachine
http://faqvbnet.developpez.com/?page=netw#netw_PingMachine


"LE TROLL" <le a écrit dans le message de news:

Bonjour,

Je cherche infos PC liaison Internet sous Vista :

' - état connexion : actif ou inactif (pour calcul durée)

' - adresse IP local PC

' - nom utilisteur PC

' - SSID nom réseau wifi

' - Vitesse de débit



Si vous avez une idée, même plusieurs ???



Merci, cordialement ;o)


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





Avatar
Jo
Bonjour LE TROLL
J'ai ceci qui fonctionne

' - état connexion : actif ou inactif


If My.Computer.Network.IsAvailable Then
Me.LabelConnecter.Text = "Oui"
Else
Me.LabelConnecter.Text = "Non"
End If

' - adresse IP local PC


Imports System.Net

Dim varHostEntry As IPHostEntry
varHostEntry =
Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)
Dim varAnAddress As System.Net.IPAddress
For Each varAnAddress In varHostEntry.AddressList
Me.LabelAdrIP.Text = varAnAddress.ToString
Next

' - nom utilisteur PC



Me.LabelNomUtilisateur.Text = Environment.UserName

Cordialement
Jo
Avatar
LE TROLL
Merci :o) Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


<Stéphane> a écrit dans le message de
news:%
Bonjour Le Troll,

' - état connexion : actif ou inactif (pour calcul durée)


Alors, à priori, pour savoir si tu es connecté sur internet, si ce n'est
pas ton PC qui est connecté en direct sur internet, la seule solution que
je pense est 1 simple ping sur 1 adresse internet, à moins que tu puisses
communiquer avec le périphérique qui fournit internet (et encore, ca doit
pas être évident).

' - adresse IP local PC


Tu peux en avoir 1 par carte réseau, et quand il y en a plusieurs, c'est
pas forcément la 1ère carte qui possède les informations souhaitées.

J'ai trouvé quand même ca via Google :
http://faqvbnet.developpez.com/?page=netw#netw_testcnx
http://faqvbnet.developpez.com/?page=netw#netw_ipaddr
http://faqvbnet.developpez.com/?page=netw#netw_AllIPMachine
http://faqvbnet.developpez.com/?page=netw#netw_PingMachine


"LE TROLL" <le a écrit dans le message de news:

Bonjour,

Je cherche infos PC liaison Internet sous Vista :

' - état connexion : actif ou inactif (pour calcul durée)

' - adresse IP local PC

' - nom utilisteur PC

' - SSID nom réseau wifi

' - Vitesse de débit



Si vous avez une idée, même plusieurs ???



Merci, cordialement ;o)


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









Avatar
LE TROLL
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
System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()

If NetInterface.NetworkInterfaceType = NetworkInterfaceType.Wireless80211
Then

p(1) = NetInterface.Description

t(1) = "Interface : " & p(1) & vbCrLf

Statistics = NetInterface.GetIPv4Statistics

p(2) = System.Math.Round(Statistics.BytesSent / 1048576, 2)

t(2) = "Sortants : " & p(2) & " Mo" & vbCrLf

p(3) = Round(Statistics.BytesReceived / 1048576, 2)

t(3) = "Entrants : " & p(3) & " Mo" & vbCrLf

p(4) = Round(p(2) + p(3), 2)

t(4) = "Total IO : " & p(4) & " Mo" & vbCrLf

End If

Next

If My.Computer.Network.IsAvailable Then t(5) = "Connect," & vbCrLf

If Not My.Computer.Network.IsAvailable Then t(5) = "D,connect," & vbCrLf

'

t(7) = Environment.UserName & vbCrLf

'

TextBox1.Text = t(1) & t(4) & t(5) & t(6) & t(7)

TextBox1.Refresh()

End Sub ' form1

End Class

-------------

Merci, cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"Jo" a écrit dans le message de
news:
Bonjour LE TROLL
J'ai ceci qui fonctionne

' - état connexion : actif ou inactif


If My.Computer.Network.IsAvailable Then
Me.LabelConnecter.Text = "Oui"
Else
Me.LabelConnecter.Text = "Non"
End If

' - adresse IP local PC


Imports System.Net

Dim varHostEntry As IPHostEntry
varHostEntry =
Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)
Dim varAnAddress As System.Net.IPAddress
For Each varAnAddress In varHostEntry.AddressList
Me.LabelAdrIP.Text = varAnAddress.ToString
Next

' - nom utilisteur PC



Me.LabelNomUtilisateur.Text = Environment.UserName

Cordialement
Jo


Avatar
Jo
Bonsoir LE TROLL

Imports System.Net

Dim varHostEntry As IPHostEntry varHostEntry =
Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)



peut etre le copier coller s'écrit sur 2 lignes d'ou l'erreur fin
d'instruction et suis le non déclaré
Dim varHostEntry As IPHostEntry ' Fournit une classe conteneur pour les
informations sur l'adresse de l'hôte Internet
varHostEntry = Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)


voir:
http://msdn.microsoft.com/fr-fr/library/system.net.iphostentry_members.aspx

Reste aussi deux questions :
- Vitesse de transfert


???
- SSID nom r,seau wifi



pour le wifi il y a un exemple
http://www.vbfrance.com/codes/WIFI-MANAGE-WLANAPI-VB-NET_48758.aspx

Cordialement
Jo
Avatar
LE TROLL
Bonjour,

Merci toujours...

L'instruction :
varHostEntry = Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)

A :
Dns.GetHostByName



Est dite obsolète.... et demande d'utiliser "goEntry"

Mais quan j'utilise "GoEntry"
Il me donne un tas de valeurs hexa, sans que j'y retrouve mon ip :
varHostEntry = Dns.GetHostEntry(System.Net.Dns.GetHostName.ToString)


???

Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"Jo" a écrit dans le message de
news:
Bonsoir LE TROLL

Imports System.Net

Dim varHostEntry As IPHostEntry varHostEntry =
Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)



peut etre le copier coller s'écrit sur 2 lignes d'ou l'erreur fin
d'instruction et suis le non déclaré
Dim varHostEntry As IPHostEntry ' Fournit une classe conteneur pour les
informations sur l'adresse de l'hôte Internet
varHostEntry = Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)


voir:
http://msdn.microsoft.com/fr-fr/library/system.net.iphostentry_members.aspx

Reste aussi deux questions :
- Vitesse de transfert


???
- SSID nom r,seau wifi



pour le wifi il y a un exemple
http://www.vbfrance.com/codes/WIFI-MANAGE-WLANAPI-VB-NET_48758.aspx

Cordialement
Jo


Avatar
Jo
Bonjour LE TROLL

Je sais il dit obsolète mais fonctionnant très bien je ne me suis pas plus
pencher la dessus

Cordialement
Jo

"LE TROLL" <le a écrit dans le message de groupe de
discussion :
Bonjour,

Merci toujours...

L'instruction :
varHostEntry = Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)

A :
Dns.GetHostByName



Est dite obsolète.... et demande d'utiliser "goEntry"

Mais quan j'utilise "GoEntry"
Il me donne un tas de valeurs hexa, sans que j'y retrouve mon ip :
varHostEntry = Dns.GetHostEntry(System.Net.Dns.GetHostName.ToString)


???

Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.


"Jo" a écrit dans le message de
news:
Bonsoir LE TROLL

Imports System.Net

Dim varHostEntry As IPHostEntry varHostEntry =
Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)



peut etre le copier coller s'écrit sur 2 lignes d'ou l'erreur fin
d'instruction et suis le non déclaré
Dim varHostEntry As IPHostEntry ' Fournit une classe conteneur pour les
informations sur l'adresse de l'hôte Internet
varHostEntry = Dns.GetHostByName(System.Net.Dns.GetHostName.ToString)


voir:
http://msdn.microsoft.com/fr-fr/library/system.net.iphostentry_members.aspx

Reste aussi deux questions :
- Vitesse de transfert


???
- SSID nom r,seau wifi



pour le wifi il y a un exemple
http://www.vbfrance.com/codes/WIFI-MANAGE-WLANAPI-VB-NET_48758.aspx

Cordialement
Jo