Vb6 向所有连接的客户端发送更新的客户端列表

嗯，我的服务器连接请求有这个代码

If sckClients(clientCounter).State <> adstateclosed Then sckClients(clientCounter).Close        
sckClients(clientCounter).Accept requestID
Command1.Enabled = True
MsgBox "Connected to client."
Combo1.AddItem sckClients(clientCounter).LocalIP & "(" & clientCounter & ")"
clientCounter = clientCounter + 1
Load sckClients(clientCounter)

---

我的问题是，如何将其发送到每个客户端的组合框客户端列表？

如果我正确理解了您的代码，（并根据Bob77的说明），您发送给连接客户端的消息可能是这样的：

"1~Server~192.168.0.101(0)~69.125.83.76(1)~127.0.0.1(2)"

然后，您只需使用VB6的

split

函数即可获得以下信息：

在客户端上（伪代码）：

---

因为你已经发送了它（从你发布的代码中我可以看出）。。。我想你问的是一个完全不同的问题。你是用“发送到”这个短语来表示“在组合框中显示”还是什么？哦，是的，这就是我的意思。将客户端列表显示到所有已连接客户端的组合框中。

"1~Server~192.168.0.101(0)~69.125.83.76(1)~127.0.0.1(2)"

Private Sub WinSock_OnData(...)
    Dim Buffer As String
    Dim BufferArray() As String
    Dim Index As Long

    Call WinSock.GetData(Buffer, ...)        
    BufferArray = Split(Buffer, "~")

    If BufferArray(0) = "1" Then
        Call ComboxBox1.Clear        
        For Index = 1 To Ubound(BufferArray)
            Call ComboxBox1.AddItem(BufferArray(Index))
        Next Index
    End If

End Sub