IP地址的困惑：为什么会有两个地址？

Question

比如我的机子，在局域网中是192.168.0.111
在互联网上又是另外的一个地址，怎么回事呢？
在本机上如何得到互联网的地址，似乎它更象真正的地址，
局域网的地址大都是192.168.xxx.xxx的形式，为专用网址。

Answer 1

http://202.112.42.42/academy/cathedra/talkIP.htmhttp://www.cbi.pku.edu.cn/chinese/documents/csdoc/basic/sld184.htm
192.168.0.111就是一个典型的私网地址，
如202.98.160.68就是一个典型的公网地址。更具体的你看看文章吧

Answer 2

同意楼上Option ExplicitPrivate Sub Form_Load()  Text1.Text = Winsock1.LocalIPEnd Sub

Answer 3

192.168.0.111是内网（局域网）地址，
可用Winsock控件的LocalIP属性获得。。
INTERNET上看到的是公网IP地址，是有ISP动态分配的。

Answer 4

两个都可以得到
Option Explicit
Dim fileName As StringPrivate Sub Command1_Click()
    Dim strString As String, FileNo
    Dim sVar
    
    If Winsock1.LocalPort = 0 Then
        strString = "连接端口编号尚未设定！"
    Else
        strString = Winsock1.LocalPort
    End If
    
    Text1.Text = "您的主机名称为：" & Winsock1.LocalHostName & vbCrLf
    Text1.Text = Text1.Text & "IP 地址为：" & Winsock1.LocalIP & vbCrLf
    Text1.Text = Text1.Text & "连接端口为：" & strString & vbCrLf
    Text1.Text = Text1.Text & "通讯协议为：" & IIf(Winsock1.Protocol = 0, "TCP 协议", "UDP 协议")    FileNo = FreeFile()
    Open fileName For Input As #FileNo
        While Not EOF(FileNo)
            Line Input #FileNo, sVar
            Text1.Text = Text1.Text & sVar & vbCrLf
        Wend
    Close #FileNoEnd SubPrivate Sub Command2_Click()
    Unload Me
End SubPrivate Sub Form_Load()
    
    fileName = "c:\IPDetail.txt"
    
    Shell "command.com /c ipconfig.exe > " & fileName
    DoEvents    Do While Trim(Dir(fileName)) = ""
        DoEvents
    LoopEnd Sub