获取客户端真实的ip地址

名字实在难记，还是放在blog上吧

'-----------------------------------------------------
    '// 获取客户端真实的ip地址 stpangpang 2006/08/24
    '-----------------------------------------------------
    Public Function GetClientIP() As String
        Dim userip As String = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
        '如果代理服务器为空，则返回真实的地址
        If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
        Return userip
    End Function

winform的

 Dim IPHostEntry As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName())
        Return IPHostEntry.AddressList(0).ToString()