极语言6-20 ws2_32开源库源码

常数库：
常量 SOCK_STREAM = 1;
常量 SOCK_DGRAM = 2;
常量 SOCK_RAW = 3;
常量 SOCK_RDM = 4;
常量 SOCK_SEQPACKET = 5;
常量 SO_DEBUG =$0001;
常量 SO_ACCEPTCONN =$0002;
常量 SO_REUSEADDR =$0004;
常量 SO_KEEPALIVE =$0008;
常量 SO_DONTROUTE =$0010;
常量 SO_BROADCAST =$0020;
常量 SO_USELOOPBACK=$0040;
常量 SO_LINGER =$0080;
常量 SO_OOBINLINE =$0100;
常量 SO_DONTLINGER =$0080;
常量 SO_SNDBUF =$1001;
常量 SO_RCVBUF =$1002;
常量 SO_SNDLOWAT =$1003;
常量 SO_RCVLOWAT =$1004;
常量 SO_SNDTIMEO =$1005;
常量 SO_RCVTIMEO =$1006;
常量 SO_ERROR =$1007;
常量 SO_TYPE =$1008;
常量 SO_GROUP_ID =$2001;
常量 SO_GROUP_PRIORITY=$2002;
常量 SO_MAX_MSG_SIZE =$2003;
常量 SO_PROTOCOL_INFOA=$2004;
常量 SO_PROTOCOL_INFOW=$2005;
常量 PVD_CONFIG =$3001;
常量 TCP_NODELAY =$0001;
常量 IP_OPTIONS =1;
常量 IP_MULTICAST_IF =2;
常量 IP_MULTICAST_TTL =3;
常量 IP_MULTICAST_LOOP =4;
常量 IP_ADD_MEMBERSHIP =5;
常量 IP_DROP_MEMBERSHIP =6;
常量 IP_TTL =7;
常量 IP_TOS =8;
常量 IP_DONTFRAGMENT =9;
常量 AF_UNSPEC = 0;
常量 AF_UNIX = 1;
常量 AF_INET = 2;
常量 AF_IMPLINK = 3;
常量 AF_PUP = 4;
常量 AF_CHAOS = 5;
常量 AF_NS = 6;
常量 AF_IPX = 6;
常量 AF_ISO = 7;
常量 AF_OSI = AF_ISO;
常量 AF_ECMA = 8;
常量 AF_DATAKIT = 9;
常量 AF_CCITT = 10;
常量 AF_SNA = 11;
常量 AF_DECnet = 12;
常量 AF_DLI = 13;
常量 AF_LAT = 14;
常量 AF_HYLINK = 15;
常量 AF_APPLETALK = 16;
常量 AF_NETBIOS = 17;
常量 PF_UNSPEC = 0;
常量 PF_UNIX = 1;
常量 PF_INET = 2;
常量 PF_IMPLINK = 3;
常量 PF_PUP = 4;
常量 PF_CHAOS = 5;
常量 PF_NS = 6;
常量 PF_IPX = 6;
常量 PF_ISO = 7;
常量 PF_OSI = PF_ISO;
常量 PF_ECMA = 8;
常量 PF_DATAKIT = 9;
常量 PF_CCITT = 10;
常量 PF_SNA = 11;
常量 PF_DECnet = 12;
常量 PF_DLI = 13;
常量 PF_LAT = 14;
常量 PF_HYLINK = 15;
常量 PF_APPLETALK = 16;
常量 PF_NETBIOS = 17;
常量 IPPORT_ECHO = 7;
常量 IPPORT_DISCARD = 9;
常量 IPPORT_SYSTAT = 11;
常量 IPPORT_DAYTIME = 13;
常量 IPPORT_NETSTAT = 15;
常量 IPPORT_FTP = 21;
常量 IPPORT_TELNET = 23;
常量 IPPORT_SMTP = 25;
常量 IPPORT_TIMESERVER = 37;
常量 IPPORT_NAMESERVER = 42;
常量 IPPORT_WHOIS = 43;
常量 IPPORT_MTP = 57;
常量 IPPORT_TFTP = 69;
常量 IPPORT_RJE = 77;
常量 IPPORT_FINGER = 79;
常量 IPPORT_TTYLINK = 87;
常量 IPPORT_SUPDUP = 95;
常量 IPPORT_EXECSERVER = 512;
常量 IPPORT_LOGINSERVER = 513;
常量 IPPORT_CMDSERVER = 514;
常量 IPPORT_EFSSERVER = 520;
常量 IPPORT_BIFFUDP = 512;
常量 IPPORT_WHOSERVER = 513;
常量 IPPORT_ROUTESERVER = 520;
常量 IPPORT_RESERVED = 1024;
常量 FD_READ = $01;
常量 FD_WRITE = $02;
常量 FD_OOB = $04;
常量 FD_ACCEPT = $08;
常量 FD_CONNECT = $10;
常量 FD_CLOSE = $20;
常量 IPPROTO_UDP = 17;
常量 AF_INET = 2;
常量 IPPROTO_TCP = 6;
常量 接口读 = $01;
常量 接口写 = $02;
常量 接口读外 = $04;
常量 接口请求 = $08;
常量 接口连接 = $10;
常量 接口关闭 = $20;
常量 本地型=1;
常量 网络型=2;
常量 数据流=1;
常量 数据报=2;
常量 流协议=6;
常量 报协议=17;
常量 接口选项 =1;
常量 多播接口 =2;
常量 多播时间 =3;
常量 多播回送 =4;
常量 添加多播 =5;
常量 删除多播 =6;
常量 存包时间 =7;
常量 服务选项 =8;
常量 不要分段 =9;
常量 接口调试 =$0001;
常量 是否侦听 =$0002;
常量 地址重用 =$0004;
常量 保持连接 =$0008;
常量 不要路由 =$0010;
常量 允许广播 =$0020;
常量 地址回送 =$0040;
常量 延迟关闭 =$0080;
常量 边界数据 =$0100;
常量 发送缓冲 =$1001;
常量 接收缓冲 =$1002;
常量 最小发送 =$1003;
常量 最小接收 =$1004;
常量 发送超时 =$1005;
常量 接收超时 =$1006;
常量 接口错误 =$1007;
常量 接口类型 =$1008;

