Winsock en Visual Basic 6.0
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... :cry:
Code:
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 :lol:
