Récupérer l'adresse ip et le nom local de votre pc avec le control winsock

Soyez le premier à donner votre avis sur cette source.

Snippet vu 21 760 fois - Téléchargée 86 fois


Contenu du snippet

- Mettez 2 TextBox (TextIpLocale et TextNomLocal)
- Mettez 1 Winsock (Winsock1)
- Et mettez un bouton (command1)
Enfin, mettez ce code dans votre Formulaire

Source / Exemple :


Private Sub Command1_Click()
    TextIpLocale.Text = Winsock1.localIP
    TextNomLocal.text = Winsock1.localhostname
End Sub

Conclusion :


Je sais, c'est simple mais c'est efficace...

A voir également

Ajouter un commentaire

Commentaires

marko04
Messages postés
7
Date d'inscription
lundi 21 juin 2004
Statut
Membre
Dernière intervention
14 mars 2005

Pour les nuls, Xp ces pour l'ip en ms-dos vous tapez ipconfig
christgh
Messages postés
1
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
30 novembre 2003

Oui, c'est pas mal. Seulement lorsque l'on a un accès Internet permanent en USB et un lan, ce code prend l'adresse courante donc du lan.

La question que je me pose est :
comment peut on faire pour être sûr de récupérer l'adresse Web ou l'adresse du lan ?

Christgh.
olicool
Messages postés
16
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
5 mai 2003

Mais es-ce que tu sais comment trouver le "Port" il m'affiche toujours 0 meme chez mes amis.
cs_Bzzzzz
Messages postés
4
Date d'inscription
mardi 26 novembre 2002
Statut
Membre
Dernière intervention
24 juillet 2003

et si tu veux récupérer le récupérer sous vb tu fait comment CrazyLink62 ???

d'ailleurs ca existait deja pas sous NT4 Trash98 !!!
bydavid
Messages postés
62
Date d'inscription
samedi 21 septembre 2002
Statut
Membre
Dernière intervention
5 août 2003

C'est cool ca marche !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.