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协议防御再次有助于：http://tools.ietf.org/html/rfc2812

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

PING :3213546231

此命令的正确答案是：

PONG :3213546231

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

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

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

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

然后你会收到MOTD。 “PING - PONG”游戏将在此之后开始，以确保您的连接仍然存在。

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

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

PASS <yourpassword>

VB6 / IRC PING＆amp; PONG问题

1 个答案: