如何编程获得网关的IP地址

Question

我想通过编程获取广域网的IP地址,怎么做呀?

Answer 1

直接获得我不会，我只会绕着获得就是
在公网有个ip，叫他连接我的公网ip那样我就获得它的公网ip

Answer 2

用udp协议怎么样
服务器，有公网ip
添加1个socket控件 win1Private Sub Form_Load()
Win1.LocalPort = 1001
Win1.Bind
End SubPrivate Sub Win1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Win1.GetData str
If str = "ok" Then
    '打印的是路由器ip
    MsgBox Win1.RemoteHostIP
End If
End Sub
客户端，没有公网ip
添加1个socket控件 win1Private Sub Form_Load()
Win1.LocalIP = 0
'这里是服务器ip
Win1.RemoteHost = "192.168.0.1"
Win1.RemotePort = 1001
Win1.SendData "ok"
End Sub