VB里面用WINSOCK进行一对多连接的TCP连接时,经常需要群发消息给所有已连接的客户端.代码类似如下: Option Explicit Dim bytMsg() As Byte Private Sub Command1_Click() WSock(i).SendData bytMsg Next i End Sub 运行上面的代码发现,有时只有最后一个WINSOCK的客户端收到了消息,其他都没有收到. PS:郁闷了好久,意外的发现当点击以下暂停,然后再点击运行,其他客户端又收到了消息... 网…