VB6/IRC PING PONG & Problème

Question

Je ne suis pas en mesure de PONG retour le PING IRC, qui renvoie une erreur « Vous devez vous inscrire d'abord », voici le code que je utilise:

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 

De l'aide?

Answer 1

Encore une fois l'IRC-protocole defenition à RFC2812 aide: http://tools.ietf.org/html/rfc2812

La-commande PING à partir du serveur ressemble à ceci:

PING :3213546231 

La bonne réponse sur cette commande est:

PONG :3213546231 

en utilisant le même identifiant, qui a été envoyé avec le PING.

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

Le message d'erreur indique que vous n'avez pas connecté le serveur de manière conforme. Après avoir établi le socket TCP, vous devez envoyer les commandes suivantes:

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

Ensuite, vous recevrez le message du jour. Le jeu "PING - PONG" commencera après cela, pour s'assurer que votre connexion est toujours en vie.

Ou vous connectez un serveur qui nécessite une authentification:

Si oui, vous devez envoyer la commande:

PASS <yourpassword>