主题：vb.net如何获取外网IP？

收藏了~~~~~~~~~

顶好贴

我居然没看到这个帖子，收藏了！

vb代码帮助里面没有

请问飞老师，这个如何使用了，是吧这个放在内部函数里面吗，请问怎么调用呢

 

Dim WinHttpReq As Object = CreateObject("Msxml2.ServerXMLHTTP")
WinHttpReq.Open("GET", "http://1212.ip138.com/ic.asp")
WinHttpReq.Send
'正则表达式解析出外网IP
Dim str As String = WinHttpReq.ResponseText
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+")
If mc.count > 0 Then
    msgbox(mc(0).value)
End If