这段代码能实现基本的socket通讯吗？帮朋友问的（表怪偶不懂提问的艺术Orz)

数据接收程序
Option Explicit
Private Const winsk_local_port = 8888
Private Const max_sessions = 10
Private Sub Form_Load()
Dim i As Integer
With Winsk(0)
.Protocol = sckTCPProtocol
.LocalPort = winsk_local_port
.Listen
End With
For i = 1 To max_sessions
Load Winsk(i)
Winsk(i).Protocol = sckTCPProtocol
Winsk(i).LocalPort = winsk_local_port
Next
End Sub

Private Sub Winsk_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim str As String
Dim i As Integer
MsgBox "aaa "
If Index = 0 Then
For i = 0 To max_sessions
With Winsk(i)
If .State = sckClosed Then
.Accept requestID
Exit For
End If
End With
Next
End If


End Sub

Private Sub Winsk_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim str As String
Dim rc As Integer
Dim i As Integer
MsgBox "收到！ "
Winsk(Index).GetData str, , bytesTotal
messages.AddItem str
For i = 1 To max_sessions
With Winsk(i)
If .State = sckConnected Then
.SendData str
DoEvents
End If
End With
Next
End Sub



[解决办法]
这是单方向。
[解决办法]
这个是服务器端 的代码 可以允许10个连接饿服务器代码 缺少客户端的