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 502 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

désolé gars mais au cas ou t'aurais pas essayé en etant derriere un LAN, cette technique repompe l'ip qui est dans la plage d'addresses non-routable qui est utilisée en local sur ton lan et pas l'IP de ton provider ...donc ca part en couille des que tu as un LAN masi sinon pour les autres c'est okay ! Bye
bonjour,
comment inserer winsosk1 dans la projet?
Bonjour,
Comment faire pour inserer un Winsock ?
faut quue tu prenne projet édition proffesionel tu click sur le ti piton winsock (comme un timer)
Je voudrais trouver un code source qui me permettrait de modifier l'adresse IP

Help Me

Merci

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.