👦 🕞 🐕 एक अतिरिक्त संशोधक के रूप में कैप्सलॉक ☁️ 👨🏿‍⚕️ 🏠

▌ परिचय

VisualStudio में टैब बंद करने के लिए मेरे लिए Ctrl-F4 को प्रेस करना असुविधाजनक था, मैंने इस फ़ंक्शन को इंटरनेट ब्राउज़र और कुछ अन्य Ctrl-W कार्यक्रमों के लिए मानक पर फिर से असाइन करने की कोशिश की, लेकिन कठिनाइयों में भाग गया और एक अधिक लचीला समाधान खोजने का फैसला किया।

कैप्स लॉक के लिए समर्पित हब पर पहले से ही एक लेख है, और, शायद, लेआउट को स्विच करने के लिए सबसे विहित विकल्प इसका उपयोग है। मैं एक और अधिक लचीला और एक ही समय में, काफी सरल दृष्टिकोण दिखाना चाहता हूं।

▌ आइडिया

और CapsLock Shift / Ctrl / Alt से बदतर क्यों है? उसी तरह से इसका उपयोग क्यों नहीं करते? तो, यह विचार यह है: एक प्रोग्राम लिखें जो कैप की प्रेस / रिलीज को ट्रैक करेगा और इन दो घटनाओं के बीच के अंतराल में कुछ अन्य कुंजियों को दबाएगा और परिणाम के आधार पर कुछ कार्रवाई करेगा।

▌ ऑटो इट

AutoIt विंडोज में कार्यों को स्वचालित करने के लिए एक फ्रीवेयर स्क्रिप्टिंग भाषा है। इसके साथ काम करना शुरू करने के लिए, बस AutoIt फुल इंस्टॉलेशन डाउनलोड करें, SciTE एडिटर के ट्रंच किए गए संस्करण को स्थापित करें और चलाएं, जो पैकेज में आता है।

▌ स्रोत कोड

एक टुकड़े में कोड और कोई टिप्पणी नहीं

#include <Misc.au3> Global $isSingleCaps = True HotKeySet("{LAUNCH_MAIL}", "HoldModifier") While 1 Sleep(60000) WEnd Func HoldModifier() $isSingleCaps = True If _IsPressed("B4") Then HotKeySet("w", "CloseTab") HotKeySet("t", "RunAllTests") HotKeySet("]", "RestartExplorer") HotKeySet("a", "Play") HotKeySet("{NUMPADSUB}", "VolumeUp") HotKeySet("0", "RealCaps") While _IsPressed("B4") sleep(0) WEnd Unset() EndIf If $isSingleCaps Then Send("!+9") EndIf EndFunc Func Unset() HotKeySet("w") HotKeySet("t") HotKeySet("]") HotKeySet("a") HotKeySet("{NUMPADSUB}") HotKeySet("0") EndFunc Func CloseTab() $isSingleCaps = False If StringInStr(WinGetTitle("[active]"), "Microsoft Visual Studio", 1, -1) Then Send("^{F4}") Else Send("^{w}") EndIf EndFunc Func RunAllTests() $isSingleCaps = False If StringInStr(WinGetTitle("[active]"), "Microsoft Visual Studio", 1, -1) Then Send("^u") Send("^l") EndIf EndFunc Func RestartExplorer() $isSingleCaps = False ShellExecute("taskkill", "/im explorer.exe /f") ProcessWaitClose("explorer.exe") Run("C:\Windows\explorer.exe") EndFunc Func VolumeUp() $isSingleCaps = False Send("{VOLUME_UP 3}") EndFunc Func Play() Unset() $isSingleCaps = False If StringInStr(WinGetTitle("[active]"), "Total Commander", 1, -1) Then Send("{RIGHT}") Send("+{RIGHT}") Send("aimp3.exe /add_play ") Send("{BACKSPACE}") Send("^p") Send("{ENTER}") Send("{ENTER}") Send("{LEFT}") EndIf EndFunc Func RealCaps() Unset() $isSingleCaps = False $var = InputBox("To UpperCase", "     UpperCase") Send(StringUpper($var)) EndFunc

 #include <Misc.au3> ;  Misc.au3   _IsPressed,     Global $isSingleCaps = True ;        HotKeySet("{LAUNCH_MAIL}", "HoldModifier") ;     ,       While 1 Sleep(60000) ; " " WEnd

HotKeySet फ़ंक्शन केवल कुंजियों के एक विशिष्ट सेट को स्वीकार कर सकता है और एक विशेष तरीके से CapsLock / NumLock / ScrollLock टॉगल कुंजियों को संभालता है, इसलिए, सरल बनाने के लिए, मैंने CapsLock को रजिस्ट्री के माध्यम से {LACHCH_MAIL} को फिर से असाइन किया है ( SharpKeys एक मुफ्त उपयोगिता है, वास्तव में, एक ग्राफिकल इंटरफ़ेस है, जो ग्राफिकल रफ है) रजिस्ट्री के माध्यम से चाबियाँ)। HotKeySet के अधिक उन्नत संस्करण हैं, लेकिन मैं उदाहरण को जटिल नहीं करना चाहता था।

