Mostrar IP de algun Host

[Rebel001]

Hoal tengo un problema, estoy haciendo un programa que emuestra la IP del Host que se marque en un text box pero al momento de buscarlo no me aparece nada, la verdad estoy empezando en esto del Visual Basic asi que no los aseguro que este muy bien my source pero aqui esta para ver si me pueden auxiliar gracias:

Código:

Private Sub Command1_Click()
Text2.Text = Winsock1.RemoteHostIP
End Sub
Private Sub Command2_Click()
Form2.Show , Me
End Sub
Private Sub Command3_Click()
 Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.RemoteHost = Text1.Text
End Sub

Gracias de nuevo.
Hasta Luego

[maxnet]

hola

el control winsock tiene que estar conectado con un servidor para
mostrarte la ip

la propiedad state de control winsock te devuelve el estado de la conexión

'by maxi
Private Sub Command1_Click()
if winsock1.state=sckconnected then
Text2.Text = Winsock1.RemoteHostIP
else
msgbox "no estas conectado"
end if
End Sub

saludos

[Rebel001]

Muchas gracias pero me podrias decir porfavor algun servidor que haga eso y como hacerlo????


Gracias