vb中的 winsock如何实现监听功能和连接功能

通信程序通常都是采用Client/Server形式。这就要求作为服务器的主机可以同时处理多个客户的请求。因此在编写服务器程序时要添加多个Winsock控件。在开始我们先加入两个Winsock控件。其中一个用来侦听网上请求信号，取名为Listener；另外一个为初始的连接口，取名叫Sock（0）。注意，后一个控件要设为动态数组的形式，以后当客户增多时，可在这个控件基础上动态增加。由于受资源限制，我们在本例中设定最多可以同时接纳15个客户。客户机一般只与一个主机相连，因此程序只须一个Winsock进行连接就足够了。这个程序要用到的控件较少，除了Winsock和Form控件外，只须再添加Commmand控件即可。下面是具体程序和详细注释。

******************************
服务器程序
******************************

 

  Option   Explicit  
' 定义常量 
Const  BUSY  As   Boolean   =   False  
Const  FREE  As   Boolean   =   True  

' 定义连接状态 
Dim  ConnectState()  As   Boolean  

Private   Sub  Form_Load() 
ReDim  Preserve ConnectState( 0   To   1 ) 
On   Error   Resume   Next  
ConnectState( 0 )  =  FREE 
ConnectState( 1 )  =  FREE 
’指定网络端口号 
Listener.LocalPort  =   1011  
‘开始侦听 
Listener.Listen 
End Sub  
Private   Sub  Listener_ConnectionRequest(ByVal requestID  As   Long ) 
Dim  SockIndex  As   Integer  
Dim  SockNum  As   Integer  
On   Error   Resume   Next  
Form1.Print requestID  &   " 连接请求 "  
' 查找连接的用户数 
SockNum  =   UBound (ConnectState) 
If  SockNum  >   14   Then  
Form1.Print SockIndex  &   ""  
Exit   Sub  
End   If  
' 查找空闲的sock 
SockIndex  =  FindFreeSocket() 
’如果已有的sock都忙，而且sock数不超过15个，动态添加sock 
If  SockIndex  >  SockNum  Then  
Load Sock(SockIndex) 
End   If  
ConnectState(SockIndex)  =  BUSY 
Sock(SockIndex).Tag  =  SockIndex 
' 接受请求 
Sock(SockIndex).Accept (requestID) 
Form1.Print SockIndex  &   " 接受请求 "  
End Sub  

' 客户断开，关闭相应的sock 
Private   Sub  Sock_Close(Index  As   Integer ) 
If  Sock(Index).State  <>  sckClosed  Then  
Sock(Index).Close 
End   If  
ConnectState(Index)  =  FREE 
Form1.Print Index  &   " close "  
End Sub  

' 接收数据 
Private   Sub  Sock_DataArrival(Index  As   Integer , ByVal bytesTotal  As   Long ) 
Dim  dx  As   Double  
Form1.Print  " 数据来自 "   &  Index 
Sock(Index).GetData dx, vbDouble 
Form1.Print  " dx= "   &  dx 
End Sub  

' 寻找空闲的sock 
Public   Function  FindFreeSocket() 
Dim  SockCount, i  As   Integer  
SockCount  =   UBound (ConnectState) 
For  i  =   0   To  SockCount 
If  ConnectState(i)  =  FREE  Then  
FindFreeSocket  =  i 
Exit   Function  
End  Ifs 
Next  i 
ReDim  Preserve ConnectState( 0   To  SockCount  +   1 ) 
FindFreeSocket  =   UBound (ConnectState) 
End Function  

 

***************************
客户程序
***************************

Option   Explicit  
' 发送数据 
Private   Sub  command1_Click() 
Dim  dx  As   Double  
dx  =   23.9  
sock.SendData dx 
MsgBox  ( " data sended " ) 
End Sub  

Private   Sub  Form_Load() 
' 远程主机名 
sock.RemoteHost  =   " media2 "  
' 网络端口 
sock.RemotePort  =   1011  
' 发出连接命令 
sock.Connect 
Command1.Enabled  =   False  
End Sub  

' 服务器关闭 
Private   Sub  sock_Close() 
MsgBox  ( " socket closed " ) 
End Sub  

' 连接成功 
Private   Sub  sock_Connect() 
MsgBox  ( " socket connected " ) 
Command1.Enabled  =   True  
End Sub