VB6/IRC PING 和乒乓球问题

Question

我无法将 PING 返回到 IRC，这会发回“您必须先注册”错误，这是我正在使用的代码：

Private Sub wsConnect_DataArrival(ByVal bytesTotal As Long)
  Dim strData As String

    wsConnect.GetData strData

    If InStr(strData, "PING") <> 0 Then
    MsgBox ("Success!") 'Check it's receiving it.
        wsConnect.SendData Replace(strData, "PING", "PONG") & vbCrLf
    End If

    Me.txtDataIn.Text = Me.txtDataIn.Text & strData
End Sub

有帮助吗？

Answer 1

RFC2812 中的 IRC 协议防御再次有所帮助： https://www.rfc-editor.org/ rfc/rfc2812

来自服务器的 PING 命令看起来像这样：

PING :3213546231

该命令的正确答案是：

PONG :3213546231

使用与 PING 一起发送的相同标识符。

/^PING :(.+)/   -->  respond with "PONG :$1"

错误消息指出，您没有以符合要求的方式连接服务器。建立 TCP 套接字后，您必须发送以下命令：

NICK <yourNickName>
USER <yourUserName> 32 . :<yourRealName>

然后您将收到 MOTD。此后将开始“PING - PONG”游戏，以确保您的连接仍然有效。

或者您正在连接需要身份验证的服务器：

如果是这样，您必须发送命令：

PASS <yourpassword>