Neo.balastik
Messages postés796Date d'inscriptionjeudi 17 mai 2001StatutMembreDernière intervention 5 mai 2009
-
11 sept. 2004 à 18:27
thepoe
Messages postés30Date d'inscriptionvendredi 23 avril 2004StatutMembreDernière intervention 1 juin 2011
-
4 août 2006 à 16:04
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
thepoe
Messages postés30Date d'inscriptionvendredi 23 avril 2004StatutMembreDernière intervention 1 juin 2011 4 août 2006 à 16:04
Voici une fonction light du GetMyIP en VB 2005, si ca peut aider.
Cet exemple utilise le mode Console, mais la fonction est prête pour être intégrée dans un projet avec Form.
Module Module1
Sub main()
'La fonction retourne un objet du type System.Net.IPAdress
'On choisira la conversion par '.ToString'
Console.WriteLine(("Address: " + GetFirstIp().ToString))
End Sub
Function GetFirstIp()
Try 'Eh oui, maintenant on gere les erreurs...
' Obtenir un conteneur pour les informations sur l'adresse de l'hôte.
Dim heserver As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName())
' Obtenir le premier IP
GetFirstIp = heserver.AddressList(0)
Catch ex As Exception
'En cas d'érreur (genre pas d'ip, pas de carte réseau...),
'on renvoie le message la définissant
GetFirstIp = ex.Message
End Try
End Function
End Module
cpln
Messages postés4Date d'inscriptionlundi 30 juin 2003StatutMembreDernière intervention20 juin 2006 20 juin 2006 à 11:20
PARFAIT !
C'est exactement ce qu'il me falait !
Il me faut l'adresse local IP pour un réseau interne d'une entreprise pour un log! Cela convient donc parfaitement !
Grazias !
Merci MadM@tt
Morricon
Messages postés41Date d'inscriptionlundi 23 décembre 2002StatutMembreDernière intervention 1 mars 2007 10 févr. 2005 à 17:38
Bizarre... Personne n'a mis de note... Pourquoi ?
Pour ma part cette fonctionne très bien. Même si effectivement une station peut avoir plusieurs adresses (EBArtSoft)
Cependant il y en a toujours une qui est prioritaire sur les autres... Donc généralement la première adresse locale renvoyée sera la première déclarée dans les paramètres réseau.
Pour le reste je dirai que j'y ait trouvé mon compte... et je n'ai pas eu à le réécrire.
Merci MadM@tt
Bonne prog a tous.
MadM@tt
Messages postés2167Date d'inscriptionmardi 11 novembre 2003StatutMembreDernière intervention16 juillet 20091 12 sept. 2004 à 15:35
Tiens ça m'interesse cette méthode, mais comment on fait pour savoir (meme dans le dos) à quel adresse IP le serveur il a répondu à mon ping (c'est a dire que cette adresse ip c'est la mienne) ?
Neo.balastik
Messages postés796Date d'inscriptionjeudi 17 mai 2001StatutMembreDernière intervention 5 mai 20097 12 sept. 2004 à 15:13
En effet, y a pas 36 façons d'y arriver...
Eventuellement faire un ping d'un serveur style Google, Yahoo, etc... Beaucoup de chance qu'ils répondent.
MadM@tt
Messages postés2167Date d'inscriptionmardi 11 novembre 2003StatutMembreDernière intervention16 juillet 20091 12 sept. 2004 à 14:37
Oui j'étais pas sur pour ça, mais bon si tu veux vraiment la publique il faut passer par un site web et j'aime pas ce genre de dépendances.
Neo.balastik
Messages postés796Date d'inscriptionjeudi 17 mai 2001StatutMembreDernière intervention 5 mai 20097 12 sept. 2004 à 13:46
Aussi, si ta connexion passe par un routeur, cette façon de faire ne te donnera jamais l'adresse IP publique attribuée par ton FAI mais seulement ton adresse locale donc de type privée. Donc cette source ne se limite que si ton PC se connecte directement à Internet sans passer par un routeur ou un proxy.
MadM@tt
Messages postés2167Date d'inscriptionmardi 11 novembre 2003StatutMembreDernière intervention16 juillet 20091 12 sept. 2004 à 01:53
Ouahou je connaissais pas
merci pour l'info
hoeppe
Messages postés56Date d'inscriptionmardi 20 mai 2003StatutMembreDernière intervention10 juin 2005 12 sept. 2004 à 01:50
Plusieurs IP si la machine a plusieurs interfaces reseaux (dont les Modems).
essaye dans une invite de commande la commande :
route print
@++
MadM@tt
Messages postés2167Date d'inscriptionmardi 11 novembre 2003StatutMembreDernière intervention16 juillet 20091 11 sept. 2004 à 21:47
Plusieurs si on a plusieurs connections internet ?
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 20199 11 sept. 2004 à 19:10
Parfois il y a pas une mais plusieurs adresse ip :
4 août 2006 à 16:04
Cet exemple utilise le mode Console, mais la fonction est prête pour être intégrée dans un projet avec Form.
Module Module1
Sub main()
'La fonction retourne un objet du type System.Net.IPAdress
'On choisira la conversion par '.ToString'
Console.WriteLine(("Address: " + GetFirstIp().ToString))
End Sub
Function GetFirstIp()
Try 'Eh oui, maintenant on gere les erreurs...
' Obtenir un conteneur pour les informations sur l'adresse de l'hôte.
Dim heserver As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName())
' Obtenir le premier IP
GetFirstIp = heserver.AddressList(0)
Catch ex As Exception
'En cas d'érreur (genre pas d'ip, pas de carte réseau...),
'on renvoie le message la définissant
GetFirstIp = ex.Message
End Try
End Function
End Module
20 juin 2006 à 11:20
C'est exactement ce qu'il me falait !
Il me faut l'adresse local IP pour un réseau interne d'une entreprise pour un log! Cela convient donc parfaitement !
Grazias !
Merci MadM@tt
10 févr. 2005 à 17:38
Pour ma part cette fonctionne très bien. Même si effectivement une station peut avoir plusieurs adresses (EBArtSoft)
Cependant il y en a toujours une qui est prioritaire sur les autres... Donc généralement la première adresse locale renvoyée sera la première déclarée dans les paramètres réseau.
Pour le reste je dirai que j'y ait trouvé mon compte... et je n'ai pas eu à le réécrire.
Merci MadM@tt
Bonne prog a tous.
12 sept. 2004 à 15:35
12 sept. 2004 à 15:13
Eventuellement faire un ping d'un serveur style Google, Yahoo, etc... Beaucoup de chance qu'ils répondent.
12 sept. 2004 à 14:37
12 sept. 2004 à 13:46
12 sept. 2004 à 01:53
merci pour l'info
12 sept. 2004 à 01:50
essaye dans une invite de commande la commande :
route print
@++
11 sept. 2004 à 21:47
11 sept. 2004 à 19:10
http://www.vbfrance.com/code.aspx?id=23205
@+
11 sept. 2004 à 18:27