Problème socket asynchrones

Bonjour,
J'ai un problème pour un TP de classe.
Je dois pratiquer une connexion et une action spécifique sur un serveur a socket asynchrone.
J'ai choisi le serveur de dofus, bien que c'est pas très légal, c'est le seul serveur socket utilisant un système de cryptage pour l'ip et le mot de passe.
J'ai donc décidé de faire un fonction pour parler touts canaux (pas du flood).
Voici mon code :

Code:

---

1 2	Sock.Envoyer("BM*" & underscore & flood & underscore) Thread.Sleep(5000)

---

J'aimerai répéter l'action plusieurs fois, le nombre de fois serait défini par une variable utilisateurs.
J'ai créer la textbox nombre de fois en associant une variable avec : tpsocketflood = TextBox.46.Text .
Mais comment faire pour que l'action se répète plusieurs fois ?
Les boucles conditionelles ne marchent pas, apparemment, soit il ne l'envoie qu'une fois, soit sa crashe.

Salut, si tu veux faire un genre de flood sur dofus (même si on à pas vraiment le droit) aide toi de sa:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim Bouton_Flood As Boolean = False Private Sub Button_Flood_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If Bouton_Flood = False Then Bouton_Flood = true Time_Flood.Interval = 11000 ' 11 seconde par message Time_Flood.Enabled = True Else Bouton_Flood = false End If Private Sub Time_Flood_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Time_Flood.Tick If Bouton_Flood = True Then Dim i As Integer For i = 0 To 0 Sock.Envoyer("BM*" & "|" & TextBox9.Text & " " & "(" & Int(20 * Rnd()) & ")" & "|") 'Message envoyer avec un nombre aléatoir pour ne pas se faire ban Next i End If

---

Voilà une partie de la source de mon fameux bot flood.