module1.bas

来自「主要是网络和数据库的一些东东」· BAS 代码 · 共 50 行

Attribute VB_Name = "Module1"
Public Const WS_VERSION_REQD = &H101
Public Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100 And &HFF&
Public Const WS_VERSION_MINOR = WS_VERSION_REQD And &HFF&
Public Const MIN_SOCKETS_REQD = 1
Public Const SOCKET_ERROR = -1
Public Const WSADescription_Len = 256
Public Const WSASYS_Status_Len = 128

Public Type HOSTENT
   hName As Long
   hAliases As Long
   hAddrType As Integer
   hLength As Integer
   hAddrList As Long
End Type

Public Type WSADATA
   wversion As Integer
   wHighVersion As Integer
   szDescription(0 To WSADescription_Len) As Byte
   szSystemStatus(0 To WSASYS_Status_Len) As Byte
   iMaxSockets As Integer
   iMaxUdpDg As Integer
   lpszVendorInfo As Long
End Type

Public Declare Function WSAGetLastError Lib "WSOCK32.DLL" () As Long

Public Declare Function WSAStartup Lib "WSOCK32.DLL" _
    (ByVal wVersionRequired&, _
    lpWSAData As WSADATA) _
    As Long

Public Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long

Public Declare Function gethostbyname Lib "WSOCK32.DLL" _
    (ByVal hostname$) As Long
    
Public Declare Sub RtlMoveMemory Lib "kernel32" _
    (hpvDest As Any, _
    ByVal hpvSource&, _
    ByVal cbCopy&)
    
Public Declare Function GetComputerName Lib _
    "kernel32" Alias "GetComputerNameA" _
    (ByVal lpBuffer As String, _
    nSize As Long) _
    As Long