home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / open_WinDN554542152002.psc / Module2.bas < prev   
Encoding:
BASIC Source File  |  2002-02-12  |  702 b   |  19 lines
  1. Attribute VB_Name = "Module2"
  2.  
  3. ' *********************************************************
  4. ' * Code was not originally written by me (Master Yoda).  *
  5. ' * I didn't spend a lot of time to fixed up this code so *
  6. ' * feel free to do so if nessesary.                      *
  7. ' *********************************************************
  8.  
  9. Public Const WS_VERSION_REQD = &H101
  10. Public Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100 And &HFF&
  11. Public Const WS_VERSION_MINOR = WS_VERSION_REQD And &HFF&
  12. Public Const MIN_SOCKETS_REQD = 1
  13. Public Const SOCKET_ERROR = -1
  14. Public Const WSADescription_Len = 256
  15. Public Const WSASYS_Status_Len = 128
  16.  
  17. Public Type HOSTENT
  18.     hName As Long
  19.     hAliases