VB网络编程--WinSock控件及WinSockAPI

初始化1.1版本
lngRetVal = WSAStartup(&H101, udtWinsockData)
初始化2.2版本
lngRetVal = WSAStartup(&H202, udtWinsockData)
第二个参数是WSADATA 的数据结构 ，它是接收Windows Sockets 执行时的数据。
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规范版本
b.SocketHandle属性
SocketHandle返回当前socket连接的句柄，这是只读属性。
c.RemoteHostIP属性
RemoteHostIP属性返回远程计算机的IP地址。在客户端，当使用了控件的Connect方法后，远程计算机的IP地址就赋给了RemoteHostIP属性，而在服务器端，当ConnectRequest事件后，远程计算机（客户端）的IP地址就赋给了这个属性。如果使用的是UDP协议那么当DataArrival事件后，发送UDP报文的计算机的IP才赋给了这个属性。
s_type Type specification for the new socket. SocketType
Protocol Protocol to be used with the socket SocketProtocol
WSAEINPROGRESS 一个阻塞WinSock调用正在进行
WSAEPROCLIM 请求的协议没有在系统中配置或没有支持它的实现存在。
WSAEFAULT lpWSAData 不是有效的指针
GetData data,[type,][maxLen]
它从缓冲区中取得最长为maxLen的数据，并以type类型存放在data中，GetData取得数据后，就把相应的缓冲区清空。
g.PeekData方法
和GetData方法类似，但PeekData在取得数据后并不把缓冲区清空。
iMaxSockets As Integer
iMaxUdpDg As Integer
lpVendorInfo As Long
End Type
数据成员的描述在下表中：
Field 描述
wVersion Windows Sockets 版本信息。
SckOpen 1 打开。
SckListening 2 侦听
sckConnectionPending 3 连接挂起
sckResolvingHost 4 识别主机。
c.Connect方法
当本地计算机希望和远程计算机建立连接时，就可以调用Connect方法。
Connect方法调用的规范为：
Connect RemoteHost,RemotePort
d.Accept方法
当服务器接收到客户端的连接请求后，服务器有权决定是否接受客户端的请求。
wHighVersion 通过加载库文件得到的最高的支持Winsock 的版本，
它通常和wVersion值相同。
szDescription Windows Sockets 执行时的详细描述
szSystemStatus 包含了相关的状态和配置的信息
3.建立Socket函数
Declare Function socket Lib "ws2_32.dll" (ByVal af As Long, _
ByVal s_type As Long,
ByVal Protocol As Long) As Long
三，WinSockAPI的使用
1.WSAStartup 函数
为了在你的应用程序当中调用任何一个Winsock API 函数，首先第一件事情你就是必须通过WSAStartup函数完成对Winsock 服务的初始化，因此需要调用WSAStartup函数。
Declare Function WSAStartup Lib "ws2_32.dll" _
函数有3个参数定义建立何种socket，三个参数分别是：
Argument Description Enum Type
af Address family specification. AddressFamily
c.SendComplete事件
当所有数据发送完成时，被触发。
d.DataArrival事件
当建立连接后，接受到了新数据就会触发这个事件。注意：如果在接受到新数据前，缓冲区中非空，就不会触发这个事件。
e.Error事件
当在工作中发ype WSAData
wVersion As Integer
wHighVersion As Integer
szDescription As String * WSADESCRIPTION_LEN
szSystemStatus As String * WSASYS_STATUS_LEN
3.Winsock控件主要事件
a.ConnectRequest事件
当本地计算机接收到远程计算机发送的连接请求时，控件的ConnectRequest事件将会被触发。
b.SendProgress事件
当一端的计算机正在向另一端的计算机发送数据时，SendProgress事件将被触发。SendProgress事件记录了当前状态下已发送的字节数和剩余字节数。
sckHostResolved 5 已识别主机
sckConnecting 6 正在连接。
sckConnected 7 已连接。
sckClosing 8 同级人员正在关闭连接。
VB编写网络程序主要有两种方式：1.winsock控件 2.winsockAPI
二，WinSock控件的使用
1.WinSock控件的主要属性
a.Protocol属性
通过Protocol属性可以设置WinSock控件连接远程计算机使用的协议。可选的协议是TCP和UDP对应的VB的常量分别是sckTCPProtocol和sckUDPProtocol，Winsock控件默认协议是TCP。注意：虽然可以在运行时设置协议，但必须在连接未建立或断开连接后。
sckError 9 错误
2.WinSock主要方法
a.Bind方法
用Bind方法可以把一个端口号固定为本控件使用，使得别的应用程序不能再使用这个端口。
b.Listen方法
Listen方法只在使用TCP协议时有用。它将应用程序置于监听检测状态。
(ByVal wVersionRequired As Long, lpWSAData As WSAData) As Long
这个函数有两个参数： wVersionRequired 和 lpWSAData。wVersionRequired 参数定义Windows Sockets 提供能使用的最高版本，它的高位字节定义的是次版本号，低位字节定义的是主版本号。下面的2个Winsock版本在VB中使用的例子：
2.WSACleanup 函数
每次调用了WSAStartup函数，你都需要调用WSACleanup函数，通知系统来卸载库文件及清除已分配的资源，这个函数十分简单，没有任何参数：
Declare Function WSACleanup Lib "ws2_32.dll" () As Long
e.SendData方法
当连接建立后，要发送数据就可以调用SendData方法，该方法只有一个参数，就是要发送的数据。
f.GetData方法
当本地计算机接收到远程计算机的数据时，数据存放在缓冲区中，要从缓冲区中取出数据，可以使用GetData方法。GetData方法调用规范如下：
d.ByteReceived属性
返回当前接收缓冲区中的字节数
e.State属性
返回WinSock控件当前的状态
常数 值 描述
sckClosed 0 缺省值，关闭。
that is specific to the indicated address
family.
AddressFamily:
AF_UNSPEC = 0 '/* unspecified */
AF_UNIX = 1 '/* local to host (pipes, portals) */
AF_INET = 2 '/* internetwork: UDP, TCP, etc. */
AF_IMPLINK = 3 '/* arpanet imp addresses */
VB网络编程--WinSock控件及WinSockAPI
一，WinSock简介
Socket（套接字）最初是由加利福尼亚大学Berkeley（伯克利）分校为UNIX操作系统开发的网络通信接口，随着UNIX的广泛使用，Socket成为当前最流行的网络通信应用程序接口之一。20世纪90年代初，由Sun Microsystems,JSB,FTP software,Microdyne和Microsoft等几家公司共同定制了一套标准，即Windows Socket规范，简称WinSock。