WinSock控件的使用

二，WinSock控件的使用1.WinSock控件的主要属性a.Protocol属性通过P rotoc ol属性可以设置WinSock控件连接远程计算机使用的协议。

可选的协议是TCP和UDP对应的V B的常量分别是sckTCPProtocol和sckUDPProtoc ol，Wins oc k控件默认协议是TCP。

注意：虽然可以在运行时设置协议，但必须在连接未建立或断开连接后。

b.SocketHandle属性Soc ketHandle返回当前s ocket连接的句柄，这是只读属性。

c.RemoteHostIP属性RemoteH ostIP属性返回远程计算机的I P地址。

在客户端，当使用了控件的C onnect方法后，远程计算机的I P地址就赋给了RemoteH ostIP属性，而在服务器端，当C onnec tReques t事件后，远程计算机（客户端）的I P地址就赋给了这个属性。

如果使用的是U DP协议那么当DataArrival事件后，发送U DP报文的计算机的IP才赋给了这个属性。

d.ByteReceived属性返回当前接收缓冲区中的字节数e.State属性返回WinSoc k控件当前的状态常数值描述s ckC los ed 0缺省值，关闭。

Sc kOpen 1打开。

Sc kListening 2侦听s ckC onnec tionPending 3连接挂起s ckRes olvingH ost 4识别主机。

s ckHos tResolved 5已识别主机s ckC onnec ting 6正在连接。

s ckC onnec ted 7已连接。

s ckC los ing 8同级人员正在关闭连接。

s ckE rror 9错误2.WinSock主要方法a.Bind方法用Bind方法可以把一个端口号固定为本控件使用，使得别的应用程序不能再使用这个端口。

b.Listen方法Lis ten方法只在使用TCP协议时有用。

它将应用程序置于监听检测状态。

c.Connect方法当本地计算机希望和远程计算机建立连接时，就可以调用C onnect方法。

C onnec t方法调用的规范为：C onnect RemoteH os t,RemotePortd.Accept方法当服务器接收到客户端的连接请求后，服务器有权决定是否接受客户端的请求。

e.SendData方法当连接建立后，要发送数据就可以调用SendData方法，该方法只有一个参数，就是要发送的数据。

f.GetData方法当本地计算机接收到远程计算机的数据时，数据存放在缓冲区中，要从缓冲区中取出数据，可以使用GetData方法。

GetData方法调用规范如下：GetData data,[type,][maxLen]它从缓冲区中取得最长为maxLen的数据，并以type类型存放在data中，GetData取得数据后，就把相应的缓冲区清空。

g.PeekData方法和GetData方法类似，但P eekData在取得数据后并不把缓冲区清空。

3.Winsock控件主要事件a.ConnectRequest事件当本地计算机接收到远程计算机发送的连接请求时，控件的C onnectRequest事件将会被触发。

b.SendProgress事件当一端的计算机正在向另一端的计算机发送数据时，SendP rogress事件将被触发。

SendP rogress事件记录了当前状态下已发送的字节数和剩余字节数。

c.SendComplete事件当所有数据发送完成时，被触发。

d.DataArrival事件当建立连接后，接受到了新数据就会触发这个事件。

注意：如果在接受到新数据前，缓冲区中非空，就不会触发这个事件。

e.Error事件当在工作中发生任何错误都会触发这个事件。

例子见附件三，WinSockAPI的使用1.WSAStartup 函数为了在你的应用程序当中调用任何一个Wins oc k API函数，首先第一件事情你就是必须通过WSAStartup函数完成对Wins ock 服务的初始化，因此需要调用WSA Startup函数。

Declare Function WSAStartup Lib "ws2_32.dll" _(ByV al w V ersionRequired As Long, lpWSAData As WSAData) As Long这个函数有两个参数：wVers ionRequired 和 lpWSAData。

w Vers ionRequired 参数定义Windows Soc kets提供能使用的最高版本，它的高位字节定义的是次版本号，低位字节定义的是主版本号。

下面的2个Wins oc k版本在V B中使用的例子：初始化1.1版本lngRetVal = WSAStartup(&H101, udtWinsoc kData)初始化2.2版本lngRetVal = WSAStartup(&H202, udtWinsoc kData)第二个参数是WSADATA的数据结构，它是接收Windows Sockets执行时的数据。

Type WSADatawVers ion As I ntegerwH ighVersion As I ntegers zDescription As String * WSADESCRIPTION_LENs zSystemStatus As String * WSASYS_STATUS_LENiM axSockets As I ntegeriM axUdpDg As I ntegerlpVendorI nfo As LongE nd Type数据成员的描述在下表中：Field 描述wVers ion Windows Sockets版本信息。

wH ighVers ion 通过加载库文件得到的最高的支持Wins ock 的版本，它通常和wVers ion值相同。

s zDescription Windows Sockets执行时的详细描述s zSystemStatus包含了相关的状态和配置的信息iM axSockets表示同时打开的s oc ket最大数，为0表示没有限制。

iM axUdpDg 表示同时打开的数据报最大数，为0表示没有限制。

