obtener IP

[soru13]

hola, quisiera saber como puedo obtener la IP de mi pc en Visual Basic 6, gracias

[Meg]

añade el control winsock y pon un label por ejemplo
Private sub form_load()
label1.caption = winsock1.localip
en sub
y utiliza el boton de buscar k sto creo k tb esta dixo si no en google seguro k viene 

[WarGhost]

aqui te dejo un cogio para poder conseguir la ip real:

Winsock:

Código [Seleccionar] Expandir

Private Sub Form_Load()
ws.Close
ws.Connect "ip1.dynupdate.no-ip.com", 80
End Sub

Private Sub ws_Connect()
ws.SendData "GET / HTTP/1.0" & vbCrLf & _
"Accept: */*" & vbCrLf & _
"User-Agent: IPLen(By WarGhost)" & vbCrLf & _
"Host: ip1.dynupdate.no-ip.com" & vbCrLf & vbCrLf
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
msgbox Mid(data, InStr(data, vbCrLf & vbCrLf) + 4, Len(data) - InStr(data, vbCrLf & vbCrLf) + 1)
ws.Close
End Sub

INET:

Código [Seleccionar] Expandir

msgbox Inet1.OpenURL("ip1.dynupdate.no-ip.com")

Si el código del INET es mas fácil xDDDD.

Salu2, WarGhost