वीबीस्क्रिप्ट - AppActivate

Question

का उपयोग कर विंडो पर फ़ोकस स्विच करना हमारे पास एक अलग कंप्यूटर से जुड़े कई टीवी हैं। लक्ष्य दो अनुप्रयोगों के माध्यम से निरंतर लूप साइकल चलाना/सेटफोकस प्रदर्शित करना है। इसे सभी टीवी में सिंक्रनाइज़ किया जाना है। मूल रूप से मैंने इसे Alt + esc कुंजी भेजकर टास्क बार में सभी ऐप्स के माध्यम से चक्र स्थापित किया था। जो ठीक काम करता था लेकिन सभी टीवी में इसे सिंक्रनाइज़ करने में कठिन समय था। इसलिए मैंने ऐपएक्टिवेट को सेटफोकस में इस्तेमाल किया और विंडोज़ के बीच भी/अजीब मिनट के आधार पर स्विच किया। अब यह सिंक्रनाइज़ किया गया है, लेकिन स्क्रीन हर दूसरी थर्बी विंडो को सेटफोकस करने का प्रयास करती है जिससे स्क्रीन हर समय झिलमिलाहट हो जाती है। मैं इससे कैसे बच सकता हूं ??? कोई सुझाव??? यहां कोड का हिस्सा है।

' Loop lasts 1 second 

intSleep = 1000 

Set wshShell = CreateObject("WScript.Shell") 

'repeat process indefinetly 

Do while infiniteloop=0 
    a = minute(time()) 
    intResult = a Mod 2 ' to check for even/odd minute 

    If intResult = 0 Then 
     'display window1 
     if wshShell.AppActivate "Display - [Dashboard]" = false then 
      wshShell.AppActivate "Display - [Dashboard]" 
     end if 

    ElseIf intResult = 1 Then 
     'display window2 
     if wshShell.AppActivate "Display - [TEST]" = false then 
      wshShell.AppActivate "Display - [TEST]" 
     end if 

    End If 
    Wscript.Sleep intSleep 

Loop 

Answer 1

वीबीस्क्रिप्ट के साथ ऐसा करने का वास्तव में एक शानदार तरीका नहीं है, लेकिन आप SendKeys से दूर जाने का अधिकार रखते हैं।

मैं बस सोने का समय 1 मिनट तक बढ़ा दूंगा। इस तरह आप अगर कथन का मूल्यांकन करते हैं तो कितनी बार कम हो रहा है (जिससे प्रदर्शन बढ़ रहा है)। और यह केवल एक मिनट एक बार फोकस चोरी करने की कोशिश करता है:

Option Explicit 

Dim shl 

Set shl = CreateObject("WScript.Shell") 

Do 
    If (Minute(Time()) Mod 2) = 0 Then 
    shl.AppActivate "Program One" 
    Else 
    shl.AppActivate "Program Two" 
    End If 

    WScript.Sleep (1000 * 60) 
Loop 

Answer 2

यह क्योंकि चर intResult पूरे भी मिनट के लिए 0 के बराबर होती है हर दूसरे flickers। आपको एक और चर है, जैसे "intLastResult"। अपने लूप के अंत में, आप intLastResult = intResult सेट करेंगे, और फोकस बदलने के लिए अपने IF कथन दोबारा करेंगे ताकि वे केवल परिणाम निकाल सकें जब वर्तमान परिणाम पिछले परिणाम से अलग हो। अर्थात। "अगर intResult = 0 और intLastResult = 1 फिर" या "अगर intResult = 1 और intLastResult = 0 फिर"। इस तरह उन्हें केवल एक मिनट में आग लगनी चाहिए।