VB:用Winsock控件数组作服务的实现过程范例

Visual Basic Code Private Type SockServerInfo       Enabled As Boolean End Type Dim Server (   )   As SockServerInfo Private Sub Form_Load (   )         CreateServer End Sub Private Sub Winsock1_ConnectionRequest (   _                                                       Index As Integer, _                                                       ByVal requestID As Long )         If Winsock1 ( Index ) .State <> 0 Then Winsock1 ( Index ) .Close       Winsock1 ( Index ) .Accept requestID       CreateServer End Sub Private Sub Winsock1_DataArrival ( Index As Integer, ByVal bytesTotal As Long )         Dim NetWorkString As String       Winsock1 ( Index ) .GetData NetWorkString, vbString, bytesTotal       Print "Index " & Index & " 收到数据：" & NetWorkString       Winsock1 ( Index ) .SendData "转发回去的数据" End Sub Private Sub Winsock1_Error ( Index As Integer, _                                                       ByVal Number As Integer, _                                                       Description As String, _                                                       ByVal Scode As Long, _                                                       ByVal Source As String, _                                                       ByVal HelpFile As String, _                                                       ByVal HelpContext As Long, _                                                       CancelDisplay As Boolean )         CancelDisplay   =   True       Winsock1_Close Index End Sub Private Sub Winsock1_Close ( Index As Integer )         StopServer Index End Sub Private Sub CreateServer (   )         Dim ServerMaxCount As Long       Dim X As Long       Dim IsHaveFalse As Long       On Error Resume Next       ServerMaxCount   =   UBound ( Server )         If Err.Number <> 0 Then             ServerMaxCount   =   0             ReDim Server ( ServerMaxCount )         Else             IsHaveFalse   =   0             For X   =   0 To ServerMaxCount                   If Server ( X ) .Enabled   =   False Then                         ServerMaxCount   =   X                         IsHaveFalse   =   1                         Exit For                   End If             Next X             If IsHaveFalse   =   0 Then                   ServerMaxCount   =   ServerMaxCount + 1                   ReDim Preserve Server ( ServerMaxCount )               End If             Load Winsock1 ( ServerMaxCount )         End If       Winsock1 ( ServerMaxCount ) .LocalPort   =   60000       Winsock1 ( ServerMaxCount ) .Listen       Server ( ServerMaxCount ) .Enabled   =   True End Sub Private Sub StopServer ( Index As Integer )         Dim ServerMaxCount As Long       If Winsock1 ( Index ) .State <> 0 Then Winsock1 ( Index ) .Close       On Error Resume Next       ServerMaxCount   =   UBound ( Server )         If Index   =   ServerMaxCount Then             If Index   =   0 Then                   Erase Server             Else                   Unload Winsock1 ( Index )                     ReDim Preserve Server ( ServerMaxCount - 1 )               End If       Else             Unload Winsock1 ( Index )               Server ( Index ) .Enabled   =   False       End If End Sub

其实概念很简单，主要是处理好控件数组的创建和释放就可以了