Discussion :

[vondoume]

Bonjour, je code un programme sous Visual Basic 2010 express. Dans mon programme, je veut envoyer un texte d'une textbox par exemple (comme avec sendkeys) mais lettre par lettre et non tout d'un coup et si possible de regler cette vitesse. Je voudrais savoir si cela est possible. Merci pour vos future réponses.

[Pol63]

pose un timer

[vondoume]

Mmm pas sur que poser simplement un timer fera tout, pourrait tu développer?

[Pol63]

envoyer lettre par lettre ca veut dire genre une lettre toute les 50 milliseconde

le timer permet de faire un truc tous les tant de temps

[vondoume]

Ouai mais je sais pas comment le lier au sendkeys par exemple ou comment le placer, si tu pouvais me guider ou si tu ne sais pas..

[Pol63]

le sendkeys dans l'évènement timer.tick
une variable en dehors de la sub que tu incrémentes à chaque timer.tick et qui te permet de savoir à quelle lettre tu en es dans le string

[vondoume]

Il reste la variable que je ne sais pas trop comment utilisé dans cas, comment la codé :$

[ebastien]

Bonjour,

Pourtant Pol63 a quasiment tout dit... C'est pas compliqué :
- 1 Form
- 1 variable (String Private de la Form) contenant la chaine à envoyer,
- 1 Compteur (Integer Private de la Form),
- 1 Timer

Dans Timer.tick, on envoie le caractère positionné à la position Compteur de la chaine et on incrémente Compteur.
Lorsque la chaine est entièrement envoyée, on arrête le timer.

Après, il reste le cours de Philippe Lasserre.
Bonne journée.
eb.

[vondoume]

Bonjour,

Pourtant Pol63 a quasiment tout dit... C'est pas compliqué :
- 1 Form
- 1 variable (String Private de la Form) contenant la chaine à envoyer,
- 1 Compteur (Integer Private de la Form),
- 1 Timer

Dans Timer.tick, on envoie le caractère positionné à la position Compteur de la chaine et on incrémente Compteur.
Lorsque la chaine est entièrement envoyée, on arrête le timer.

Après, il reste le cours de Philippe Lasserre.
Bonne journée.
eb.

Voila j'ai fait ça mais je me demande comment arrêter le timer quand tout est envoyé? Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim arrayLetters As Array = TextBox1.Text.ToCharArray()
        For i = 0 To arrayLetters.Length - 1
            ListBox1.Items.Add(arrayLetters(i))
            Timer1.Start()
        Next
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
        SendKeys.Send(ListBox1.SelectedItem)
    End Sub
End Class

[The_Big_Lebowski]

Rien ne stipule l'incrémentation dans ton timer. Tu boucles à priori sur la première lettre.
J'ai testé le code ci-dessous, ça marche. A toi de l'adapter pour ton cas de figure.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private leTexte As String = "wakatepe baboun"
Private position As Short
 
Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
    'définir la propriété 'interval' du timer
    Timer1.Start()
End Sub
 
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Call s_SetLetter()
End Sub
 
Private Sub s_SetLetter()
    Dim Texte As String = txtLettres.Text 'le textBox
    Dim tmp As String = ""
    If position >= leTexte.Length Then
        position = 0
        Texte = ""
        'ou alors, on arrete le timer => Timer1.Stop()
    End If
    tmp = leTexte.Chars(position)
    txtLettres.Text = Texte & tmp
    position += 1
End Sub

[rv26t]

Bonjour, je code un programme sous Visual Basic 2010 express. Dans mon programme, je veut envoyer un texte d'une textbox par exemple (comme avec sendkeys) mais lettre par lettre et non tout d'un coup et si possible de regler cette vitesse. Je voudrais savoir si cela est possible. Merci pour vos future réponses.

Un exemple (un timer, un bouton, 2 textbox)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class frmTimers
    Private pos As Integer = 0
 
    Private Sub btnEnvoie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnvoie.Click
        If IsNumeric(TextBox2.Text) Then Timer1.Interval = Integer.Parse(TextBox2.Text) Else Timer1.Interval = 500 'textbox2 contient la frequence de déclenchement du timer
        Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If pos < TextBox1.Text.Length Then
            SendKeys.Send(TextBox1.Text(pos))
            pos += 1
        Else
            'SendKeys.Send("{ENTER}")
            Timer1.Enabled = False
        End If
    End Sub
 
End Class

Utilisation avec notepad par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Class frmTimers
 
    Private pos As Integer = 0
    Private ProcID As Integer
 
    Private Sub btnEnvoie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnvoie.Click
        AppActivate(ProcID)
        If IsNumeric(TextBox2.Text) Then Timer1.Interval = Integer.Parse(TextBox2.Text) Else Timer1.Interval = 500 'textbox2 contient la frequence de déclenchement du timer
        Timer1.Enabled = True
    End Sub
 
    Private Sub frmTimers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProcID = Shell("notepad.EXE", AppWinStyle.NormalFocus)
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If pos < TextBox1.Text.Length Then
            SendKeys.Send(TextBox1.Text(pos))
            pos += 1
        Else
            SendKeys.Send("{ENTER}")
            Timer1.Enabled = False
            pos = 0
        End If
    End Sub
 
End Class

[vondoume]

Un exemple (un timer, un bouton, 2 textbox)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class frmTimers
    Private pos As Integer = 0
 
    Private Sub btnEnvoie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnvoie.Click
        If IsNumeric(TextBox2.Text) Then Timer1.Interval = Integer.Parse(TextBox2.Text) Else Timer1.Interval = 500 'textbox2 contient la frequence de déclenchement du timer
        Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If pos < TextBox1.Text.Length Then
            SendKeys.Send(TextBox1.Text(pos))
            pos += 1
        Else
            'SendKeys.Send("{ENTER}")
            Timer1.Enabled = False
        End If
    End Sub
 
End Class

Utilisation avec notepad par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public Class frmTimers
 
    Private pos As Integer = 0
    Private ProcID As Integer
 
    Private Sub btnEnvoie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnvoie.Click
        AppActivate(ProcID)
        If IsNumeric(TextBox2.Text) Then Timer1.Interval = Integer.Parse(TextBox2.Text) Else Timer1.Interval = 500 'textbox2 contient la frequence de déclenchement du timer
        Timer1.Enabled = True
    End Sub
 
    Private Sub frmTimers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProcID = Shell("notepad.EXE", AppWinStyle.NormalFocus)
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If pos < TextBox1.Text.Length Then
            SendKeys.Send(TextBox1.Text(pos))
            pos += 1
        Else
            SendKeys.Send("{ENTER}")
            Timer1.Enabled = False
        End If
    End Sub
 
End Class

Merci à toi tout marche nickel, il manquait juste de reset la "pos" quand le timer s'arrête (pos = 0). Encore merci!

[rv26t]

De rien.
Exact, j'avais juste testé une fois dans l'exemple complet avec notepad que j'avais rajouté après au post (rectifié dans le code complet), pense a mettre en Résolue.