BCC32 CHAT IRC
l0st3d
Messages postés
205
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
13 novembre 2009
-
31 déc. 2003 à 00:55
cs_Delirium Messages postés 30 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 3 mai 2004 - 6 janv. 2004 à 17:31
cs_Delirium Messages postés 30 Date d'inscription vendredi 11 octobre 2002 Statut Membre Dernière intervention 3 mai 2004 - 6 janv. 2004 à 17:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/19031-bcc32-chat-irc
https://codes-sources.commentcamarche.net/source/19031-bcc32-chat-irc
6 janv. 2004 à 17:31
et il manque quelques ligne pour l'identification..
et avec unreal ya un premier renvoi de ping
et -> Clientsock.SendData "NICK" & pseudo.Text & Chr(13) & Chr(10)
faut peut être penser a mettre des espaces non `?? je te conseil d'étudier le protocol et snif éventuelement ta connect, tu pourra voir comment sa ce passe ;)
bonne continuation
2 janv. 2004 à 19:57
Option Explicit
Private Sub Clientsock_Connect()
etat.Caption = "vous êtes entré dans le chat"
End Sub
Private Sub Connexion_Click()
If Clientsock.State <> sckConnected Then
Clientsock.Connect "www.epiknet.org", 6667
Clientsock.SendData "NICK" & pseudo.Text & Chr(13) & Chr(10)
Clientsock.SendData "JOIN #universitas" & Chr(13) & Chr(10)
Else
etat.Caption = "Vous êtes déjà connecté au chat de rencontres"
End If
End Sub
Private Sub Quitter_Click()
Clientsock.Close
End
End Sub
Private Sub message_Click()
If Text1.Text <> "" Then
If Clientsock.State = sckConnected Then
Clientsock.SendData Text1.Text
End If
Else
MsgBox "Veuillez entrer un message"
End If
End Sub
Private Sub Clientsock_DataArrival(ByVal bytesTotal As Long)
Dim strData
Dim vbString
Clientsock.GetData strData, vbString
dial.Text = strData & Chr(10) & Chr(30)
End Sub
1 janv. 2004 à 12:54
exemple :
"PRIVMSG #chan :Salut ça va ?" & chr(10)
J'ai aussi fait un client IRC.
31 déc. 2003 à 00:55