web-dev-qa-db-fra.com

Comment obtenir le nom et l'adresse IP d'un ordinateur à l'aide de VB.NET?

Comment puis-je obtenir l'adresse IP du système en envoyant l'adresse IP du Mac en tant qu'entrée à l'aide du codage vb.net?

vb.net
12
ahmed

Utilisez ma classe :)

My.Computer.Name

comme pour l'adresse IP recherche rapide sur Google

Private Sub GetIPAddress()

Dim strHostName As String

Dim strIPAddress As String



strHostName = System.Net.Dns.GetHostName()

strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()


MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress)

End Sub
31
Shuwaiee
Private Function GetIPv4Address() As String
    GetIPv4Address = String.Empty
    Dim strHostName As String = System.Net.Dns.GetHostName()
    Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName)

    For Each ipheal As System.Net.IPAddress In iphe.AddressList
        If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then
            GetIPv4Address = ipheal.ToString()
        End If
    Next

End Function
18
EagleEyes

Voici un exemple pour ceci . Dans cet exemple, nous pouvons obtenir l'adresse IP de notre nom d'hôte donné. 

   Dim strHostName As String = "jayeshsorathia.blogspot.com"
    'string strHostName = "www.Microsoft.com";
    ' Get DNS entry of specified Host name
    Dim addresses As IPAddress() = Dns.GetHostEntry(strHostName).AddressList

    ' The DNS entry may contains more than one IP addresses.
    ' Iterate them and display each along with the type of address (AddressFamily).
    For Each address As IPAddress In addresses
        Response.Write(String.Format("{0} = {1} ({2})", strHostName, address, address.AddressFamily))
        Response.Write("<br/><br/>")
    Next
3
Jayesh Sorathia

Merci Shuwaiee

J'ai fait un léger changement, bien que je l'utilise déjà dans un Private Sub.

Dim GetIPAddress()

Dim strHostName As String

Dim strIPAddress As String

strHostName = System.Net.Dns.GetHostName()

strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()

MessageBox.Show("Host Name: " & strHostName & vbCrLf & "IP Address: " & strIPAddress)

Mais nous avons également modifié la manière dont les détails sont affichés pour qu'ils puissent s'afficher sur des lignes distinctes à l'aide de & vbCrLf &. 

MessageBox.Show("Host Name: " & strHostName & vbCrLf & "IP Address: " & strIPAddress)

J'espère que ça aide quelqu'un.

1
Gareth
Dim ipAddress As IPAddress
Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostName())
ipAddress = ipHostInfo.AddressList(0)
0
user2663161

Affiche le nom de l'ordinateur, utilisez un bouton pour l'appeler

Dim strHostName As String

    strHostName = System.Net.Dns.GetHostName().

    MsgBox(strHostName)

Affiche le nom d'utilisateur, utilisez un bouton pour l'appeler

Si TypeOf My.User.CurrentPrincipal est Security.Principal.WindowsPrincipal, alors

        Dim parts() As String = Split(My.User.Name, "\")

        Dim username As String = parts(1)

        MsgBox(username)

   End If

Pour l’adresse IP, c’est un peu compliqué, mais j’essaie d’expliquer le plus possible . Commencez par écrire le code suivant, avant Form1_Load mais après la section import

Classe publique Form1

Dim mem As String

Private Sub GetIPAddress()

    Dim strHostName As String
    Dim strIPAddress As String
    strHostName = System.Net.Dns.GetHostName()
    strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()

    mem = strIPAddress
    MessageBox.Show("IP Address: " & strIPAddress)

End Sub

Ensuite, dans la section Form1_Load, appelez-le simplement

GetIPAddress ()

Résultat: lors du chargement du formulaire, une boîte de dialogue contenant l'adresse IP sera affichée. Elle sera placée dans Label1.text ou à un autre endroit où jouer avec le code.

0
TheProgrammer
Imports System.Net

Module MainLine
    Sub Main()
        Dim hostName As String = Dns.GetHostName
        Console.WriteLine("Host Name : " & hostName & vbNewLine)
        For Each address In Dns.GetHostEntry(hostName).AddressList()
            Select Case Convert.ToInt32(address.AddressFamily)
                Case 2
                    Console.WriteLine("IP Version 4 Address: " & address.ToString)
                Case 23
                    Console.WriteLine("IP Version 6 Address: " & address.ToString)
            End Select
        Next
        Console.ReadKey()
    End Sub
End Module
0
JayBeeOH

IP Version 4 uniquement ...

Imports System.Net

Module MainLine
    Sub Main()
        Dim hostName As String = Dns.GetHostName
        Console.WriteLine("Host Name: " & hostName & vbNewLine)
        Console.WriteLine("IP Version 4 Address(es):")
        For Each address In Dns.GetHostEntry(hostName).AddressList().
            Where(Function(p) p.AddressFamily = Sockets.AddressFamily.InterNetwork)
            Console.WriteLine(vbTab & address.ToString)
        Next
        Console.ReadKey()
    End Sub
End Module
0
JayBeeOH