出现第二个BUG:
Private Sub Command_KeyPress(KeyAscii As Integer)
    If (KeyAscii <> 13) Then
        Exit Sub
    End If
    Dim cmd$(), data_send$, num%
    data_send = "[server]|" & Command.Text
    For num = 1 To linknow
        If (ServerLink(num).State = 7) Then
            ServerLink(num).SendData data_send---------------------------错误:变量未定义
            DoEvents
        End If
    Next num
    Message.AddItem "[Server]:" & Command.Text
    Command.Text = ""
    KeyAscii = 0
End Sub

不可能,你自己看这一行,已经定义过了
Dim cmd$(), data_send$, num%
然后那个cmd动态数组可以删了,没删干净...

[此贴子已经被作者于2018-11-4 22:59编辑过]

BUG3:
Private Sub Command_KeyPress(KeyAscii As Integer)
    If (KeyAscii <> 13) Then
        Exit Sub
    End If
    Dim cmd$(), data_send$, num%
    data_send = "[server]|" & Command.Text
    For num = 1 To linknow
        If (ServerLink(num).State = 7) Then
            ServerLink(num).SendData data_send-----------------------------错误:子程序或函数未定义,
            DoEvents
        End If
    Next num
    Message.AddItem "[Server]:" & Command.Text
    Command.Text = ""
    KeyAscii = 0
End Sub

我说，你是不是没看内容然后就无脑复制粘贴代码啊？你这样真的给我一种很不好的感觉，还有我看了一下你发的所有帖子，难道你就不会自己找找发生错误的原因吗？

紫苑星苑：
按您的源码做了这个服务器和客户端，客户端提示“服务器未开启”，为什么呢？
您帮看一下好吗，谢谢！