Le principe est pouvoir obtenir l' IP de l'hote en utilisant la classe TcpClient.
Comment ca marche:
Il faut heriter le classe TcpClient, puit utiliser la propriété privée "Client" qui retourne le "Socket" utilisé pour etablir la connetion.
Attention si vous travaillez avec "TcpListener", il faudra l'utiliser en "AcceptSocket". Sinon vous le pourrez pas realiser le "CAST".
Restera a appelé cette classe:
Dim TCP_Clt As EvolvedTcpClient.MyTcpClient = New EvolvedTcpClient.MyTcpClient(TCP_Serv.AcceptSocket)
Source / Exemple :
Imports System
Imports System.Net
Imports System.Net.Sockets
Public Class EvolvedTcpClient
Public Class MyTcpClient
Inherits TcpClient
Public Sub New(ByRef s As Socket)
Me.Client = s
End Sub
ReadOnly Property IP() As String
Get
Try
Return (CType(client.RemoteEndPoint, IPEndPoint).Address.ToString)
Catch ex As Exception
Return ("")
End Try
End Get
End Property
End Class
End Class
Conclusion :
Remerciement a Tramber le vert qui a realiser cette source en C#.
Merci a Renaud de m'avoir aidé a realiser la conversion en VB.NET
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.