अनंत लूप AutoIt के लिए एक "ईवेंट-संचालित निष्पादन मॉडल" का एक उदाहरण दिखाता है: जब एक गर्म कुंजी को सौंपा गया फ़ंक्शन कहा जाता है, तो "पेलोड" का निष्पादन निलंबित हो जाता है और फ़ंक्शन के अंत के बाद जारी रहता है। बाद में मैं एक और विकल्प दिखाऊंगा।

 Func HoldModifier() $isSingleCaps = True If _IsPressed("B4") Then ; _IsPressed            HotKeySet("w", "CloseTab") ;    ,      HotKeySet("t", "RunAllTests") HotKeySet("]", "RestartExplorer") HotKeySet("a", "Play") HotKeySet("{NUMPADSUB}", "VolumeUp") HotKeySet("0", "RealCaps") While _IsPressed("B4") ;    sleep(0) WEnd Unset() EndIf If $isSingleCaps Then ;  $isSingleCaps   , ,          Send("!+9") ; "!" - Alt, "+" - Shift,  Alt+Shift+9           EndIf EndFunc Func Unset() HotKeySet("w") ; HotKeySet        HotKeySet("t") HotKeySet("]") HotKeySet("a") HotKeySet("{NUMPADSUB}") HotKeySet("0") EndFunc

यह कैप्सलॉक का उपयोग करने के मूलभूत तर्क को समाप्त करता है, जैसा कि मैं दिखाना चाहता था, आगे के उदाहरण आप ऑटोट के साथ क्या कर सकते हैं।

VS में एक टैब बंद करना:

 Func CloseTab() $isSingleCaps = False If StringInStr(WinGetTitle("[active]"), "Microsoft Visual Studio", 1, -1) Then ;    Send("^{F4}") Else Send("^{w}") ;         Caps+W EndIf EndFunc

सभी परीक्षण चलाएं:

 Func RunAllTests() $isSingleCaps = False If StringInStr(WinGetTitle("[active]"), "Microsoft Visual Studio", 1, -1) Then Send("^u") Send("^l") EndIf EndFunc

खोजकर्ता प्रक्रिया को फिर से शुरू करना (Win8 सक्रियण सर्वर चलने तक मदद की गई):

 Func RestartExplorer() $isSingleCaps = False ShellExecute("taskkill", "/im explorer.exe /f") ProcessWaitClose("explorer.exe") Run("C:\Windows\explorer.exe") EndFunc

मुझे नहीं मिला कि आठवीं विंडोज में मल्टीमीडिया कुंजियों का उपयोग करके वॉल्यूम को बदलने के लिए कदम कैसे बदलना है, इसलिए मैं इस तरह से गया:

 Func VolumeUp() $isSingleCaps = False Send("{VOLUME_UP 3}") ;  {VOLUME_UP}   EndFunc

AIMP में खेलने के लिए उस फ़ोल्डर को भेजें जिस पर कर्सर TotalCommander (Ctrl + P - में खड़ा है) कमांड लाइन के लिए मौजूदा फ़ोल्डर में पथ भेजता है, मुझे यह नहीं मिला कि कर्सर के नीचे फ़ोल्डर में पथ कैसे भेजा जाए, इसलिए यह ऐसा टेढ़ा, लेकिन कार्यशील संस्करण (असेंबली) निकला PowerUser, यदि यह महत्वपूर्ण है)):

 Func Play() Unset() $isSingleCaps = False If StringInStr(WinGetTitle("[active]"), "Total Commander", 1, -1) Then Send("{RIGHT}") ;    Send("+{RIGHT}") ;       Send("aimp3.exe /add_play ") ;        Send("{BACKSPACE}") ;  /   Send("^p") ;      Send("{ENTER}") Send("{ENTER}") Send("{LEFT}") ;     EndIf EndFunc

CapsLock फ़ंक्शन यह है के रूप में।

 Func RealCaps() Unset() $isSingleCaps = False $var = InputBox("To UpperCase", "     UpperCase") Send(StringUpper($var)) EndFunc

▌ एक और निष्पादन मॉडल

सामान्य तौर पर, यह इस तरह दिखता है:

 While 1 If _IsPressed("B4") Then ... EndIf Sleep(50) WEnd

इसके लिए थोड़े अधिक संसाधनों की आवश्यकता होती है, लेकिन आप किसी भी वर्चुअल कोड का उपयोग कर सकते हैं।

▌ निष्कर्ष

अंतिम चरण प्रोग्राम Ctrl + F7 को संकलित करने और लिंक को स्टार्टअप फ़ोल्डर में परिणामी निष्पादन योग्य जगह पर रखना है।

एक समान तंत्र, निश्चित रूप से, अन्य प्रोग्रामिंग भाषाओं में और अन्य ऑपरेटिंग सिस्टम के लिए लागू किया जा सकता है, यहां कोई रॉकेट साइंस नहीं है।

इस विधि में कई महत्वपूर्ण सकारात्मक गुण हैं:

कई के लिए एक परिचित विकल्प के रूप में CapsLock के एक क्लिक के साथ लेआउट स्विच करना।
कैप्सूल का प्रत्यक्ष कार्य संरक्षित है, क्योंकि कभी-कभी यह फिर भी उपयोगी होता है।
यदि आप वैचारिक रूप से इस दृष्टिकोण को पसंद नहीं करते हैं - आप बस इसका उपयोग नहीं कर सकते। और अगर कोई और इसका उपयोग करता है, और आपको उसके कार्यस्थल पर काम करने के लिए मजबूर किया जाता है, तो आप एक क्लिक में स्क्रिप्ट निष्पादन को रोक देते हैं और एक आरामदायक वातावरण में काम करना जारी रखते हैं।
यदि हर कोई मानक गर्म कुंजियों को पुन: असाइन करने के बजाय इस विधि का उपयोग करेगा, तो, किसी और के कार्यस्थल पर बैठकर, आप स्क्रिप्ट के रनिंग संस्करण को बंद कर देंगे और विकल्प के रूप में मानक और परिचित हॉट कीज़ प्राप्त कर सकते हैं), या स्क्रिप्ट के अपने संस्करण को चलाएं और बहुत काम करें आपके लिए अनुकूलित है।