Je veux faire un client IRC en VB.NET mais j'ai un problème au niveau de la connexion avec le serveur.
Je me suis aidé de telnet pour faire mon programme et pour savoir quand il fallait envoyer quelles infos, etc.
'Ouverture de la connection
SocketClient.Connect(Serveur, 6667)
While Not UTF8.GetString(Stream).Contains("End of /MOTD command")
SocketClient.Receive(Stream)
tbChat.Text += UTF8.GetString(Stream) + NewLine
tbChat.Refresh()
Threading.Thread.Sleep(500)
If UTF8.GetString(Stream).Contains("Found your hostname") Then
tbChat.Text += "Identification avec le pseudo" + NewLine
tbChat.Refresh()
SocketClient.Send(ASCII.GetBytes("NICK " + Pseudo.ToUpper + "\r\n"))
End If
If UTF8.GetString(Stream).Contains("PING") Then
Msg = UTF8.GetString(Stream).Substring(UTF8.GetString(Stream).IndexOf("PING") + 7, 15)
tbChat.Text += "Réponse au ping " + Msg + NewLine
tbChat.Refresh()
SocketClient.Send(ASCII.GetBytes("PONG :" + Msg + "\r\n"))
tbChat.Text += "Envoi des informations relatives au client" + NewLine
tbChat.Refresh()
If RealName <> "" Then
SocketClient.Send(ASCII.GetBytes("USER " + Pseudo.ToUpper + " 0 * :" + RealName + "\r\n"))
Else
SocketClient.Send(ASCII.GetBytes("USER " + Pseudo.ToUpper + " 0 * :" + Pseudo + "\r\n"))
End If
End If
End While
Avec telnet, ça marchait très bien, le serveur m'envoyais le PING après la commande NICK puis le MOTD après la commande USER, mais avec ce programme, le serveur n'envoie pas de PING et le texte Envoi des informations relatives au client ne s'affiche pas.
