Trackbar fonctionnelle, besoin d'aide
Résolu
spouiz_lol
Messages postés
40
Statut
Membre
-
spouiz_lol Messages postés 40 Statut Membre -
spouiz_lol Messages postés 40 Statut Membre -
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.
A voir également:
- Trackbar fonctionnelle, besoin d'aide
- Gestion d'une boite aux lettres fonctionnelle - Forum Réseaux sociaux
- Erreur #NOM? sur une formule fonctionnelle ? ✓ - Forum Excel
- Barre de recherche Windows non fonctionnelle ✓ - Forum Windows 10
- Recherche vocale non fonctionnelle sur google ✓ - Forum Gestion et lecture audio
- Projet Réseau & redondance pas fonctionnelle - Forum CISCO
2 réponses
Bonjour,
Corriger cela:
Par
Ensuite;
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!!!!
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!!!!