BCC32 CHAT IRC

Commentaire de l0st3d le 31/12/2003 00:55:21

Commentaires?

Commentaire de buffle le 02/01/2004 19:57:32

salut je voudrais te demander si tu pouvais m'aider à faire fonctionner mon petit client irc,il ne marche pas,je ne sais pas pourkoi?

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