VB6 / IRC PING & PONG Проблема - PullRequest
Новая
       7

VB6 / IRC PING & PONG Проблема

0 голосов
/ 08 июля 2010

Я не могу PONG вернуть 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

Любая помощь?

1 Ответ

1 голос
/ 13 июля 2010

Опять помогает определение IRC-протокола в RFC2812: 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>
...