Bonjour,
J'ai effectué un logiciel qui consiste a "spammé", il envoie le message écrit dans la textbox puis appuie sur entré a l'infinie avec une vitesse réglé par l'utilisateur, voila la brève présentation.

En voulant l'améliorer, j'ai décidé de lui ajouter une option qui consiste a ce que l'utilisateur choisisse le nombre de message que le spamm va envoyer, j'ai réussi avec succès mais le seul problème c'est que quand il utilise cette option le logiciel ne tiens plus en compte de la valeur de la trackbarre qui défini le nombre de message par milliseconde, pourtant j'ai juste modifié le code du timer pour spammer que voici :

If CheckBox2.Checked = True Then

Nb = TrackBar2.Value
Do Until Nb = 0
Spam.Interval = TrackBar1.Value

SendKeys.Send(TextBox1.Text)
SendKeys.Send("{ENTER}")

Nb = Nb - 1
If Nb = 0 Then Spam.Stop()
Loop
Else
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{ENTER}")
End If

PS: Si l'utilisateur n'utilise pas l'option les intervalles entre chaque message remarchent !

Comment faire ? Merci d'avance !

Met le Spam.Interval = TrackBar1.Value hors du if
La il est prix en compte que si la checkbox est check.

Je l'ai aussi mis hors du if mais comme sa marchait pas je l'ai mis a deux endroits différents, et même il devrait etre pris en compte car la checkbox et coché mais non il ne marche quand même pas

Tu veux pas poster le code entier ?

Tiens ;) :

Public Class Form1
Dim sec = 3
Dim Nb = 20

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs
)
Handles LinkLabel1.LinkClicked
TextBox1.Clear()
TextBox1.Focus()

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll

If TrackBar1.Value = 0 Then
Label1.Text = "1"
Vitesse.Interval = 1
TrackBar1.Value = 1
Else

Label1.Text = TrackBar1.Value
Vitesse.Interval = TrackBar1.Value / 2
Spam.Interval = TrackBar1.Value

End If

End Sub

Private Sub Vitesse_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Vitesse.Tick
If Label2.Visible = True Then
Label2.Visible = False
Else
Label2.Visible = True

End If
End Sub

Private Sub Spam_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Spam.Tick
If CheckBox2.Checked = True Then

Nb = TrackBar2.Value
Do Until Nb = 0
Spam.Interval = TrackBar1.Value

SendKeys.Send(TextBox1.Text)
SendKeys.Send("{ENTER}")

Nb = Nb - 1
If Nb = 0 Then Spam.Stop()
Loop
Else
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{ENTER}")
End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Message.Enabled = True
If CheckBox1.Checked = False Then
Spam.Start()
Else
sec = 3
Minuteur.Start()

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Spam.Stop()
Minuteur.Stop()

End Sub

Private Sub Minuteur_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Minuteur.Tick
If sec = 0 Then
Minuteur.Stop()
Spam.Start()
Me.Text = "Spammer"
End If

Me.Text = "Spam dans " & sec & " secondes"
sec = sec - 1

End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox3.Enter

End Sub

Private Sub Message_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Message.Tick

End Sub

Private Sub TextBox2_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TrackBar2.Value = TrackBar2.Value - 1
Label3.Text = TrackBar2.Value - 1
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TrackBar2.Value = TrackBar2.Value + 1
Label3.Text = TrackBar2.Value + 1
End Sub

Private Sub Label3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

End Sub

Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
Label3.Text = TrackBar2.Value

End Sub

Private Sub TrackBar3_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar3.Scroll
Me.Opacity = TrackBar3.Value / 90
End Sub
End Class

Ouai, j'aurais pref la solution directement plutôt que de devoir ajouter les ctrl moi même sachant que je ne sais pas ce qu'ils sont censé faire etc.

Je fais comment pour t'envoyer la solution ?

C'est dans documents>visualstudio>projects
Puis tu l'upload

Car le problème c'est que je ne sais pas a quoi correspond chaque button etc

https://rapidshare.com/files/3653775224/WindowsApplication1.rar

voila :p

En gros ce que tu veux faire c'est un auto typer ?

?
Bah en faite je veux que quand l'utilisateur choisis l'option pour que sa spamme le nombre de message qu'il veut, le timer d'attente entre chaque envoie de message soit conservé