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

[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.