कार्यालय में संगीत नियंत्रण का स्वचालन, ICQ के माध्यम से ऑर्डर करने के लिए कोई भी गीत

मैं एक ऑफिस का कर्मचारी हूं। मेरा कार्यस्थल एक कार्यालय है, जिसमें मेरे अलावा 6 लोग बैठे हैं। मैं लंबे समय से इस तथ्य का आदी रहा हूं कि संगीत हमेशा पृष्ठभूमि में खेलता है, उन कार्य प्रक्रियाओं के अपवाद के साथ जिनमें एकाग्रता की आवश्यकता होती है। हेडफ़ोन के साथ संगीत सुनना किसी तरह असुविधाजनक है, और सिर जल्द ही चोट लगने लगता है। इसलिए, मैंने हमेशा उसकी बात सुनी, ताकि मेरे "पड़ोसियों" के लिए उसे सुनना असंभव था। उन्होंने मुझे डांटा ... लेकिन मुझे डांटा नहीं क्योंकि मैंने खुद संगीत में दखल दिया था, बल्कि इसलिए कि मैंने गलत संगीत सुना। तब मुझे सभी को खुश करने की इच्छा थी ताकि हर कोई अपनी जगह से उठे बिना किसी भी गीत को चालू कर सके, यहां तक ​​कि वह भी जो कंप्यूटर पर नहीं है।

योजना

पहली नज़र में, स्वचालन में निम्नलिखित विशेषताएं शामिल होनी चाहिए: ऑनलाइन नेटवर्क से किसी भी ट्रैक को शामिल करना, ट्रैक को बदलना, वॉल्यूम समायोजित करना, प्लेबैक को रोकने की क्षमता और तदनुसार, पॉज़ करने के लिए, और कंप्यूटर पर स्थानीय रूप से ट्रैक को सक्षम करना भी संभव होना चाहिए। मैं वास्तव में प्रोग्रामिंग से परिचित नहीं हूं, जैसे कि ऑटिट मैनुअल को पढ़ने के अपवाद के साथ (मैं हमेशा विंडोज सिस्टम में किसी भी प्रक्रिया को स्वचालित करने में सक्षम होना चाहता था)। तुरंत मेरे सिर में एक योजना दिखाई दी: ऑटोबिट + ICQ + Foobar + Plugin for Foobar, जो आपको VKontakte सोशल नेटवर्क से ऑनलाइन संगीत खोजने और सुनने की अनुमति देता है (इसकी विंडो स्क्रीनशॉट में दिखाई गई है)। लब्बोलुआब यह है कि सरल है: मेरे सहकर्मी एक विशिष्ट संदेश को संदेश भेजते हैं, AutoIT स्क्रिप्ट उन्हें उठाती है और संदेश के अनुसार, Foobar के साथ जोड़तोड़ करती है।

कार्यान्वयन

जब से ऑटोट चल रहा है, स्क्रीन पर सभी स्क्रिप्ट जोड़तोड़ दिखाई दे रहे हैं: खिड़कियां खोलना, एक ट्रैक का चयन करना, और इसी तरह, मैंने शुरू में इसके लिए एक वर्चुअल मशीन का उपयोग करने की योजना बनाई थी, लेकिन, चारों ओर मुड़ते हुए, मैंने हाल ही में इस्तीफा देने वाले कर्मचारी का एक बेकार कंप्यूटर देखा और फैसला किया कि अभी के लिए एक "मीडिया सेंटर" होगा। वह है।

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

सारी तैयारी पूरी करने के बाद, मैंने खुद ही स्क्रिप्ट लिखना शुरू कर दिया। इसके कार्य का सिद्धांत सरल है: प्रत्येक 2 सेकंड में उस फ़ोल्डर को जांचना चाहिए जिसमें QIP एक txt फ़ाइल के लिए पत्राचार के इतिहास को संग्रहीत करता है, यदि फ़ाइल स्थित है, तो वह इससे एक संदेश पढ़ता है, इतिहास फ़ाइल को स्वयं हटा देता है और, जो लिखा गया था उसके अनुसार संदेश में Foobar'om के साथ जोड़तोड़ करता है।

नतीजा क्या हुआ

स्क्रिप्ट:

फंक टर्मिनेट ( ) ; स्क्रिप्ट को बंद करने का कार्य क्योंकि यह एक अनंत लूप में काम करता है
बाहर निकलें ०
EndFunc
HotKeySet ( "{ESC}" , "समाप्त" ) ; ESC कुंजी के लिए शटडाउन फ़ंक्शन को बांधता है

FileChangeDir ( "C: प्रोग्राम FilesQIPUsersXXXXXXXXXHistory" ) ; कार्य निर्देशिका को बदलता है

जबकि 1 ; स्क्रिप्ट काम का एक अंतहीन लूप शुरू करता है
$ खोज = FileFindFirstFile ( "* .txt" ) ; कार्यशील निर्देशिका में txt फ़ाइलों की खोज करता है और लौटे खोज मूल्य को $ खोज चर में डालता है
अगर $ खोज = - 1 तो ; चर सामग्री द्वारा फ़ाइलों के लिए जाँच
नींद ( 1000 ) ; यदि कोई फ़ाइल नहीं मिलती है, तो यह एक सेकंड इंतजार करती है और फिर से चक्र शुरू करती है
और ; यदि कोई txt फ़ाइल मिलती है, तो ...
$ फ़ाइल = FileFindNextFile ( $ खोज ) ; चर $ फ़ाइल में फ़ाइल का नाम जोड़ता है
$ लॉग = फाइलरेड ( $ फाइल ) ; $ लॉग चर में फ़ाइल की सामग्री को जोड़ता है
$ लॉग = स्ट्रिंगस्प्लिट ( $ लॉग , @ एलएफ ) ; चूंकि QIP में एक संदेश में तीन लाइनें होती हैं (संदेश को इनकमिंग या आउटगोइंग के रूप में चिह्नित करना, लेखक का नाम / तारीख / संदेश भेजने का समय और संदेश स्वयं), यह चर से एक सरणी बनाता है जिसमें प्रत्येक तत्व एक पंक्ति के बराबर होता है
$ मेस = $ लॉग [ 3 ] ; संदेश स्वयं मेस $ चर में प्रवेश करता है
FileDelete ( $ फ़ाइल ) ; एक इतिहास फ़ाइल हटाता है
MsgBox ( "0" , "" , $ मेस , 1 ) ; एक सेकंड के लिए, कमांड के साथ एक संदेश प्रदर्शित करता है जिसे स्क्रिप्ट अब निष्पादित करेगी - यह डीबगिंग के लिए लागू किया गया है
WinActivate ( '[REGEXPCLASS :(! I) {97E27FAA-C0B3-4b8e-A693-ED7881E99FC1}]' ) ; यह फ़ॉबर विंडो को सक्रिय बनाता है, जिसे क्लास को कॉल करके कार्यान्वित किया जाता है, क्योंकि खिलाड़ी के शीर्षक को रचना के आधार पर बदल दिया जाता है
WinWaitActive ( '[REGEXPCLASS :(! I) {97E27FAA-C0B3-4b8e-A693-ED7881E99FC1}]' ) ; Foobar विंडो के सक्रिय होने की प्रतीक्षा करता है

$ चेक = StringInStr ( $ मेस , "स्थानीय" ) ; संदेश निकाय में "स्थानीय" शब्द के लिए जाँच करता है
अगर $ चेक = 1 तो ; यदि संदेश की शुरुआत में "स्थानीय" है, तो ...
$ मेस = स्ट्रिंगट्रीमलेट ( $ मेस , 6 ) ; संदेश में पहले 6 वर्ण "ट्रंकट्स" (स्थानीय और बाद के स्थान शब्द)
भेजें ( "^ f" ) ; CTRL + F भेजता है
WinWaitActive ( '[REGEXPCLASS :(? I) {483DF8E3-09E3-40d2-BEB8-67284CE3559F}]' ) ; हम ट्रैक सर्च विंडो के खुलने का इंतजार कर रहे हैं।
भेजें ( $ मेस ) ; अनुरोध में संदेश सामग्री जोड़ता है
नींद ( 500 ) ; आधा सेकेंड इंतजार किया
भेजें ( "{TAB}" ) ; एक TAB कुंजी प्रेस भेजता है
नींद ( 500 ) ; इंतज़ार कर रहा है
भेजें ( "{TAB}" ) ; एक TAB कुंजी प्रेस भेजता है (विंडो तत्व जिसमें खोज परिणाम प्रदर्शित होता है, उसे सक्रिय किया जाता है)
नींद ( 500 ) ; इंतज़ार कर रहा है
भेजें ( "{DOWN}" ) ; DOWN कुंजी प्रेस भेजता है (खोज द्वारा पाया गया पहला ट्रैक हाइलाइट किया गया है)
नींद ( 500 ) ; इंतज़ार कर रहा है
भेजें ( "{ENTER}" ) ; जिसमें पाया गया ट्रैक भी शामिल है
नींद ( 500 ) ; इंतज़ार कर रहा है
WinClose ( '[REGEXPCLASS :(? I) {483DF8E3-09E3-40d2-BEB8-67284CE3559F}]' ) ; खोज बॉक्स बंद करता है
महाद्वीपीय ; लूप होते हुए अनंत की शुरुआत में लौटता है
एंडिफ ; यदि शब्द "स्थानीय" संदेश की शुरुआत में नहीं है, तो स्क्रिप्ट यहां से पढ़ना जारी है ...

