使用winsock建立多个连接.txt

VB技巧问答10000例 VB技巧问答10000例

以 下 是 VB Help中 提 供 的 信 息 ， 可 供 参 考 ： 
    Accepting More than One Connection Request 
    The basic server outlined above accepts only one connection request. However, it is possible to accept several connection requests using the same control by creating a control array. In that case, you do not need to close the connection, but simply create a new instance of the control (by setting its Index property), and invoking the Accept method on the new instance. 
     
    The code below assumes there is a Winsock control on a form named sckServer, and that its Index property has been set to 0; thus the control is part of a control array. In the Declarations section, a module-level variable intMax is declared. In the form's Load event, intMax is set to 0, and the LocalPort property for the first control in the array is set to 1001. Then the Listen method is invoked on the control, making it the "listening control. As each connection request arrives, the code tests to see if the Index is 0 (the value of the "listening" control). If so, the listening control increments intMax, and uses that number to create a new control instance. The new control instance is then used to accept the connection request. 
    Private intMax As Long 
     
    Private Sub Form_Load() 
     intMax = 0 
     sckServer(0).LocalPort = 1001 
     sckServer(0).Listen 
    End Sub 
     
    Private Sub sckServer_ConnectionRequest _ 
    (Index As Integer, ByVal requestID As Long) 
     If Index = 0 Then 
     intMax = intMax + 1 
     Load sckServer(intMax) 
     sckServer(intMax).LocalPort = 0 
     sckServer(intMax).Accept requestID 
     Load txtData(intMax) 
     End If 
    End Sub 
<END>