主题：如何用代码获取本机的外网IP地址？

Dim req = System.Net.WebRequest.Create("http://www.ip138.com")
req.UserAgent = "Mozilla/5.0 (Windows NT 6.3; rv:57.0) Gecko/20100101 Firefox/57.0"
Dim pos = req.GetResponse
Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm,Encoding.Default)
Dim str As String = reader.ReadToEnd
pos.Close
stm.Close
reader.close

Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=iframe src="").*?(?="" rel)")
msgbox(mc(0).value)
Dim hc As New HttpClient(mc(0).value)
Dim ret = hc.GetData()

mc = System.Text.RegularExpressions.Regex.Matches(ret , "[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+")
If mc.count > 0 Then
    msgbox(mc(0).value)
End If