[VB6] SendKeys Pause

[WinAce_Boy]

Oi pessoalgostava de saber como posso fazer para quando clikar num botao ele me enviar atecla {ENTER}, mas com uma pausa de 3 segundos?

é que a parte de enviar a tecla eu sei fazer:

private sub cmd1_click()
SendKeys "{ENTER}"
end sub

Mas por a pausa de 3 segundos e que me estoura a cabeça..
Ja procurei na net mas ainda me confundi mais..
Please..
Abraços..

 

[RPortela]

Boas,

não exprimentei o código..ate porque não o que queres que faça quando carregares em enter, mas existe 1 método para isso:

Utiliza 1 timer, definido para 3 segundos, que di inicio fica com "timer1.enabled = false"

Quando clicas no botao eles vai activar o timer, algo como "Timer1.enabled = true", e faz com que o timer começe a contar os 3 segundos;

Por fim, no código do timer, colocas o código que queres, para ele dar o enter;

PS: Para que o programa não esteja a dar "enter" de 3 em 3 segundos, no fim do código do timer, metes "timer1.enabled = false"

Espero ter ajudado,

Alguma dúvida diz

 

[WinAce_Boy]

Obrigadao, ajudou.. abraços

 

[WinAce_Boy]

Ah.. e so + uma coisa..
Existe algum limite de nº d teclas a enviar(nao estou a dizer ao mesmo tempo)..?

 

[spastikman]

não ...

Já fiz uma cheat dessas para um daqueles jogos de typing speed e funcionam 100%

 

[WinAce_Boy]

Ok..
tudo indica que a tecla espaço é {ESPACE} no sendkeys mas eu quando tento usar

SendKeys "{TAB}{SPACE}{ENTER}"

ele dame um erro: "Invalid procedure call or argument"

 

[Kayvlim]

Troca esse {SPACE} por um espaço real ....
SendKeys "{TAB} {ENTER}"

 

[WinAce_Boy]

Obrigado, nao me lembrei dessa..lol