Discussion :

[ThEMiK20]

Voici mon code:
------------------
La donnée DATA provient dun winsock1.getdata qui enregistre dans le DATA. Quand un utilisateur join le canal, il fait senddata USER le nick qui join + tout les autres nicks. Le programme est capable de savoir quel sont les nick et tout puisque en mode débogueur il réussit très bien. Mais sans le débogueur il ne foou rien...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
If Mid(Data, 1, 4) = "USER" Then
        If Trim(Mid(Data, 5, 12)) = Nick Then
            ListeADD = 5 + 12
            D = "A"
            Do Until D = ""
                D = Mid(Data, ListeADD, 12)
                ListeADD = ListeADD + 12
                TxtUser.AddItem (D)
            Loop
            Alpha
            D = 0
            For D = 0 To TxtUser.ListCount
                If Trim(TxtUser.List(D)) = "" Then
                    Call TxtUser.RemoveItem(D)
                    Exit For
                End If
            Next
        End If
    End If
    'Recoit un message.
    If Mid(Data, 1, 3) = "MSG" Then
        intNbreEnregistrement = LOF(1) / Len(Enregistrement)
        intNbreEnregistrement = intNbreEnregistrement + 1
        Enregistrement.strNick = Trim(Mid(Data, 4, 12))
        Enregistrement.strTime = Time
        If Enregistrement.strTime = LastTime2 Then
            Exit Sub
        End If
        Enregistrement.StrMessage = Mid(Data, 18, 75)
        If Trim(Nick) <> Trim(Enregistrement.strNick) Then
            Put #1, intNbreEnregistrement, Enregistrement
        End If
        LastTime = Data
        LastTime2 = Enregistrement.strTime
    End If
---------------------

Vous lavez devinez c'est un chat.

Cette commande USER, c'est une commande lors d'un join, les utilisateurs indique a celui qui join les utilisateurs présent dans la liste et lajoute dans TXtUser.list.

Le problème ?

Il n'ajoute pas les utilisateurs dans la liste lorsque je l'éxécute normalement, lorsque je fait le débogueur, il l'est ajoute... Quelqu'un peu m'aide ça serait très apprécier.



Merci d'avance

[jmfmarques]

pas très sur (fatigué), mais essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Do Until D = ""
D = Mid(Data, ListeADD, 12)
ListeADD = ListeADD + 12
TxtUser.AddItem (D)
doevents
Loop

[ThEMiK20]

Merci ça fonctionne, effectivement il manquait un DoEvents.