$ स्टॉप = स्ट्रींगरेज़ एक्सपी ( $ मेस , "स्टॉप" ) ; ... संदेश में शब्द रोक के लिए देख रहे हैं
$ VolUp = StringRegExp ( $ मेस , " लाउडर " ) ; संदेश में जोर शब्द के लिए खोज करता है
$ VolDown = StringRegExp ( $ मेस , "शांत" ) ; एक संदेश में प्रविष्टि "शांत" के लिए खोज करता है
$ VolMax = StringRegExp ( $ मेस , "लाउड" ) ; एक संदेश में प्रविष्टि "ज़ोर" के लिए खोज करता है
$ VolMin = StringRegExp ( $ मेस , "शांत" ) ; संदेश में शब्द "शांत" के लिए खोज करता है

अगर $ Stop = 1 तो ; यदि शब्द स्टॉप भेजा जाता है, तो ।।
भेजें ( "एक्स!" ) ; ... एएलटी + एक्स भेजेगा, जो खेलना बंद / जारी रखता है
महाद्वीपीय ; लूप होते हुए अनंत की शुरुआत में लौटता है
endif

अगर $ VolUp = 1 तो ; यदि लाउड शब्द भेजा जाता है, तो ...
भेजें ( "{यूपी}" ) ; ...
भेजें ( "{यूपी}" ) ; ...
भेजें ( "{यूपी}" ) ; ...
भेजें ( "{यूपी}" ) ; ...
भेजें ( "{यूपी}" ) ; ALT + UP कुंजी संयोजन को 5 बार दबाएं, जो वॉल्यूम को थोड़ा बढ़ाता है
महाद्वीपीय ; लूप होते हुए अनंत की शुरुआत में लौटता है
endif

अगर $ वोल्डाउन = 1 तो ; यदि लाउड शब्द भेजा जाता है, तो ...
भेजें ( "! {DOWN}" ) ; ...
भेजें ( "! {DOWN}" ) ; ...
भेजें ( "! {DOWN}" ) ; ...
भेजें ( "! {DOWN}" ) ; ...
भेजें ( "! {DOWN}" ) ; 5 बार ALT + DOWN कुंजी संयोजन दबाता है, जिससे वॉल्यूम कम हो जाता है
महाद्वीपीय ; लूप होते हुए अनंत की शुरुआत में लौटता है
endif

अगर $ VolMax = 1 तो ; यदि "ज़ोर" शब्द भेजा जाता है, तो ...
भेजें ( "सी!" ) ; ... अधिकतम वॉल्यूम चालू करने वाला ALT + C कीबोर्ड शॉर्टकट भेजेगा
महाद्वीपीय ; लूप होते हुए अनंत की शुरुआत में लौटता है
endif

अगर $ VolMin = 1 तो ; यदि "चुपचाप" शब्द भेजा जाता है, तो ...
भेजें ( "! Z" ) ; ... ALT + Z कीबोर्ड शॉर्टकट भेजेगा जो न्यूनतम वॉल्यूम को चालू करता है (पूरी तरह से बंद नहीं होता है)
महाद्वीपीय ; लूप होते हुए अनंत की शुरुआत में लौटता है
endif

; यदि खड़े होने वाले किसी व्यक्ति ने काम नहीं किया, तो ...

भेजें ( "^ q" ) ; CTRL + Q कीबोर्ड शॉर्टकट भेजता है, जो Foobar प्लगइन विंडो खोलने के लिए जिम्मेदार है, जो VK पर संगीत खोजता है
WinWaitActive ( "vk.com ऑडियो सर्च" ) ; प्लगइन विंडो के सक्रिय होने तक प्रतीक्षा करता है
ControlCommand ( "vk.com ऑडियो सर्च" , "" , "कॉम्बोबॉक्स 1" , "सेटक्रांतिलयन" , 6 ) ; ड्रॉप-डाउन सूची से "किस सेवा को देखना है" का चयन करें vk.com (VK)
नींद ( 500 ) ; आधा सेकेंड इंतजार किया
ControlFocus ( "vk.com ऑडियो सर्च" , "" , "एडिट 1" ) ; क्वेरी इनपुट लाइन को सक्षम करता है
नींद ( 500 ) ; इंतज़ार कर रहा है
भेजें ( $ मेस ) ; QIP से इनपुट लाइन तक एक संदेश की सामग्री भेजता है
नींद ( 5000 ) ; यह 5 सेकंड प्रतीक्षा करता है जबकि प्लगइन एक ट्रैक की खोज करता है

