Bcc32 chat irc

Soyez le premier à donner votre avis sur cette source.

Vue 3 497 fois - Téléchargée 302 fois

Description

C'est juste un début... c'est la première source que je mets sur ce site que je vais mettre a jour régulièrement, pour l'instant il supporte la connection a un serveur IRC et le chat dans la fenètre "Status"

Conclusion :


Un Bug... quand on parle avec le client... le message envoyer n'est pas tout a fait celui que vous avez écris... en fait c'est le meme message mais il manque des mots (il n'envoie qu'un mot pourquoi?)

et quand une personne parle sur un canal example #black4est sa affiche
<nick> est: bla bla bla bla bla!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Delirium
Messages postés
30
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
3 mai 2004
-
deja c pas www mais irc car la tu te connect au site web
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
cs_buffle
Messages postés
1
Date d'inscription
samedi 26 avril 2003
Statut
Membre
Dernière intervention
2 janvier 2004
-
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
erreurs404
Messages postés
117
Date d'inscription
lundi 23 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009
-
ben tu dois potasser la syntaxe IRC.
exemple :
"PRIVMSG #chan :Salut ça va ?" & chr(10)

J'ai aussi fait un client IRC.
l0st3d
Messages postés
206
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
13 novembre 2009
-
Commentaires?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.