Question

vb.net 怎么获取客户端ip地址？

用了以下方法 都不行。
1.Request.ServerVariables("HTTP_X_FORWARDED_FOR") -注：获取到127.0.0.1
2.Request.ServerVariables("REMOTE_ADDR") -注：获取到127.0.0.1
3.Request.ServerVariables("LOCAL_ADDR") -注：获取到127.0.0.1
4. Dim ip As Net.IPAddress
Dim host As Net.IPHostEntry
host = Dns.GetHostByName(Dns.GetHostName)
ip = host.AddressList(0) - 注：获取的是服务器ip

有没有高手提供给我更好的方法？

Answer 1

你最好可以换台电脑访问网址看获取IP地址状况。
如果你测试访问的时候,使用的是 localhost 进行访问的,那么服务器端获得的也就是127.0.0.1，因为localhost是一个环路地址,特殊的.如果你是通过你的ip地址进行访问的,那么获得的IP地址就会是正确的了. 要通过自己本地的IP进行访问,在控制面板的网络连接里找到本地连接,查看它的属性,并找到"详细信息"按钮,点击后弹出的对话框中IPV4地址就是本地地址.或打开命令行,输入 ipconfig /all 即可找到本地地址.在浏览器中通过这个IP地址访问,就不会是127.0.0.1了.

Answer 2

Imports System.Net
Imports System.Net.NetworkInformation
Imports System.Net.Sockets
    Public Function GetIp() As String
        Dim hostName As String = System.Net.Dns.GetHostName.ToString
        Dim IPString As String = "127.0.0.1"
        Dim ip As System.Net.IPAddress
        For Each ip In System.Net.Dns.GetHostEntry(hostName).AddressList()
            If ip.AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then
                IPString = ip.ToString
                Exit For
            End If
        Next
        Return IPString
    End Function
     
    PS：我和你遇到的是同样的问题，之前还是可以返回正常的，装了一个虚拟机后就不行了，
    这段函数返回，经过测试，是正确的。

Answer 3

Dim strHostName As String strHostName = Dns.GetHostName() Dim ipEntry As IPHostEntry ipEntry = Dns.GetHostEntry(strHostName) Dim ip As String ip = ipEntry.AddressList(0).ToString()

追问

这个获取的是本地的IP地址，我在浏览器上打开，则获取的是服务器的ip。
我需要在浏览器打开的时候，获取到的是我自己的IP.