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 - 6 oct. 2014 à 19:50

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é :

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

Réponse 1 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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

Réponse 2 / 2

spouiz_lol Messages postés 33 Date d'inscription Statut Membre Dernière intervention

Ah malheureusement lorsque je déplace la TrackBar ça ne change pas la fréquence de spam.
Merci d'avance.

Discussions similaires

solution fonctionnelle ?

GPU Nvidia non fonctionnelle

GPO pour proxy non fonctionnelle

Souris couplée mais non fonctionnelle

Prise murale RJ45 non fonctionnelle

Votre réponse

Discussions similaires