要獲得路由器的外網（或公網）IP地址，一般的做法是先訪問外網的一個網站（如，由這個網站記錄下該路由器的外網IP地址，然后再返回結果。其實對于某些型號的路由器，我們完全可以直接讀取它的外網IP，比如TP-LINK，下面是VB.NET實現代碼，另附連接和斷線兩段代碼：

''' <summary>''' 連接外網''' </summary>Public Sub Connect(ByVal UserName As String, ByVal Password As String)Dim xHttp As Object = CreateObject("MSXML2.XMLHTTP")xHttp.open("GET", "http://192.168.2.2/userRpm/StatusRpm.htm?Connect=連 接&wan=1", False, UserName, Password)xHttp.send()System.Runtime.InteropServices.Marshal.ReleaseComObject(xHttp)xHttp = NothingEnd Sub''' <summary>''' 斷開外網連接''' </summary>Public Sub Disconnect(ByVal UserName As String, ByVal Password As String)Dim xHttp As Object = CreateObject("MSXML2.XMLHTTP")xHttp.open("GET", "http://192.168.2.2/userRpm/StatusRpm.htm?Disconnect=斷 線&wan=1", False, UserName, Password)xHttp.send()System.Runtime.InteropServices.Marshal.ReleaseComObject(xHttp)xHttp = NothingEnd Sub''' <summary>''' 獲得外網IP''' </summary>Public Function GetWanIp(ByVal UserName As String, ByVal Password As String) As StringDim strIP As String = "0.0.0.0"Dim xHttp As Object = CreateObject("MSXML2.XMLHTTP")xHttp.open("GET", "http://192.168.2.2/userRpm/StatusRpm.htm?Connect=連 接&wan=1", False, UserName, Password)xHttp.send()If xHttp.readyState = 4 AndAlso xHttp.Status = 200 ThenDim strHTML As String = Text.Encoding.Default.GetString(xHttp.responseBody)strHTML = strHTML.Substring(strHTML.IndexOf("var wanPara"))strHTML = strHTML.Substring(0, strHTML.IndexOf(";"))strIP = strHTML.Split(",")(2).Replace("""", "").Trim()End IfSystem.Runtime.InteropServices.Marshal.ReleaseComObject(xHttp)xHttp = NothingReturn strIPEnd Function另，對于連接外網和斷開外網連接操作，可能有的朋友已在某些博客中見到過，而我還在這兒標識為“原創”，原因是當初我未找到類似代碼，通過攔截和分析HTTP數據包，才寫了出來，后來發現網上有類似的，大概算是”英雄所見略同“吧。

總結

以上是生活随笔為你收集整理的直接获得TP-LINK路由器外网IP地址的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。