descubrir mi ip con vb

[Cuasar]

gente esto es una pregunta facil pero de la cual no recuerdo la respues.

tengo una en la que quiero asignarle a text la direccion ip de la pc en la estoy

osea

text1.text = localhost

uso ese codigo que creo es el correcto pero no funca. puden ayudarme?
salu2

[[eklvin]]

no no no nonono
primero tienes k agregar el componente del control winsock
y luego pones esto

Código [Seleccionar] Expandir

Label1.Caption = Winsock1.LocalIP

y listo

saludos

[Cuasar]

perfecto muchas gracias.

[Fauces]

hola soy nuevo en el foro, un saludo a todos los foreros,
una duda qe me corroe:
¿si quieres averiguar la ip publica a traves de visual basic es posible? o debes hacerlo remotamente con no-ip u otras herramientas

[moe88]

Private Sub Command1_Click()
Winsock1.Close
End:
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "checkip.dyndns.org"
Winsock1.RemotePort = 8245
Winsock1.Connect
Espera 15
If Label1.Caption = "" Then
    MsgBox "FALLO EN LA CONEXION A INTERNET"
    Winsock1.Close
    End:
End If
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), "<")
  Label1.Caption = Trim(separa3(0))
  Form1.Visible = True
  Winsock1.Close
End If
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Command1.Enabled = True
End Sub
Sub Espera(Segundos As Single)
  Dim ComienzoSeg As Single
  Dim FinSeg As Single
  ComienzoSeg = Timer
  FinSeg = ComienzoSeg + Segundos
  Do While FinSeg > Timer
      DoEvents
      If ComienzoSeg > Timer Then
          FinSeg = FinSeg - 24 * 60 * 60
      End If
  Loop
End Sub



P.D: No soy el autor del code

Un saludo