请教怎么用VB编写一个查看本机外网IP的程序

请问如何用VB编写一个查看本机外网IP的程序？
请问如何用VB编写一个查看本机外网IP的程序？求代码，新手，谢谢
------解决思路----------------------
访问一个网站，如http://ip.changeip.com，即可得到外网IP。
------解决思路----------------------

引用:

请问如何用VB编写一个查看本机外网IP的程序？求代码，新手，谢谢

百度下，一大堆源码。

一般是通过网站获取，ip138什么的比较经典稳定。

------解决思路----------------------
发现用百度搜ip很稳定。http://www.baidu.com/s?wd=ip，下面代码可以测试下

'此代码由“正则测试工具  v1.1.35”自动生成，请直接调用TestReg过程

Private Sub TestReg()

    Dim strData As String

    Dim reg As Object

    Dim matchs As Object, match As Object


    strData = getHtmlStr("http://www.baidu.com/s?wd=ip")


    Set reg = CreateObject("vbscript.regExp")

    reg.Global = True

    reg.IgnoreCase = True

    reg.MultiLine = True

    reg.Pattern = " fk=""([\d\.]+)"""

    Set matchs = reg.Execute(strData)

    Debug.Print matchs(0).SubMatches(0)

End Sub


Private Function getHtmlStr(strUrl As String) As String

    Dim XmlHttp As Object

    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")

    XmlHttp.Open "GET", strUrl, False

    XmlHttp.send

    getHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)

    Set XmlHttp = Nothing

End Function

------解决思路----------------------
'此代码由“正则测试工具  v1.1.35”自动生成，请直接调用TestReg过程

Private Sub TestReg()

    Dim strData As String

    Dim reg As Object

    Dim matchs As Object, match As Object


    strData = getHtmlStr("http://ip.changeip.com")


    Set reg = CreateObject("vbscript.regExp")

    reg.Pattern = "^[\d\.]+"

    Set matchs = reg.Execute(strData)

    Debug.Print matchs(0)

End Sub


Private Function getHtmlStr(strUrl As String) As String

    Dim XmlHttp As Object

    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")

    XmlHttp.Open "GET", strUrl, False

    XmlHttp.send

    getHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)

    Set XmlHttp = Nothing

End Function

用1楼的网址。 要是html代码里没有多余的代码就好了，这样就可以把正则的都拿掉了。