如何用VB获得网站服务器的外网IP地址?VB程序运行于这台服务器上

解决方案 »

  1.   

    如果是具有外网的合法IP的,可以用API列举本地网卡资源,稍加判断就可以得到外网IP了
      

  2.   

    '先添加一个inet控件Const str1 = "您的真实<b>IP</b> 是:"
    Const str2 = ","Private Sub Form_Load()
        Dim urlstr As String, theip As String, thestart As Long, theend As Long
        'urlstr = Inet1.OpenURL("http://www.bliao.com:2000/ip.phtml")
        thestart = InStr(1, urlstr, str1)
        thestart = thestart + Len(str1)
        theend = InStr(thestart, urlstr, str2)
        theip = Mid(urlstr, thestart, theend - thestart)
        theip = urlstr
        MsgBox "ip地址为" & theip
    End Sub
      

  3.   

    用API列举本地网卡资源的代码有吗?
      

  4.   

    刚做一个源代码放在这里: http://www.51mis.com 下载看一下就知道怎么做了