जब विंडोज बॉक्स से बाहर कर सकता है तो एक प्रोग्राम (जैसे AutoIt) क्यों स्थापित करें?
निम्नलिखित को एक फ़ाइल में सहेजें auto_switch.vbs:
Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Do
WScript.Sleep 30000
WshShell.SendKeys("%{TAB}")
Loop
30000Alt + Tab प्रेस के बीच मिलीसेकंड (इसलिए 30000 = 30 सेकंड) की संख्या को बदलें । इसे चालू करने के लिए डबल क्लिक करें।
यदि आप इसे रोकना चाहते हैं, तो आपको "wscript" नामक प्रक्रिया को मारने की आवश्यकता है।
यदि आप स्पष्ट रूप से नामित कार्यक्रमों के बीच स्विच करना चाहते हैं तो यह कोड "इनबॉक्स - माइक्रोसॉफ्ट आउटलुक" और "फ़ायरफ़ॉक्स" के बीच हर 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। यदि आप विंडोज के गैर-अंग्रेजी संस्करण का उपयोग कर रहे हैं, तो आपको इस शॉर्टकट को बदलने की आवश्यकता हो सकती है।