VB API WINSOCK.docVIP

VB API WINSOCK vb WinSockAPI的使用 WinSockAPI的使用 1.WSAStartup 函数 为了在你的应用程序当中调用任何一个Winsock API 函数，首先第一件事情你就是必须通过WSAStartup函数完成对Winsock 服务的初始化，因此需要调用WSAStartup函数。 Declare Function WSAStartup Lib ws2_32.dll _ (ByVal wVersionRequired As Long, lpWSAData As WSAData) As Long 这个函数有两个参数： wVersionRequired 和 lpWSAData。wVersionRequired 参数定义Windows Sockets 提供能使用的最高版本，它的高位字节定义的是次版本号，低位字节定义的是主版本号。下面的2个Winsock版本在VB中使用的例子： 初始化1.1版本 lngRetVal = WSAStartup(H101, udtWinsockData) 初始化2.2版本 lngRetVal = WSAStartup(H202, udtWinsockData) 第二个参数是WSADATA 的数据结构 ，它是接收Windows Sockets 执行时的数据。 Type WSAData wVersion As Integer wHighVersion As Integer szDescription As String * WSADESCRIPTION_LEN szSystemStatus As String * WSASYS_STATUS_LEN iMaxSockets As Integer iMaxUdpDg As Integer lpVendorInfo As Long End Type 数据成员的描述在下表中： Field 描述 wVersion Windows Sockets 版本信息。 wHighVersion 通过加载库文件得到的最高的支持Winsock 的版本， 它通常和wVersion值相同。 szDescription Windows Sockets 执行时的详细描述 szSystemStatus 包含了相关的状态和配置的信息 iMaxSockets 表示同时打开的socket最大数，为0表示没有限制。 iMaxUdpDg 表示同时打开的数据报最大数，为0表示没有限制。 lpVendorInfo 厂商指定信息预留 在Winsock的1.1和2.2版本中没有lpVendorInfo的返回值。因为winsock 2支持多个传输协议，所以iMaxSockets 和iMaxUdpDg只能在仅支持TCP/TP的winsock1.1中使用。为了在Winsock 2中获得这些值，你可以使用WSAEnumProtocols 函数。 如果成功或者返回一个错误代码，则函数返回 0。 错误代码 含义 WSASYSNOTREADY 指出网络没有为传输准备好。 WSAVERNOTSUPPORTED 当前的WinSock实现不支持应用程序指定的Windows Sockets规范版本 WSAEINPROGRESS 一个阻塞WinSock调用正在进行 WSAEPROCLIM 请求的协议没有在系统中配置或没有支持它的实现存在。 WSAEFAULT lpWSAData 不是有效的指针 2.WSACleanup 函数 每次调用了WSAStartup函数，你都需要调用WSACleanup函数，通知系统来卸载库文件及清除已分配的资源，这个函数十分简单，没有任何参数： Declare Function WSACleanup Lib ws2_32.dll () As Long 3.建立Socket函数 Declare Function socket Lib ws2_32.dll (ByVal af As Long, _ ByVal