类型库：
type WSADATA {
整形 wVersion,wHighVersion;
文本 szDescription[257],szSystemStatus[129];
整数 iMaxSockets,lpVendorInfo;
}

type hostent {
整数 h_name,h_aliases,h_addrtype,h_length,h_addr_list;
}

type sockaddr_in {
整形 sin_family,sin_port;
整数 sin_addr;
文本 sin_zero[8];
}

type sockaddr {
整形 sa_family;
文本 sa_data[14];}
类型 地址类{正整形 协议,端口;整数 地址,预留,备用;}

函数库：
导入 接受 别名 accept lib "ws2_32.dll",3;
导入 绑定 别名 bind lib "ws2_32.dll",3;
导入 关闭 别名 closesocket lib "ws2_32.dll",1;
导入 连网 别名 connect lib "ws2_32.dll",3;
导入 远程地址 别名 getpeername lib "ws2_32.dll",3;
导入 本机地址 别名 getsockname lib "ws2_32.dll",3;
导入 接口选项 别名 getsockopt lib "ws2_32.dll",5;
导入 反整数 别名 htonl lib "ws2_32.dll",1;
导入 反转 别名 htons lib "ws2_32.dll",1;
导入 控制模式 别名 ioctlsocket lib "ws2_32.dll",3;
导入 转换地址 别名 inet_addr lib "ws2_32.dll",1;
导入 地址转换 别名 inet_ntoa lib "ws2_32.dll",1;
导入 监听 别名 listen lib "ws2_32.dll",2;
导入 整数反转 别名 ntohl lib "ws2_32.dll",1;
导入 整形反转 别名 ntohs lib "ws2_32.dll",1;
导入 接收 别名 recv lib "ws2_32.dll",4;
导入 收取 别名 recvfrom lib "ws2_32.dll",6;
导入 轮询 别名 select lib "ws2_32.dll",5;
导入 发送 别名 send lib "ws2_32.dll",4;
导入 发到 别名 sendto lib "ws2_32.dll",6;
导入 设置接口 别名 setsockopt lib "ws2_32.dll",5;
导入 禁止 别名 shutdown lib "ws2_32.dll",2;
导入 分配 别名 socket lib "ws2_32.dll",3;
导入 主机信息 别名 gethostbyaddr lib "ws2_32.dll",3;
导入 解析域名 别名 gethostbyname lib "ws2_32.dll",1;
导入 解析协议 别名 getprotobyname lib "ws2_32.dll",1;
导入 获取协议 别名 getprotobynumber lib "ws2_32.dll",1;
导入 服务信息 别名 getservbyname lib "ws2_32.dll",2;
导入 服务端口 别名 getservbyport lib "ws2_32.dll",2;
导入 取主机名 别名 gethostname lib "ws2_32.dll",2;
导入 异步通知 别名 WSAAsyncSelect lib "ws2_32.dll",4;
导入 WSAAsyncGetHostByAddr lib "ws2_32.dll",7;
导入 异步域名 别名 WSAAsyncGetHostByName lib "ws2_32.dll",5;
导入 WSAAsyncGetProtoByNumber lib "ws2_32.dll",5;
导入 WSAAsyncGetProtoByName lib "ws2_32.dll",5;
导入 WSAAsyncGetServByPort lib "ws2_32.dll",6;
导入 WSAAsyncGetServByName lib "ws2_32.dll",6;
导入 取消异步 别名 WSACancelAsyncRequest lib "ws2_32.dll",1;
导入 WSASetBlockingHook lib "ws2_32.dll",1;
导入 WSAUnhookBlockingHook lib "ws2_32.dll",0;
导入 网络错误 别名 WSAGetLastError lib "ws2_32.dll",0;
导入 设置错码 别名 WSASetLastError lib "ws2_32.dll",1;
导入 WSACancelBlockingCall lib "ws2_32.dll",0;
导入 WSAIsBlocking lib "ws2_32.dll",0;
导入 网络启动 别名 WSAStartup lib "ws2_32.dll",2;
导入 网络终止 别名 WSACleanup lib "ws2_32.dll",0;
导入 WSAAccept lib "ws2_32.dll",5;
导入 关闭事件 别名 WSACloseEvent lib "ws2_32.dll",1;
导入 WSAConnect lib "ws2_32.dll",7;
导入 异步事件 别名 WSACreateEvent lib "ws2_32.dll",0;
导入 WSADuplicateSocket ascii lib "ws2_32.dll",3;
导入 WSADuplicateSocketW lib "ws2_32.dll",3;
导入 事件记录 别名 WSAEnumNetworkEvents lib "ws2_32.dll",3;
导入 WSAEnumProtocols ascii lib "ws2_32.dll",3;
导入 WSAEnumProtocolsW lib "ws2_32.dll",3;
导入 关联事件 别名 WSAEventSelect lib "ws2_32.dll",3;
导入 WSAGetOverlappedResult lib "ws2_32.dll",5;
导入 WSAGetQOSByName lib "ws2_32.dll",3;
导入 WSAHtonl lib "ws2_32.dll",3;
导入 WSAHtons lib "ws2_32.dll",3;
导入 WSAIoctl lib "ws2_32.dll",9;
导入 WSAJoinLeaf lib "ws2_32.dll",8;
导入 WSANtohl lib "ws2_32.dll",3;
导入 WSANtohs lib "ws2_32.dll",3;
导入 接收数据 别名 WSARecv lib "ws2_32.dll",7;
导入 WSARecvDisconnect lib "ws2_32.dll",2;
导入 WSARecvFrom lib "ws2_32.dll",9;
导入 闲置事件 别名 WSAResetEvent lib "ws2_32.dll",1;
导入 发送数据 别名 WSASend lib "ws2_32.dll",7;
导入 WSASendDisconnect lib "ws2_32.dll",2;
导入 WSASendTo lib "ws2_32.dll",9;
导入 WSASetEvent lib "ws2_32.dll",1;
导入 WSASocket ascii lib "ws2_32.dll",6;
导入 WSASocketW lib "ws2_32.dll",6;
导入 WSAWaitForMultipleEvents lib "ws2_32.dll",5;
导入 WSAAddressToString ascii lib "ws2_32.dll",5;
导入 WSAAddressToStringW lib "ws2_32.dll",5;
导入 WSAStringToAddress ascii lib "ws2_32.dll",5;
导入 WSAStringToAddressW lib "ws2_32.dll",5;
导入 WSALookupServiceBegin ascii lib "ws2_32.dll",3;
导入 WSALookupServiceBeginW lib "ws2_32.dll",3;
导入 WSALookupServiceNext ascii lib "ws2_32.dll",4;
导入 WSALookupServiceNextW lib "ws2_32.dll",4;
导入 WSALookupServiceEnd lib "ws2_32.dll",1;
导入 WSAInstallServiceClass ascii lib "ws2_32.dll",1;
导入 WSAInstallServiceClassW lib "ws2_32.dll",1;
导入 WSARemoveServiceClass lib "ws2_32.dll",1;
导入 WSAGetServiceClassInfo ascii lib "ws2_32.dll",4;
导入 WSAGetServiceClassInfoW lib "ws2_32.dll",4;
导入 WSAEnumNameSpaceProviders ascii lib "ws2_32.dll",2;
导入 WSAEnumNameSpaceProvidersW lib "ws2_32.dll",2;
导入 WSAGetServiceClassNameByClassId ascii lib "ws2_32.dll",3;
导入 WSAGetServiceClassNameByClassIdW lib "ws2_32.dll",3;
导入 WSASetService ascii lib "ws2_32.dll",3;
导入 WSASetServiceW lib "ws2_32.dll",3;
导入 WSCDeinstallProvider lib "ws2_32.dll",2;
导入 WSCInstallProvider lib "ws2_32.dll",5;
导入 WSCEnumProtocols lib "ws2_32.dll",4;
导入 WSCGetProviderPath lib "ws2_32.dll",4;
导入 WSCInstallNameSpace lib "ws2_32.dll",5;
导入 WSCUnInstallNameSpace lib "ws2_32.dll",1;
导入 WSCEnableNSProvider lib "ws2_32.dll",2;
导入 WSApSetPostRoutine lib "ws2_32.dll",2;
导入 WPUCompleteOverlappedRequest lib "ws2_32.dll",5;
导入 WSAProviderConfigChange lib "ws2_32.dll",3;