Recuperer une ip a partir d un lien html

Commenter

Contenu du snippet

Ce prog montre simplement comment faire pour recuperer l IP d un client qui click sur un lien.
Pour cela il suffit d ajouter au projet un controle inet qui permet d ouvrir une URL sur un certain port ce qui sert en fait a ce connecter au serveur.
Ensuite le server accepte la connection grace a un controle winsock et a partir de ce moment il peut recuperer l IP du client connecté

Source / Exemple : 


Pour ce code vous aurez besoin pour le client d un control inet et d un bouton
   Pour le server, il vous faut un controle winsock et un textbox

---Voila le code client

Private Sub Command1_Click()

'se connecte au server grace a l ip et part le port choisi
Inet1.OpenURL "[ip du server a contacter]:[port]"

End Sub

---Et pour le code server

Private Sub Form_Load()

'definie le port a utiliser et met le controle winsock sur ecoute des connections entrantes
Winsock.localport=[le meme port choisi precedemment]
Winsock.Listen

End Sub

Private Sub Winsock_ConnectionRequest( ByVal requestID As Long)

'Affiche l ip dans le controle text
Text1.Text = Text1.Text + vbCrLf + Winsock.RemoteHostIP

End Sub

A voir également

S'inscrire maintenant

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.

Du même auteur (adess00)