VB6/IRC PING和PONG问题

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协议defenition帮助：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。此后将开始“乒乓”游戏，以确保您的连接仍然存在。

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

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

PASS <yourpassword>