resolver ip publica

[GabrielDR]

Me imagino que lo que necesitas es saber que IP publica manejas, usando un programa VB.
Una forma sencilla seria conectarte a un servidor WEB, para que te de la ip... y luego de ahi.. eliminar el texto de manera que puedas saber tu ip.
No se si buscas algun metodo especial... el mas comun...

Private Sub Command1_Click()
Winsock1.Connect
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "checkip.dyndns.org"
Winsock1.RemotePort = 8245
End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData "GET / HTTP/1.1" & vbCrLf & vbCrLf
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Datos
Winsock1.GetData Datos, vbString
If Datos Like "*Current IP*" Then
separa1 = Split(Datos, ">")
separa2 = Split(separa1(6), ":")
separa3 = Split(separa2(1), "<")
MsgBox "Tu IP publica es : " & Trim(separa3(0))
End If
End Sub