unas pausas entre sendkeys

[metroix]

e estado buskando como loko bueno lo que quiero es que por ejemplo con sendkeys envie la "A" y espere unos 5 segundos pa que envie la seguiente letra ejemplo "E"

[Shadow C]

Utiliza la api Sleep. Te quedaria el code algo asi:

Código:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
SendKeys "a"
Sleep 5000 'El tiempo se ve expresado en Milisegundos
SendKeys "e"
End Sub

Salu2 Shadow C

[metroix]

oye man probe eso pero a lo que le doy a start se me paraliza por 5 seg al comienzo :S pongo esto

Código:

SendKeys (text1.Text)
SendKeys "{tab}"
Sleep 5000
SendKeys "{enter}"

pero no ase nada se me paraliza al comienzo de empezar todo:S

[Shadow C]

Claro por que lo que hace la api Sleep dejar en inactividad el programa. Si quieres que no pase esto puedes hacer otro hilo si tienes mucha experiencia con las API o hacerlo con un timer. Agrega en un form un timer y un textbox(con el texto q quieres enviar) y agrega este code

Código:

Dim i As Integer

Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
If i = 0 Then
SendKeys Text1.Text
SendKeys "a"
End If
If i = 1 Then
SendKeys "{tab}"
End If
If i = 2 Then
SendKeys "{enter}"
End If
If i = 3 Then
Timer1.Enabled = False
End If
i = i + 1
End Sub

Con ese code  cada 5 segundos enviara uno de los textos. Igual hay muchas maneras de hacerlo.. va con la imaginacion de cada uno.

Salu2 Shadow C
Espero q te halla servido...

[metroix]

no hay una froma de pausarlo pero sin timer man porq se me ae muy dificl porq el code es largo

[Shadow C]

Puedes hacerlo todo mediante apis creando un nuevo hilo que use la api Sleep
asi no se te traba el programa y este corre a la normalidad
A mi me parece una buena tecnica


Salu2 Shadow C