• Home
 · 
• Miscellaneous
 · 
• To Find IP address given the hostname

To Find IP address given the hostname

To Find IP address given the hostname

Rate To Find IP address given the hostname

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   
   hibyte = akParam \ &H100 And &HFF&
   
End Function

Function lobyte(ByVal akParam As Integer)
   
   lobyte = akParam And &HFF&
   
End Function

Sub SocketsInitialize()
   
   Dim AKSAD As WSADATA
   Dim iReturn As Integer
   Dim sLowByte As String, sHighByte As String, sMsg As String
   
   iReturn = WSAStartup(WS_VERSION_REQD, WSAD)
   
   If iReturn <> 0 Then
      MsgBox "Winsock.dll is not responding."
      End
   End If
   
   If lobyte(AKSAD.wversion) < WS_VERSION_MAJOR Or (lobyte(AKSAD.wversion) = WS_VERSION_MAJOR And hibyte(AKSAD.wversion) < WS_VERSION_MINOR) Then
      sHighByte = Trim$(Str$(hibyte(AKSAD.wversion)))
      sLowByte = Trim$(Str$(lobyte(AKSAD.wversion)))
      sMsg = "Windows Sockets version " & sLowByte & "." & sHighByte
      sMsg = sMsg & " is not supported by winsock.dll "
      MsgBox sMsg
      End
   End If
   
   If AKSAD.iMaxSockets < MIN_SOCKETS_REQD Then
      sMsg = "This application requires a minimum of "
      sMsg = sMsg & Trim$(Str$(MIN_SOCKETS_REQD)) & " supported sockets."
      MsgBox sMsg
      End
   End If
   
End Sub

Sub SocketsCleanup()
   Dim lReturn As Long
   
   lReturn = WSACleanup()
   
   If lReturn <> 0 Then
      MsgBox "Socket error " & Trim$(Str$(lReturn)) & " occurred in Cleanup "
      End
   End If
   
End Sub

Sub Form_Load()
   
   SocketsInitialize
   
End Sub

Private Sub Form_Unload(Cancel As Integer)
   
   SocketsCleanup
   
End Sub

Private Sub Command1_click()
   Dim hostent_addr As Long
   Dim host As HOSTENT
   Dim hostip_addr As Long
   Dim temp_ip_address() As Byte
   Dim i As Integer
   Dim ip_address As String
   
   hostent_addr = gethostbyname(Text1)
   
   If hostent_addr = 0 Then
      MsgBox "Can't resolve name."
      Exit Sub
   End If
   
   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
   
   For i = 1 To host.hLength
      ip_address = ip_address & temp_ip_address(i) & "."
   Next
   ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)
   
   MsgBox ip_address
   
End Sub