2

Como fazer com que o envio das teclas ALT e TAB em aconteça conjuntamente e operando esse envio com intervalos de pausa?

Set wshShell=wscript.CreateObject("WScript.Shell")
wscript.Sleep 300
wshShell.sendkeys "%{Tab 3}"
1
  • 1
    Eu consegui o efeito que estou procurando com o aplicativo grátis baixe.net/reckey , no entanto diretamente com um arquivo vbs ainda não consegui! Commented 6/04/2023 às 2:41

2 Respostas 2

-1
Dim Keys(4)
Keys(0)="^%{TAB}" 'enviar Alt + TAB
Keys(1)="^%{TAB}"
Keys(2)="^%{TAB}"
Keys(3)="{ENTER}" 

Set wshShell=wscript.CreateObject("WScript.Shell")
wshShell.AppActivate "chrome" 'Nome da Janela/Programa 
                              'Para o Envio das Teclas
                              'Se necessário! 

wscript.Sleep 500 'milissegundos 

For Each x In Keys
  wshShell.SendKeys x 'Variavel(x=index)
  Wscript.Sleep 500   
Next

Não há necessidade de usar recursos externos para funções disponíveis em .

Índice de A a Z para ajuda on-line VBS /En
Para especificar caracteres que não são exibidos ao pressionar uma tecla, como ENTER ou TAB, e teclas que representam ações e não caracteres, use os códigos da tabela a seguir:`

5
  • 1
    não funcionou, eu precisava que fosse executado ALT+TAB, espera um tempo, solta somente o TAB ainda com o ALT pressionado, pressiona o TAB de novo, espera um tempo, e assim por diante, acada intervalo de tempo vai soltado e pressionando somente o TAB sempre com o ALT pressionado, entendeu? Commented 22/06/2023 às 2:42
  • 1
    Alt + TAB == ("%{TAB}") O uso no código do %+A é um exemplo para uso com letra, para outras teclas use {nome da tecla}
    – Io-ol
    Commented 22/06/2023 às 3:56
  • 1
    Como eu já disse, quando executa a pausa a tecla ALT é solta, o que foge do que eu preciso. Commented 22/06/2023 às 13:59
  • 1
    Agora caiu a ficha aqui! Use: ^ + % + {TAB} == "^%{TAB}"
    – Io-ol
    Commented 23/06/2023 às 0:51
  • 1
    Agora sim teve o efeito que preciso, com o ^ (CRT) deu o mesmo efeito de fixar a tecla ALT (%), só faltou entrar na opção deseja que é quando agente solta a teclas alt e tab, neste caso, dando enter, conforme sugeri. Valeu, obrigado!! Commented 23/06/2023 às 3:22
-2

Só consegui resolver sua questão com um driver (nircmdc.exe) (https://www.nirsoft.net/utils/nircmd-x64.zip). Usando o nircmdc na mesma pasta do seu codigo.vbs vai funcionar com você programando tudo em vbs.

Set wshShell=wscript.CreateObject("WScript.Shell")
wscript.Sleep 2000 
wshShell.Run "nircmdc.exe  sendkey alt down", 0, True
wscript.Sleep 2000
wshShell.Run "nircmdc.exe  sendkey tab press", 0, True
wscript.Sleep 2000
wshShell.Run "nircmdc.exe  sendkey tab press", 0, True
wscript.Sleep 2000
wshShell.Run "nircmdc.exe  sendkey alt up", 0, True
3
  • esta foi a melhor solução que encontrei
    – Vitor
    Commented 7/04/2023 às 13:44
  • 1
    Funcionou direitinho. Otimo, isso resolveu meu problema, obrigado! Commented 7/04/2023 às 13:47
  • Quando descobrir como fazer sem necessidade do driver eu post aqui!
    – Vitor
    Commented 7/04/2023 às 14:54

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .