本意:为防止数据粘连,定义数据格式为:"@Add#123",即每个数据包以"@"开头,当客户端接到数据后进行拆解,并存入ListBox中。
意外:在局域网中进行测试时,发现客户端数据仍有粘连现象存在。
不知是哪里问题,请指点!!Private Sub Client_DataArrival(ByVal bytesTotal As Long)
    Dim s As String
    s = ""
    Client.GetData s
    SeparateCommand s
End Sub'分解服务端来的数据
'数据以@开头,并将分解得到的数据放入ListBox中
Public Sub SeparateCommand(cmd As String)
    Dim TempStr() As String
    
    TempStr = Split(cmd, "@")
    For i = 1 To UBound(TempStr)
        If Trim(TempStr(i)) <> "" Then
            frmMain.listCMD.AddItem TempStr(i)
        End If
    Next
End Sub