Internet - Returning host name from WinSock

'Description: Asynchronous routine which returns the true host name given
' an IP address, or Web address.

'Usage
'Handle = WSAAsyncGetHostByNameAlias(Text1.hWnd, &H202, "www.justvb.net")

'Public Function WSAAsyncGetHostByNameAlias(hWnd As Integer, wMsg As Integer, Host As String) As Long
Dim retIP As Long
retIP = inet_addr(Host)
If retIP = INADDR_NONE Then
retIP = WSAAsyncGetHostByName(hWnd, wMsg, Host, hostentbuffer, hostentasync_size)
Else
retIP = WSAAsyncGetHostByAddr(hWnd, wMsg, retIP, 4, AF_INET, hostentbuffer, hostentasync_size)
End If
WSAAsyncGetHostByNameAlias = retIP
'End Function