Soyez le premier à donner votre avis sur cette source.
Vue 4 990 fois - Téléchargée 355 fois
Private Sub Command1_Click() Winsock1.SendData ("WRITE" & vbTab & "P" & vbTab & Text2.Text & vbCrLf) End Sub Private Sub Form_Load() Winsock1.Connect "chat.lolachat.com", "1771" Do While Winsock1.State <> 7 DoEvents 'il faut attendre Loop Winsock1.SendData ("PROTOCOL" & vbTab & "2.1" & vbCrLf) Do While Winsock1.State <> 7 DoEvents 'il faut attendre Loop Winsock1.SendData ("LOGIN" & vbTab & Form2.Text1.Text & vbTab & Form2.Text2.Text & vbCrLf) Winsock1.SendData ("ENTER" & vbTab & "LolaChat Accueil" & vbCrLf) Winsock1.SendData ("ENUM-S" & vbTab & vbCrLf) End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Chaine As String Winsock1.GetData Chaine Text1.Text = Text1.Text & Chaine & vbCrLf End Sub
;)
Pour extraire les diferentes frases emises par les utilisateurs, il faut ke tu exrait les differentes chaines de caractere :
RCV-WRITE pseudo sexe style message
tu extrai tou ca tu traite l'affichage dé couleurs et du style du message et ca roule.
Le protocole é tres bien fait donc ca ne devré pa te posé tro de problemes. Je meté areté a la gestion de la nick list ki fonctioné mé el najouté pa tt les nicks deja present lors de la connexion au chat.
Si tu a besoin d'aide ou d'info, ed_the_farmer@msn.com
sauf que pour aller sur le chat faut utiliser un logiciel déjà fait(...)
et lolachat autorise la création de programme(client)pour venir sur sont chat
Pour sa le protocole est sur le site http://lolasoft.free.fr/index.php?page=protocole
Et le prog ke j'ai fait là c'est un début de client lolachat (..)MAIS je n'arrive pas a trouver comment gerer les messages que le serveur envoie(style pr crée une nicklist)
Wala j'ai résumé
note : 10
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.