Por que instalar um programa (como o AutoIt) quando o Windows pode fazer isso da caixa?
Salve o seguinte em um arquivo chamado auto_switch.vbs
:
Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Do
WScript.Sleep 30000
WshShell.SendKeys("%{TAB}")
Loop
Altere o 30000
para o número de milissegundos (30000 = 30 segundos) entre as impressoras Alt + Tab. Clique duas vezes para começar a correr.
Se você quiser pará-lo, então você precisa matar o processo chamado "wscript".
Se você quiser alternar entre programas nomeados explicitamente, esse código alternará entre "Caixa de entrada - Microsoft Outlook" e "Firefox" a cada 30 segundos:
Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Do
WScript.Sleep 30000
WshShell.AppActivate("Inbox - Microsoft Outlook")
' WshShell.SendKeys "% r"
WScript.Sleep 30000
WshShell.AppActivate("Firefox")
' WshShell.SendKeys "% r"
Loop
Vale a pena notar que, se os aplicativos no exemplo acima forem minimizados, eles permanecerão minimizados mesmo depois de serem ativados.
Para restaurar a janela também, remova o '
na frente do WshShell.SendKeys
. Isso fará com que o script ative a janela e, em seguida, envie imediatamente a combinação de teclas de restauração Alt + Barra de Espaço , r . Se você estiver usando uma versão não inglesa do Windows, talvez seja necessário alterar esse atalho.