Début de client lolachat

Télécharger le projet
Commenter

Description

BOnjour je suis débutant en vb et j'ai essayer de crée un client lolachat(..)
POur vous expliquer vite faire lolachat est un chat gratuit, grace à un logiciel.
Le protocoles du chat/serveur est là=>http://lolasoft.free.fr/index.php?page=protocole

Le début du client marche trés bien mais je n'arrive pas a trouver comment gerer les messages que le serveur envoie(stle pr crée une nicklist)

Si quelqu'un est prés a m'aider ou a deposer un bout de code sa serait sympas(..)

NOTE:Si vous voulez prendre cette source pour crée votre propore client vous avez ledroit!Lolachat autorise biensure la création de client de chat pour sont serveur..

Source / Exemple : 


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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_protect)