Aide SendKeys VB 2010

Version imprimable

26/06/2013, 21h53
vondoume

Aide SendKeys VB 2010

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. :D
26/06/2013, 22h31
Pol63

pose un timer
26/06/2013, 23h18
vondoume

Mmm pas sur que poser simplement un timer fera tout, pourrait tu développer?
27/06/2013, 07h51
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
27/06/2013, 19h56
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..
27/06/2013, 21h07
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
27/06/2013, 21h58
vondoume

Il reste la variable que je ne sais pas trop comment utilisé dans cas, comment la codé :$
28/06/2013, 09h38
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.

Citation:

Envoyé par 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.

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

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

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:

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

Citation:

Envoyé par 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. :D

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

Code:

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:

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

Citation:

Envoyé par rv26t

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

Code:

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:

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

03/07/2013, 20h00
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.