Privatem_strBuff()AsString发送数据的缓冲区.docVIP

Private m_strBuff() As String 发送数据的缓冲区 Private m_CurBuffIndex As Integer 当前发送第几个数据 Private Sub Command1_Click() 假设所有要发送的数据都存在m_strBuff数组里面了 m_CurBuffIndex = 0 先发送第一个 Winsock1.SendData m_strBuff(m_CurBuffIndex) End Sub Private Sub Winsock1_SendComplete() 发送完毕 接着发 m_CurBuffIndex = m_CurBuffIndex + 1 If m_CurBuffIndex = UBound(m_strBuff) Then Winsock1.SendData m_strBuff(m_CurBuffIndex) Else m_strBuff数组的数据全部发送完毕 初始化m_CurBuffIndex m_strBuff m_CurBuffIndex = 0 ReDim m_strBuff(0) End If End Sub 下列步骤创建一个非常简单的服务器： 要创建一个 TCP