¿Cómo obtener la dirección IP local usando VB 6.0?

Categoría: Computadora/Red >> Programación >> Otros lenguajes de programación

Descripción del problema:

Por favor dígame cómo usar VB6.0 para obtener la dirección IP local Escriba comentarios, es mejor si el código es simple y fácil de entender.

Gracias, estoy muy ansioso, esperando en línea

Análisis:

Private Sub Command1_Click()

Atenuar aa como cadena

Atenuar strLocalIP como cadena

Atenuar winIP como objeto

aa = aa & "Nombre de computadora local:" & Environ( "nombre de computadora") & vbCrLf

aa = aa & "Nombre de usuario local:" & Environ("nombre de usuario") & vbCrLf

Establecer winIP = CreateObject("MSWinsock.Winsock")

strLocalIP = winIP.localip

MsgBox aa & "LocalIP:" & strLocalIP

End Sub