Red de conocimiento informático - Problemas con los teléfonos móviles - Al depurar un programa que obtiene la dirección IP del servidor a través de un nombre de dominio en VB6.0, el compilador no muestra un error al salir de la interfaz de edición de VB.

Al depurar un programa que obtiene la dirección IP del servidor a través de un nombre de dominio en VB6.0, el compilador no muestra un error al salir de la interfaz de edición de VB.

Hay algunos errores tipográficos en su código, cámbielo a esta

Función GetIP(name As String) As String

'On Error GoTo Err

Dim Hostent_Addr Mientras

Atenuar el host como HOSTENT

Atenuar HostIP_Addr Mientras

Atenuar temp_IP_Address() Como byte

Atenuar i como entero

Dim IP_Address As String

Hostent_ Addr = gethostbyname(nombre)

Si Hostent_Addr = 0 Entonces

GetIP = "El nombre del host no pudo ser resuelto "

Función de salida

Finalizar si

RtlMoveMemory Host, Hostent_Addr, LenB(Host)

RtlMoveMemory HostIP_Addr, Host.hAddrList, 4

ReDim temp_IP_Address(1 To Host.hLength)

RtlMoveMemory temp_IP_Address(1), HostIP_Addr, Host.hLength

Para i = 1 To Host.hLength

Dirección_IP = Dirección_IP amp; dirección_IP_temp(i) amp ".

Siguiente paso

Dirección_IP = Mid(Dirección_IP, 1, Len(Dirección_IP) - 1 )

GetIP = Dirección_IP

Función final