更正一下,
下面的代码是把收的信息转发给所有的人,但实际上只有最后一个人收到信息,这是为什么??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
http://www.csdn.net/expert/TopicView.asp?id=56998