Lo primero que devemos de hacer es abrir nuestro programador visual basic 6.0
luego Creamos un exe estandard
Despues en nuestra barra de componentes le damos boton derecho
Components.... y buscamos Microsoft Winsock Control 6.0 (SP6) y habilitamos la casilla de verificacion y le damos Aceptar
Despues le damos clic al icono de el Winsock y creamos uno en nuestra area de trabajo (ponlo en donde sea al fin que no se ve al executarlo)
Despues creamos un TextBox o (Caja de Texto).
Y la tabla de propiedades quedaria de la siguiente manera.....[/b][/i]
__________________________________
Control Propiedad Valor
Form1 Name Form1
Caption Detecta IP Local
BorderStyle 5-sizable Tool Windows
BackColor &H80000008&
------------------------------------------------
Winsock1 Name Winsock1
------------------------------------------------
Text1 Name Text1
BackColor &H80000008&
ForeColor &H00FF00FF&
Text No se pone nada
__________________________________
Y el codigo de fuente seria el siguiente
Código:
Private Sub Form_Load()
Text1 = Winsock1.LocalIP
End Sub
Y ahora solo ponle el signo de play para provarlo y listo jejejeje
y para hacer el exe vete a menú>File>Make Project1.exe.......
y ya estufas jejejeje