Зачем устанавливать программу (например, AutoIt), если Windows может сделать это из коробки?
Сохраните следующее в файл с именем auto_switch.vbs
:
Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Do
WScript.Sleep 30000
WshShell.SendKeys("%{TAB}")
Loop
Измените 30000
на количество миллисекунд (например, 30000 = 30 секунд) между нажатиями Alt+Tab. Дважды щелкните по нему, чтобы запустить его.
Если вы хотите остановить это, то вам нужно убить процесс под названием "wscript".
Если вы хотите переключаться между программами с явным именем, этот код будет переключаться между «Входящие - Microsoft Outlook» и "Firefox" каждые 30 секунд:
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
Стоит отметить, что если приложения в приведенном выше примере свернуты, то они останутся свернутыми даже после их активации.
Чтобы также восстановить окно, удалите '
перед WshShell.SendKeys
. Это сделает скрипт активным в окне, а затем немедленно отправит комбинацию клавиш восстановления Alt+SpaceBar, r . Если вы используете неанглийскую версию Windows, вам может потребоваться изменить этот ярлык.