Conocer la IP del equipo II

Con este ejemplo lograremos ver en una etiqueta la dirección IP del equipo, aunque también puede ser guardad en una variable cualquiera o en donde se nos ocurra. Agradecemos a Gabriel Stallo por este truco.

1ro. Agregamos una etiqueta a la que llamaremos Label1 y un control Winsock al que llamaremos Winsock1 dentro del proyecto.

Luego escribiremos el siguiente código en la aplicación:

Private Sub Form_Load()
Label1.Caption = Winsock1.Localip

End Sub

Y solo bastará ejecutar el programa.