AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 08 03:12:50
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

OBTENIR L'IP AVEC UN TCPCLIENT


Information sur la source

Catégorie :Réseau & Internet Source .NET ( DotNet ) Classé sous : tcpclient, ip, reseau, local Niveau : Initié Date de création : 17/12/2004 Date de mise à jour : 20/07/2007 13:51:25 Vu : 9 935
Auteur : exatex Ecrire un message privé
Note :
6,2 / 10 - par 5 personnes
6,20 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

Description

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

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

Historique

30 novembre 2005 10:32:24 :
Ajout des mots clefs
20 juillet 2007 13:51:25 :
Ok, j'ai ajouté les parentheses, je ne pense pas que cela change quelque chose, mais c'est pas faux. Merci.

Commentaires et avis

signaler à un administrateur
Commentaire de PuNishieuse le 31/01/2005 13:00:36

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

signaler à un administrateur
Commentaire de OneHacker le 03/12/2006 19:46:09

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

signaler à un administrateur
Commentaire de taupe2028 le 09/09/2007 21:26:14

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.  

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

recuperer ip sur le reseau local [ par Me.Hide ] je cherche a recuperer toutes les adresses ip ou noms des postes sur un reseau local commant faire ???thanks to us for your answers!!!i'm not here, it Creation d'un chat (pb d'envoie) [ par fjosman ] Il y a plein d'exemple pour creer un chat (grace a winsock)exemple : http://www.vbfrance.com/code.aspx?ID=30186 , cela marche sur mon reseau  loc IP [ par hhhp2004 ] hhhp2004salut,avant d'avoir un reseau chez nous, winsock.localip renvoyaiait 127.0.0.1 quand jetais pas connecte a linternet et l'ip habituel qua Net send - detection des ip sur le reseau [ par franckpeer2p ] salut @tous,bon, je vous explique la situation pour que vous compreniez ce que je veux:imaginez vous dans une salle reseau, tout le monde envoie des m socket IP avec 2 cartes réseau [ par Jeff_Trek ] Bonjour, je crée un logiciel qui réceptione des trames IP via socket IP et je dois les renvoyer via socket IP sur une autre machine. Jusque là cela Recordset/reseau local, comment acceder a un dossier partage [ par zubral ] Bonjour, Quand je travaille en local sur mon ordi, j'arrive a utiliser un Recordset et a l'exploiter. Maintenant, je voudrais que le Recordset se conn IP local ou IP internet [ par Francky23012301 ] Pour faire un scoket serveur/client il faut l'IP local ou l' IP internet? envoie données [ par pulpul74 ] Bonjour, J'ai actuellement dévellopé un petit client\serveur TCP\IP tout simple, qui me permet sur un réseau local d'envoyer et de recevoir des mess Manuip Pc sur reseau local [ par Espionnite ] Bonjour tout le monde,J'ai plusieurs PC en reseau sur un routeur et je voudrais savoir si il est pssible de recup avec vb les pc qui sont sur le resea se connecter à un serveur dans un reseau local [ par niceusef ] salut, je suis entrain de developper une application Client/Serveur le serveur se trouve dans un reseau local, si par exemple je fait un test avec un


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,718 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.