Come posso ottenere il nome e l'indirizzo IP di un computer tramite VB.NET?

Question

Come posso ottenere l'indirizzo IP del sistema inviando l'indirizzo IP mac come input usando la codifica vb.net?

Answer 1

Utilizzare la mia classe :)

My.Computer.Name 

come per l'indirizzo IP breve ricerca su 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 

Answer 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) 

Answer 3

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 

Answer 4

Ecco esempio di questo. In questo esempio possiamo ottenere l'indirizzo IP del nostro nome host dato.

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 

Answer 5

Grazie Shuwaiee

ho fatto un leggero cambiamento anche se, come già usando in 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) 

ma anche fatto una modifica al modo in cui i dettagli vengono visualizzati in modo che possano mostrare su linee separate utilizzando & vbCrLf &

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

Spero che questo aiuti qualcuno.

Answer 6

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

Answer 7

Ogni singolo pezzo di apparecchiature collegate al Live Online è generalmente contrassegnata una cifra specializzata leggendario per essere un protocollo standard in linea (IP) assumono up.IP spiega essere composto da quattro anni particolari portati via da solo da occasioni (noto anche as'dotted-quad ') e simile a 127.0.0.1.For maggiori informazioni vedere il mio amico sito http://www.ipaddresshub.com/

Answer 8

mostra il nome del computer, utilizzare un pulsante per chiamare

Dim strHostName As String

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

    MsgBox(strHostName) 

mostra il nome utente, utilizzare un pulsante per chiamare

Se TypeOf My.User.CurrentPrincipal è Security.Principal.WindowsPrincipal Poi

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

     Dim username As String = parts(1) 

     MsgBox(username) 

    End If 

Per L'indirizzo IP è un po 'complicato, ma cerco di spiegare il più possibile. In primo luogo scrivere il codice successivo, prima di Form1_Load ma dopo la sezione di importazione

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 

Poi nel Form1_Load sezione appena lo chiamano

GetIPAddress()

Risultato: attivo caricamento del modulo mostrerà un msgbox insieme all'indirizzo IP, per inserirli in Label1.text o altri in cui giocare con il codice.

Answer 9

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 

Answer 10

IP versione 4 Solo ...

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