CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 05:07:54

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : INTERNET EXPLOREUR 8,RESTREINTE DE L'EXECUTION DES SCRIPTS OU DES CONTRôLES ACTIVESX par ghuysmans99

INTERNET EXPLOREUR 8,RESTREINTE DE L'EXECUTION DES SCRIPTS OU DES CONTRôLES ACTIVESX par cool26

SOMME DANS TEXTBOX par benamb

RE : SELECTIONNER UN éLEMENT UNIQUE DANS UNE DROPDOWNLIST par ggtry

MVC PROBLEME VIEWDATA / BEGINFORM par WiDOC

+ de logiciels à télécharger

1 464 546 membres
54 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 096 codes, 1 302 921 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

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 !

IP / HOSTNAME

Information sur la source

Catégorie :ASP.Net

Niveau : Débutant Date de création : 25/04/2002 Date de mise à jour : 25/04/2002 18:22:33 Vu : 9 803

Auteur : ErB

Site perso

Ecrire un message privé

Note :

5,67 / 10

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

pour recuperer l'IP ou le Hostname et inversement

Source

Imports System.Net.Sockets
Imports System.Net
Public Function IP(ByVal adIp As String) As String
Dim myIP As IPHostEntry = Dns.Resolve(adIp)
Dim sIP As String
sIP = ("HostName :" & myIP.HostName & "<br>")
sIP += ("Adresse IP :" & myIP.AddressList(0).ToString & "<br>")
Return sIP
End Function

Imports System.Net.Sockets
Imports System.Net

    Public Function IP(ByVal adIp As String) As String

        Dim myIP As IPHostEntry = Dns.Resolve(adIp)
        Dim sIP As String
        sIP = ("HostName :" & myIP.HostName & "<br>")
        sIP += ("Adresse IP :" & myIP.AddressList(0).ToString & "<br>")

        Return sIP
    End Function