主题：请教ip地址

简单的打开这个网址（http://2019.ip138.com/ic.asp）可以查看自己的外网ip

Dim hc As New HttpClient("http://2019.ip138.com/ic.asp")

Dim ret As String = hc.GetData()

Dim mc = System.Text.RegularExpressions.Regex.Matches(ret, "[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+")

If mc.count > 0 Then

    msgbox( mc(0).value)

Else

    msgbox("没找到")

End If