lpVendorI nfo 厂商指定信息预留在Winsock的1.1和2.2版本中没有lpVendorI nfo的返回值。

因为wins ock 2支持多个传输协议，所以iM axSockets和iM axUdpDg 只能在仅支持TCP/TP的winsoc k1.1中使用。

为了在Wins oc k 2中获得这些值，你可以使用WSAEnumP rotoc ols函数。

如果成功或者返回一个错误代码，则函数返回 0。

错误代码含义WSASYSNOTREADY 指出网络没有为传输准备好。

WSAVERNOTSUPPORTED 当前的WinSoc k实现不支持应用程序指定的Windows Sockets规范版本WSAEINPROGRESS 一个阻塞WinSoc k调用正在进行WSAEPROCLIM 请求的协议没有在系统中配置或没有支持它的实现存在。

WSAEFAULT lpWSAData 不是有效的指针2.WSACleanup 函数每次调用了WSAStartup函数，你都需要调用WSACleanup函数，通知系统来卸载库文件及清除已分配的资源，这个函数十分简单，没有任何参数：Declare Function WSACleanup Lib "ws2_32.dll" () As Long3.建立Socket函数Declare Function soc ket Lib "ws2_32.dll" (ByVal af As Long, _ByV al s_type As Long,ByV al P rotoc ol As Long) As Long函数有3个参数定义建立何种s oc ket，三个参数分别是：Argument Desc ription E num Typeaf A ddress family specific ation. A ddressFamilys_type Type s pecification for the new s ocket. SocketTypeP rotocol P rotocol to be us ed with the s ocket Soc ketP rotocolthat is specific to the indic ated addressfamily.AddressFamily:A F_UNSPEC = 0 '/* uns pec if ied */A F_UNIX = 1 '/* loc al to host (pipes, portals) */A F_INET = 2 '/* internetwork: U DP, TCP, etc. */A F_IMPLINK = 3 '/* arpanet imp addresses*/A F_PUP = 4 '/* pup protoc ols: e.g. BSP*/A F_CHAOS = 5 '/* mit CHAOS protoc ols */A F_NS = 6 '/* XEROX N S protocols*/A F_IPX = A F_NS '/* IPX protocols: IPX, SPX, etc. */A F_ISO = 7 '/* ISO protocols*/A F_OSI = AF_I SO '/*O SI is ISO*/A F_ECMA = 8 '/* european c omputer manufacturers*/A F_DATAKIT = 9 '/* datakit protoc ols*/A F_CCITT = 10 '/* CCITT protoc ols, X.25 etc*/A F_SNA = 11 '/* IBM SNA*/A F_DECnet = 12 '/* DEC net */A F_DLI = 13 '/* Direct data link interface */A F_LAT = 14 '/* LAT*/A F_HYLINK = 15 '/* NSC Hyperc hannel */A F_APPLETALK = 16 '/*A pple Talk */A F_NETBIOS = 17 '/* NetBios-style addresses*/A F_VOICEVIEW = 18 '/*V oic eView */A F_FI REFOX = 19 '/* P rotoc ols from Firefox */A F_UNKNO WN1 = 20 '/* Somebody is us ing this!*/A F_BAN = 21 '/* Banyan */A F_ATM = 22 '/* N ative ATM Services*/A F_INET6 = 23 '/* I nternetwork Vers ion 6 */A F_CLUSTER = 24 '/* Mic rosoft Wolfpac k */A F_12844 = 25 '/* IEEE1284.4 WG AF */A F_MAX = 26Socket types:SOCK_STREAM = 1 ' /* s tream s ocket */SOCK_DGRAM = 2 ' /* datagram s ocket */SOCK_RA W = 3 ' /* raw-protoc ol interf ac e */SOCK_RDM = 4 ' /* reliably-delivered message */SOCK_SEQPACKET = 5 ' /*sequenc ed pac ket s tream */P rotocols:I PPROTO_IP = 0 '/* dummy for IP*/I PPROTO_ICMP = 1 '/* c ontrol mess age protoc ol */I PPROTO_IGMP = 2 '/* internet group management protoc ol */ I PPROTO_GGP = 3 '/* gateway^2 (deprec ated) */I PPROTO_TCP = 6 '/* tc p */I PPROTO_PUP = 12 '/* pup */I PPROTO_UDP = 17 '/* user datagram protocol */I PPROTO_IDP = 22 '/* xns idp */I PPROTO_ND = 77 '/* UNOFFICIAL net disk proto */I PPROTO_RA W = 255 '/* raw IP pac ket */I PPROTO_MAX = 256该函数可以建立使用特定协议的网络套接字，例如对于U DP协议可以这样写：s=s ocket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)s=s ocket(AF_INET, SOCK_ST REAM, IPPROTO_TCP)4.关闭Socket函数Declare Function closes ocket Lib "w s2_32.dll" (ByVal s As Long) As Long函数有一个参数为建立s oc ket时的H andle5.连接函数Declare Function connect Lib "w s2_32.dll" (ByVal s As Long, _ByRef name As soc kaddr_in, _ByVal namelen As Long) As Long参数s连接的s ocket句柄。