Làm cách nào để nhận địa chỉ ip cục bộ bằng vb?

Question

Cách lấy địa chỉ ip trong vb.net. tôi sử dụng dưới đây mã để có được địa chỉ IP địa phương nhưng nó cho thấy dns không được khai báo. bất cứ ai có thể cho tôi biết là những gì mà Dns trong Bộ luật

VB Mã

Imports System.Environment 
Imports System.Net 

Public Class Tester 
Public Shared Sub Main 
Dim hostname As String = Dns.GetHostName() 
Dim ipaddress As String = CType(Dns.GetHostByName(hostname).AddressList.GetValue(0), IPAddr 
ess).ToString 
Console.WriteLine("Computer Name: " & hostname & " IP Address: " & ipaddress) 
End Sub 

End Class 

Answer 1

Dns là một lớp trong không gian tên System.Net mà cung cấp chức năng liên quan đến việc "Domain Name System" (do đó tên Dns) - xem http://msdn.microsoft.com/en-us/library/system.net.dns.gethostname.aspx

Answer 2

Sử dụng này:

HttpContext.Current.Request.UserHostAddres 

Hy vọng điều này sẽ giúp.

Answer 3

ip = Dns.GetHostAddresses (hostname)

đây là một mẫu mã MSDN

Answer 4

Bạn có thể lấy địa chỉ IP cục bộ của hệ thống sử dụng mã dưới đây:

Dim host As String = System.Net.Dns.GetHostName() 
Dim LocalHostaddress As String = System.Net.Dns.GetHostByName(host).AddressList(1).ToString() 

Answer 5

Kể từ khi tôi có được cảm giác rằng, câu hỏi (trong tiêu đề) chưa được trả lời đầy đủ ...

Dim hostName = System.Net.Dns.GetHostName() 
For Each hostAdr In System.Net.Dns.GetHostEntry(hostName).AddressList() 

    ' If you just want to write every IP 
    Console.WriteLine("Name: " & hostName & " IP Address: " & hostAdr.ToString() 

    ' If you want to look if the device is member of a specific network 
    If hostAdr.ToString().StartsWith("192.168.1.") Then DoSomething() : Exit For 

    ' I think you get the idea ^^ 
    ' ... 
Next 

... rõ ràng đây không phải là chính xác những gì OP yêu cầu, nhưng chỉ từ tiêu đề và liên kết google, điều này sẽ trả lời những gì mọi người đến đây đang tìm kiếm.

Btw GetHostByName() dường như không được dùng nữa, GetHostEntry() giống như cách này hoạt động theo cùng một cách mà không cần cảnh báo.

Answer 6

Dim ipaddress As String = 
    Dns.GetHostEntry(Dns.GetHostName).AddressList(0).ToString 

này rất có thể sẽ cung cấp cho địa chỉ IPv6

Và

Dim ipaddress As String = 
    Dns.GetHostEntry(Dns.GetHostName).AddressList.FirstOrDefault(() => { }, 
    (ip.AddressFamily = AddressFamily.InterNetwork)).ToString 

này sẽ cung cấp địa chỉ IPv4

VB của tôi là gỉ vì vậy đây là một mã C# mà làm việc cho tôi.

using System.Linq; 

using System.Net.Sockets; 

string IPaddress = 
    Dns.GetHostEntry(Dns.GetHostName()).AddressList[0].ToString(); //For Ipv6 

string IPaddress = 
    Dns.GetHostEntry(Dns.GetHostName()).AddressList.FirstOrDefault(ip => 
    ip.AddressFamily == AddressFamily.InterNetwork).ToString(); //For Ipv4 

Tôi hy vọng điều này sẽ hữu ích.

Answer 7

Dim hostName = System.Net.Dns.GetHostName() 
    For Each hostAdr In System.Net.Dns.GetHostEntry(hostName).AddressList() 

     ' If you just want to write every IP 
     'Console.WriteLine("Name: " & hostName & " IP Address: " & hostAdr.ToString()) 
     Me.RichTextBox1.Text = hostAdr.ToString 

     'If you want to look if the device is member of a specific network 

     ' ... 
    Next