Option Explicit
 
 
' Benötigte API-Deklarationen
Private Const WS_VERSION_REQD As Long = &H101
Private Const MAX_WSADescription = 256
Private Const MAX_WSASYSStatus = 128
Private Const ERROR_SUCCESS = 0&
 
Private Type WSAData
  wVersion As Integer
  wHighVersion As Integer
  szDescription(0 To MAX_WSADescription) As Byte
  szSystemStatus(0 To MAX_WSASYSStatus) As Byte
  wMaxSockets As Integer
  wMaxUDPDG As Integer
  dwVendorInfo As Long
End Type
 
Private Type HOSTENT
  hName As Long
  hAliases As Long
  hAddrType As Integer
  hLen As Integer
  hAddrList As Long
End Type
 
Private Declare Function WSAStartup Lib "WSOCK32.DLL" ( _
  ByVal wVersionRequired As Long, _
  lpWSADATA As WSAData) As Long
 
Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
 
Private Declare Function gethostbyname Lib "WSOCK32.DLL" ( _
  ByVal szHost As String) As Long
 
Private Declare Function gethostbyaddr Lib "WSOCK32.DLL" ( _
  lpIP As Long, _
  ByVal nLength As Integer, _
  ByVal nType As Long) As Long
 
Private Declare Function inet_addr Lib "WSOCK32.DLL" _
 (ByVal szIP As String) As Long
 
Private Declare Sub CopyMemory Lib "kernel32" _
  Alias "RtlMoveMemory" ( _
  lpDest As Any, _
  ByVal lpSource As Long, _
  ByVal cbCopy As Long)

- DSL-Network.info -
Deine DSL & Lan-Gaming Community!
Anmelden und mitmachen. Kostenlos.
www.DSL-Network.info