जबकि 1 ; मैं नहीं जानता कि अनंत लूप का उपयोग करने के अलावा, आगे क्या होगा, इसे कैसे लागू किया जाए
$ i = ControlListView ( "vk.com ऑडियो सर्च" , "" , "SysListView321" , "GetItemCount" ) ; चर $ i को मिली पटरियों की संख्या को जोड़ता है
अगर $ i = 0 तो ; यदि कोई ट्रैक नहीं मिला (प्लगइन कभी-कभी पहली बार परिणाम नहीं पाता है)
ControlClick ( "vk.com ऑडियो सर्च" , "" , "बटन 1" ) ; स्टॉप सर्च बटन पर क्लिक करें
नींद ( 500 ) ; इंतज़ार कर रहा है
ControlClick ( "vk.com ऑडियो सर्च" , "" , "बटन 1" ) ; सर्च बटन पर क्लिक करें
नींद ( 5000 ) ; इंतज़ार कर रहा है
निकास ; लूप करते समय आंतरिक अनंत से बाहर निकलता है (हमेशा दूसरी बार पाता है)
अन्यथा
निकास ; यदि आपको यह पहली बार नहीं मिला, तो सबसे अधिक संभावना है कि ट्रैक नाम गलत तरीके से दर्ज किया गया था और स्क्रिप्ट आंतरिक अनंत लूप से बाहर निकलती है
endif
बीतना

ControlListView ( "vk.com ऑडियो खोज" , "" , "SysListView321" , "चयन करें" , 1 ) ; खोज परिणाम से दूसरा ट्रैक चुनता है (किसी कारण से पहली बार 00:00 लंबा होता है और नहीं खेलता है)
ControlClick ( "vk.com ऑडियो सर्च" , "" , "बटन 3" ) ; प्लेलिस्ट में दूसरा ट्रैक जोड़ता है
WinClose ( "vk.com ऑडियो सर्च" ) ; प्लगइन विंडो बंद कर देता है
WinWaitActive ( '[REGEXPCLASS :(! I) {97E27FAA-C0B3-4b8e-A693-ED7881E99FC1}]' ) ; जब तक फ़ॉबर विंडो सक्रिय नहीं हो जाता तब तक प्रतीक्षा करता है
नींद ( 500 ) ; आधा सेकेंड इंतजार किया
भेजें ( "{END}" ) ; भेजता है
नींद ( 500 ) ; इंतज़ार कर रहा है
भेजें ( "{ENTER}" ) ; ENTER कुंजी का एक प्रेस भेजता है, जिसमें एक ट्रैक शामिल है
endif
बीतना; अनंत लूप की शुरुआत में लौटता है

यह कैसे काम करता है

शुरू करने से पहले, आपको फ़ॉबर की प्लेलिस्ट में एक स्थानीय संगीत लाइब्रेरी को जोड़ना होगा। अगर कोई सरलता से लिखता है: "मेटालिका काले रंग की", तो स्क्रिप्ट वीके पर इस गीत को "ढूंढती" है और इसमें शामिल है। अगर किसी ने लिखा है: "स्थानीय जो सतरानी भीड़ जप", तो पटकथा अपनी प्लेलिस्ट में ट्रैक ढूंढती है, और फिर इसे शामिल करती है। निम्नलिखित आदेश भी उपलब्ध हैं: "शांत", "ज़ोर", "शांत", "ज़ोर" और "रोक"।

निष्कर्ष

मैंने कई घंटों के लिए ऐसा किया और मुझे पता है कि स्क्रिप्ट आदर्श से बहुत दूर है, इसमें कई खामियां हैं, उदाहरण के लिए: आपको किसी तरह कोड को छोटा करना चाहिए (आप संभवतः अधिक सही तरीके से पकड़ने वाले कमांड को फिर से शुरू कर सकते हैं) या यदि कोई व्यक्ति "स्थानीय" शब्द के साथ ट्रैक पूछता है। यदि यह प्लेलिस्ट में नहीं है, तो आपको इसे ऑनलाइन देखने की जरूरत है। मैं बिल्कुल भी प्रोग्रामर नहीं हूं, इसलिए यदि यह मुश्किल नहीं है, तो कोड बनाने में त्रुटियों के बारे में लिखें, मैं आभारी रहूंगा।