SENDKEYS

[CARRY-ON]

como hacer para que con sendkeys mande los almacenado en  una variable

ejemplo un for de i  =0 hasta 2100
hola= i+1
y que senkeys vaya mandando lo alamacenado en hola

[The Shredder]

Código [Seleccionar] Expandir


For i= 0 To 2600
hola = i
SendKeys (hola)
Next


[CARRY-ON]

ee lo probaste ami no me resulta lo hice asi

Private Sub Form_Load()
Dim SUMA As Integer
Dim I As Integer


For I = 0 To 10
SUMA = I

SendKeys (SUMA)

Next I




End Sub

[The Shredder]

si sirve el tuyo tbn, lo q pasa es q sucede muy rapido, pero para hacer la prueba, agregale un textbox al form y lo corres cn el mismo codigo q ya tienes y veras como se sobreescribio el textbox...
salu2

[CARRY-ON]

COMO LO HAGOPARA QUE MANDE MAS LENTO LO PUSE EN UN TIMER PERO MANDA TODOSLOS NUMEROS ALA VEZ

[The Shredder]

Código [Seleccionar] Expandir


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load
For i= 0 To 10
SendKeys (i)
Sleep 10000
Next
End
End Sub


No se si funcione, no tengo mucha experiencia con esta api, pero es lo q se me ha venido a la mente...
salu2 y me avisas si funciona

[The Shredder]

jajaja no sire xDxDxD lo acabo de probar sorry...

[CARRY-ON]

OK NO IMPORTA OYE SIEMPRE VEO ESO de las api aca hay un manual donde salgan las api y que hacen o para que sirven? o alguna pagina

[CARRY-ON]

ya pille un hilo

[kakinets]

prueva poniendolo en un Timer con un inteval de  100 o mas!!!!

         Saludos y Suerte