Socket Api模块.docVIP

Option Explicit Public Const WINSOCK_MESSAGE As Long = 1025 Public Const FD_SETSIZE = 64 Type IN_ADDR S_un_b(1 To 4) As Byte S_un_w(1 To 2) As Integer S_addr As Long End Type Type fd_set fd_count As Integer fd_array(FD_SETSIZE) As Integer End Type Type timeval tv_sec As Long tv_usec As Long End Type Type HostEnt h_name As Long h_aliases As Long h_addrtype As Integer h_length As Integer h_addr_list As Long End Type Public Const hostent_size = 16 Type servent s_name As Long s_aliases As Long s_port As Integer s_proto As Long End Type Public Const servent_size = 14 Type protoent p_name As Long p_aliases As Long p_proto As Integer End Type Public Const protoent_size = 10 Public Const IPPROTO_TCP = 6 Public Const IPPROTO_UDP = 17 Public Const INADDR_NONE = HFFFF Public Const INADDR_ANY = H0 Type sockaddr sin_family As Integer sin_port As Integer sin_addr As Long sin_zero As String * 8 End Type Public Const sockaddr_size = 16 Public saZero As sockaddr Public Const WSA_DESCRIPTIONLEN = 256 Public Const WSA_DescriptionSize = WSA_DESCRIPTIONLEN + 1 Public Const WSA_SYS_STATUS_LEN = 128 Public Const WSA_SysStatusSize = WSA_SYS_STATUS_LEN + 1 Type WSADataType wVersion As Integer wHighVersion As Integer szDescription As String * WSA_DescriptionSize szSystemStatus As String * WSA_SysStatusSize iMaxSockets As Integer iMaxUdpDg As Integer lpVendorInfo As Long End Type Public Const INVALID_SOCKET = -1 Public Const SOCKET_ERROR = -1 Public Const SOCK_STREAM = 1 Public Const SOCK_DGRAM = 2 Public Const MAXGETHOSTSTRUCT = 1024 Public Const AF_INET = 2 Public Const PF_INET = 2 Type LingerType l_onoff As Integer l_linger As Integer End Type #If Win16 Then ---Windows System functions(windows系统函数) 发送消息函数，把一条消息放到创建hwnd窗口的线程队列中，函数不等待消息被处理就马上将控制返回。 Public Declare Function PostMessage Lib User (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Integer 由src所指内存区域复制count个字节到dest所指内存区域,src和dest所指内存区域不能重叠，函数返回指向dest的指针。 Public Declare Sub MemCopy Lib Kernel