RECUPERER UNE IP A PARTIR D UN LIEN HTML

   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