Obtenir l'ip avec un tcpclient

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 938 fois - Téléchargée 36 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaires

Messages postés
11
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
13 février 2009

salut ,
je cherche à comprendre la socket par Imports System.Net.Sockets
je trouve rien qui commence par le debut
mon but est de transformé une appli qui tournait avec l'ACTIVEX Winsock ( une IP , un port , mode TCP )
j'ai essayer de comprendre la MSDN mais j'entrave rien.
déja comment se connecter en utilisant une résolution xxx.xxx.xxx.xxx
le serveur n'a pas de DNS.
merci d'avance à ceux pourront m'aider.
Messages postés
1447
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2007
1
Correction : 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
Messages postés
8
Date d'inscription
lundi 6 novembre 2000
Statut
Membre
Dernière intervention
4 septembre 2009

Merci, ça m'a fait gagner un petit bout de temps en recherche :) ...

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.