Como fazer com que o envio das teclas ALT e TAB em vbs aconteça conjuntamente e operando esse envio com intervalos de pausa?
Set wshShell=wscript.CreateObject("WScript.Shell")
wscript.Sleep 300
wshShell.sendkeys "%{Tab 3}"
Como fazer com que o envio das teclas ALT e TAB em vbs aconteça conjuntamente e operando esse envio com intervalos de pausa?
Set wshShell=wscript.CreateObject("WScript.Shell")
wscript.Sleep 300
wshShell.sendkeys "%{Tab 3}"
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 vbs.
Í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:`
Alt + TAB
== ("%{TAB}")
O uso no código do %+A
é um exemplo para uso com letra, para outras teclas use {nome da tecla}
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