Comment puis-je 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 par l'envoi de mac adresse ip en entrée à l'aide de vb.net codage?

Utiliser le Ma Classe 🙂

My.Computer.Name

que pour l'adresse IP rapide recherche 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

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

Ici est un Exemple pour cela.
Dans cet exemple, on peut 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

Grâce Shuwaiee

J'ai fait un léger changement même si, comme en l'utilisant dans un Private Sub déjà.

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 aussi fait un changement à la façon dont les détails sont affichés afin qu'ils puissent montrer séparées sur les lignes à l'aide de & vbCrLf &

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

Espère que cela aide quelqu'un.

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

0

Montre le Nom de l'Ordinateur, Utiliser un Bouton pour l'appeler
Dim strHostName Comme une Chaîne de caractères
```
    strHostName = System.Net.Dns.GetHostName().

    MsgBox(strHostName)
```
Affiche le Nom d'Utilisateur, Utilisez un Bouton pour l'appeler
Si TypeOf Mon.De l'utilisateur.CurrentPrincipal Est La Sécurité.Principal.WindowsPrincipal Puis
```
        Dim parts() As String = Split(My.User.Name, "\")

        Dim username As String = parts(1)

        MsgBox(username)

   End If
```
Pour l'Adresse IP de son peu compliqué, Mais j'essaie d'expliquer autant que je le peux.
Premier à écrire le code suivant, avant de Form1_Load mais après l'importation de la section
Public Class 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
```
Puis dans Form1_Load Section viens de l'appeler

GetIPAddress()

Résultat: Sur le formulaire de la charge, il va afficher une boîte de message avec l'adresse IP, pour mettre en Label1.texte ou quelque autre endroit où jouer avec le code.

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

IP Version 4 Seulement ...

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

-2

    Public strHostName As String
    Public strIPAddress As String
    strHostName = System.Net.Dns.GetHostName()
    strIPAddress = System.Net.Dns.GetHostEntry(strHostName).AddressList(0).ToString()
    MessageBox.Show("Host Name: " & strHostName & "; IP Address: " & strIPAddress)

Vous devez vous connecter pour publier un commentaire.