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!!!!