如何使用vb.net獲取我的真實IP？

Question

如何使用vb.net獲取我的真實IP？

Answer 1

如果您在ASP.NET運行時，然後使用HttpRequest.UserHostAddress property：

Dim ip as string 
ip = Request.UserHostAddress() 

Answer 2

正如你可以看到here（如何以及爲什麼），獲取客戶端IP的最好辦法是：

Dim clientIP As String 
Dim ip As String = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If Not String.IsNullOrEmpty(ip) Then 
    Dim ipRange As String() = ip.Trim().Split(","C) 
    Dim le As Integer = ipRange.Length - 1 
    clientIP = ipRange(le) 
Else 
    clientIP = Request.ServerVariables("REMOTE_ADDR") 
End If 

Answer 3

Dim req As HttpWebRequest = WebRequest.Create("http://whatismyip.com/automation/n09230945.asp")   
Dim res As HttpWebResponse = req.GetResponse() 
Dim Stream As Stream = res.GetResponseStream() 
Dim sr As StreamReader = New StreamReader(Stream) 

MsgBox(sr.ReadToEnd()) 

Answer 4

創建php腳本。將其另存爲realip.php

<?php 
echo $this->getRealIpAddr(); 


function getRealIpAddr() 
    { 
     $ip = ""; 
     if (!empty($_SERVER['HTTP_CLIENT_IP'])) //check ip from share internet 
     { 
      $ip=$_SERVER['HTTP_CLIENT_IP']; 
     } 
     elseif (!empty($_SERVER['HTTP_X_FORWARDED_FOR'])) //to check ip is pass from proxy 
     { 
     $ip=$_SERVER['HTTP_X_FORWARDED_FOR']; 
     } 
     else 
     { 
      $ip=$_SERVER['REMOTE_ADDR']; 
     } 
     return $ip; 
    } 
?> 

在您的VB.net項目中創建一個模塊。 聲明在最高層

Imports System.Net 
Imports System.IO 

進口部分並創建功能：

Public Function GetIP() As String 

    Dim uri_val As New Uri("http://yourdomain.com/realip.php") 
    Dim request As HttpWebRequest = HttpWebRequest.Create(uri_val) 

    request.Method = WebRequestMethods.Http.Get 

    Dim response As HttpWebResponse = request.GetResponse() 
    Dim reader As New StreamReader(response.GetResponseStream()) 
    Dim myIP As String = reader.ReadToEnd() 

    response.Close() 

    Return myIP 
End Function 

現在，在你的代碼的任何地方，你可以發出

Dim myIP as String = GetIP() 

從那裏使用的值你希望。