7,763
社区成员
发帖
与我相关
我的任务
分享没有高手了？？？？？？再问一遍！
下面的代码是把收的信息转发给所有的人，但实际上只有最后一个人收到信息，这是为什么？？
Private Sub winsock1_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim str As String
winsock1(index).GetData str
i = 1
l = MAX_COUNT
for i=1 to l
winsock1(i).senddata str
next i
End Sub
Private Sub winsock1_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim str As String
winsock1(index).GetData str
i = 1
l = MAX_COUNT
for i=1 to l
winsock1(i).senddata str
next i
End Sub
...全文
