Trackbar fonctionnelle, besoin d'aide
Résolu
spouiz_lol
Messages postés
33
Date d'inscription
Statut
Membre
Dernière intervention
-
spouiz_lol Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
spouiz_lol Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
Bonjour !
J'ai réalisé un "spammeur" sur Virtual Basic Net,
mais j'aimerai mettre une Trackbar fonctionnelle qui modifie la vitesse de spam selon le timer.
J'aimerai donc que ça ressemble à ça :
Et j'ai codé :
Voilà, merci d'avance.
J'ai réalisé un "spammeur" sur Virtual Basic Net,
mais j'aimerai mettre une Trackbar fonctionnelle qui modifie la vitesse de spam selon le timer.
J'aimerai donc que ça ressemble à ça :
Et j'ai codé :
Public Class Form1
Private Sub Commencer_Click(sender As System.Object, e As System.EventArgs) Handles Commencer.Click
Timer1.Start()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
TextBox1.Clear()
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
On Error Resume Next
SendKeys.Send(TextBox1.Text)
On Error Resume Next
SendKeys.Send("{Enter}")
End Sub
Private Sub TrackBar1_Scroll(sender As System.Object, e As System.EventArgs) Handles TrackBar1.Scroll
Timer1.Interval := TrackBar1.Position;
End Sub
End Class
Voilà, merci d'avance.
2 réponses
-
Bonjour,
Corriger cela:
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick On Error Resume Next SendKeys.Send(TextBox1.Text) On Error Resume Next SendKeys.Send("{Enter}") End Sub
Par
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Try SendKeys.Send(TextBox1.Text) SendKeys.Send("{Enter}") Catch End Try End Sub
Ensuite;
Private Sub TrackBar1_Scroll(sender As System.Object, e As System.EventArgs) Handles TrackBar1.Scroll Timer1.Interval = TrackBar1.Value End Sub
ATTENTION
a mettre les valeurs du TrackBar1 correctement
1000 = 1 seconde
Il risque d'y avoir un bug en cas de déplacement intempestif du TrackBar1
Je le déconseille!!!! -
Ah malheureusement lorsque je déplace la TrackBar ça ne change pas la fréquence de spam.
Merci d'avance.
