वीबी स्क्रिप्ट का परिचय: एक शुरुआती गाइड: भाग 2: फाइलों के साथ काम करना: 13 कदम

2024 लेखक: John Day | [email protected]. अंतिम बार संशोधित: 2024-01-30 09:24

खैर मेरे पिछले VBScript निर्देशयोग्य में, मैंने Xbox360 चलाने के लिए अपने इंटरनेट को बंद करने के लिए एक स्क्रिप्ट बनाने का तरीका बताया। आज मुझे एक अलग समस्या है। मेरा कंप्यूटर यादृच्छिक समय पर बंद हो रहा है और मैं हर बार लॉग इन करना चाहता हूं कि कंप्यूटर किसी फ़ाइल में रीबूट होता है। मुझे लगता है कि समस्या वीडियो कार्ड है लेकिन मैं यह सुनिश्चित करना चाहता हूं। मैं कंप्यूटर को हर समय चालू रखता हूं, लेकिन 24/7 इसकी निगरानी नहीं कर सकता, इसलिए मेरा सबसे आसान उपाय यह है कि हर बार रिबूट होने पर किसी फ़ाइल पर टाइम स्टैंप लिखें। क्योंकि यह मुझे हर बार बीएसओडी देता है, जब यह बंद हो जाता है तो लॉगिंग करना कठिन होगा इसलिए इसे वापस आने पर मुझे इसे प्राप्त करना होगा। यह आसान हिस्सा है। इस तथ्य के कारण कि यह सिर्फ अस्थायी है जब तक कि मुझे पता नहीं चलता कि कंप्यूटर में क्या गलत है, मैं रजिस्ट्री को लिखने या इसे एक सेवा बनाने के लिए नहीं जा रहा हूं, इसलिए यह बूट समय पर शुरू हो जाएगा। और इसे हर बार बंद होने पर रीबूट करने के लिए मुझे बायोस संपादित करना होगा।

चरण 1: पावर फेल होने पर इसे रीबूट करने के लिए बायोस को संपादित करना।

मुझे यकीन नहीं है कि मेरी समस्या बिजली की आपूर्ति विफल होने या मेरे वीडियो कार्ड के साथ है या यह क्या है। लेकिन मुझे पता है कि कंप्यूटर हर बार रीबूट होता है। तो यह सुनिश्चित करने के लिए कि बिजली विफल होने के बाद यह रीबूट हो जाता है (आईई: बिजली की आपूर्ति ब्राउन हो जाती है) मैं बायोस संपादित करना चाहता हूं। इस तथ्य के कारण कि वहाँ बहुत सारे अलग-अलग बायोस निर्माता हैं, सभी अलग-अलग बायोस स्क्रीन में ऐसा करने के सभी अलग-अलग तरीकों को सूचीबद्ध करना बहुत कठिन होगा, इसलिए मैं आपको केवल मूल बातें देने जा रहा हूं और आपको इसका पता लगाने देता हूं। अपने आप पर विवरण। मूल रूप से अपने बायोस में जाने के लिए आपको बूट पर एक बटन दबाने की आवश्यकता होगी। आमतौर पर यह "सेट में प्रवेश करने के लिए हिट डेल" या "F2" जैसा कुछ कहेगा। अलग-अलग निर्माता आपको अलग-अलग तरीके देते हैं लेकिन यह आमतौर पर "F2" या "Del" कुंजी होती है। किसी भी तरह से इसके लिए देखें और उस कुंजी को हिट करें जो आपको हिट करने के लिए कहती है। अब आप एक स्क्रीन पर आएंगे जो आमतौर पर या तो ग्रे या ब्लू होती है, लेकिन फिर से यह आपके बायोस मेक पर निर्भर करती है। आप एक पावर सेटिंग्स विकल्प की तलाश में होंगे। यह या तो अपने आप विंडो पर होगा जैसे AMIBIOS स्क्रीन शॉट (टॉम्स हार्डवेयर गाइड से उधार लिया गया) या कुछ में यह एक उन्नत बायोस फीचर विंडो में हो सकता है। वैसे भी आप "एसी/पावर लॉस पर पुनर्स्थापित करें" सेटिंग की तलाश में हैं। इसका नाम कुछ और हो सकता है लेकिन यह उसके करीब होगा। बस इसे ढूंढो। इसके पास आमतौर पर तीन विकल्प होंगे (अंतिम स्थिति, बिजली के नुकसान के बाद, बिजली के नुकसान के बाद बंद)। आप बिजली के नुकसान के बाद इसे चालू करना चाहते हैं। सुनिश्चित करें कि आप अपनी सेटिंग्स को सहेजते हैं और बायोस से बाहर निकलते हैं। अब जब आपकी शक्ति विफल हो जाती है या आप अपनी मशीन को अनप्लग कर देते हैं तो बिजली वापस आते ही यह रीबूट हो जाएगी। हाँ!!!!!!!!!!!!!!!!

चरण 2: स्क्रिप्ट लिखना भाग 1: योजना बनाना

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

चरण ३: स्क्रिप्ट लिखना भाग २: अपनी स्क्रिप्ट बनाना और चर निर्दिष्ट करना।

ठीक है सबसे पहले चीज़ें, एक टेक्स्ट दस्तावेज़ बनाएं और उसका नाम बदलकर any_name.vbs कर दें। मैंने शटडाउन_कैचर.वीबीएस का इस्तेमाल किया लेकिन आप कुछ भी इस्तेमाल कर सकते हैं। अब बस वीबीएस फाइल पर राइट क्लिक करें और एडिट को हिट करें। यदि आप नोटपैड ++ का उपयोग करते हैं तो अब इसे खोलने का एक अच्छा समय होगा, यदि आप नहीं करते हैं, लेकिन आप किसी भी मात्रा में कोडिंग करने की योजना बना रहे हैं इसे प्राप्त करने पर ध्यान देना चाहिए। ठीक है अब पहली चीज जो हम करना चाहते हैं वह है चर बनाना। चर मूल रूप से केवल एक स्थान धारक होते हैं इसलिए हमें कई बार सामान का एक पूरा गुच्छा लिखने की आवश्यकता नहीं होती है। उदाहरण: हमारे पास एक वाक्य है जो कहता है "त्वरित भूरी लोमड़ी आलसी कुत्तों पर वापस कूद जाती है"। लेकिन यह हमारे कोड में 20 बार है। हम या तो पूरे वाक्य को 20 बार टाइप कर सकते हैं या एक वेरिएबल बना सकते हैं और उस वेरिएबल को वाक्य असाइन कर सकते हैं, इसलिए इस उदाहरण में हम वेरिएबल strSentence बनाते हैं, फिर उस वेरिएबल को "त्वरित ब्राउन फॉक्स जंप्स ऑन आलसी डॉग्स बैक" असाइन करते हैं। अब हमें बस इतना करना है कि हर बार हमें वाक्य की आवश्यकता होने पर strSentence टाइप करना है और यह टाइप करना जानता है "त्वरित भूरा लोमड़ी आलसी कुत्तों पर कूदता है" हम यह कैसे करते हैं: यदि हमारे पास एक ही प्रकार के कई चर हैं तो हम डाल सकते हैं उन्हें एक ही लाइन पर रखें और वेरिएबल्स को कॉमा से अलग करें। एक वेरिएबल बनाने के लिए हमें वह करने की जरूरत है जिसे वेरिएबल डायमेंशन कहा जाता है। ऐसा करने के लिए हम वेरिएबल से पहले डिम टाइप करते हैं फिर हम वेरिएबल पर एक प्रीफिक्स डालते हैं ताकि हम जान सकें कि वेरिएबल क्या दर्शाता है। एक स्थिरांक के लिए किसी ऑब्जेक्ट वेरिएबल कॉन्स के लिए स्ट्रिंग वेरिएबल obj के लिए उदाहरण str हैं…। सूची चलती रहती है। ये वे हैं जिनका हम इस लिपि में उपयोग करेंगे इसलिए मैं उन्हें थोड़ा समझाऊंगा। एक स्ट्रिंग आमतौर पर एक वाक्य की तरह पाठ है। एक वस्तु आमतौर पर फ़ाइल या प्रोग्राम की तरह कुछ भौतिक होती है। और एक स्थिरांक कुछ ऐसा है जिसका पूरी स्क्रिप्ट में हमेशा एक ही अर्थ होगा। नोट: किसी भी समय एक पंक्ति में एक ही होता है 'इससे पहले लाइन को स्क्रिप्ट द्वारा अनदेखा कर दिया जाएगा। उन्हें टिप्पणी कहा जाता है और आमतौर पर प्रोग्रामर द्वारा रखा जाता है। वे याद रख सकते हैं कि कोड की समीक्षा करते समय उन्होंने बाद में क्या किया। मैं कोड के बारे में टिप्पणी करने के लिए उनका उपयोग करूंगा ताकि आप देख सकें कि मैंने जिस तरह से किया, मैंने क्यों किया। और वे उस रेखा से ऊपर होंगे जिसके बारे में वे टिप्पणी कर रहे हैं। वास्तविक उपयोग: 'यह रेखा आपको सभी चरों को परिभाषित करने के लिए मजबूर करती है। इसके बिना किसी भी अपरिभाषित चर को एक वस्तु के रूप में माना जाएगाविकल्प स्पष्ट'अब हम उन फ़ोल्डरों और फ़ाइलों के लिए 5 चर बनाते हैं जिनकी हमें आवश्यकता होगी' उन्हें नाम दें कि आप कैसे चाहते हैं लेकिन सम्मेलन preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'अब हमें चाहिए निर्देशिका, फ़ाइल और फ़ाइल नाम के लिए स्ट्रिंग वेरिएबल्स बनाने के लिए, डिम strDir, strFile, strFileName'अब वेरिएबल्स को मान असाइन करें' strDir हमारी निर्देशिका है हम strDir = "C: / Catcher" में फ़ोल्डर चाहते हैं 'strFile वह जगह है जहां हम चाहते हैं टेक्स्ट दस्तावेज़ और इसका नाम क्या हैstrFile = "\Shutdown_catcher.txt"' strfile नाम है इसलिए हमारे पास pop upsstrFileName ="Shutdown_catcher.txt"' में उपयोग के लिए फ़ाइल का नाम है, इसके बाद हमें एक्सेस करने के लिए एक स्थिरांक असाइन करना होगा फ़ाइल में हमारे पास तीन विकल्प हैं 'हम केवल इस कोड में परिशिष्ट का उपयोग करेंगे लेकिन उन सभी को जानना अच्छा है। पढ़ने के लिए = 1, लिखने के लिए = 2, संलग्न करने के लिए = 8' अंत में हमें फ़ाइल सिस्टम में एक चर सेट करने की आवश्यकता है ऑब्जेक्ट ताकि हम इसे बाद में कॉल कर सकें जब हमें इसकी आवश्यकता हो, सेट करें objFiS yOb = CreateObject ("Scripting. FileSystemObject")

चरण 4: बीच में स्पष्टीकरण

अब जब हमारे पास हमारे चर आयाम हैं, तो हमें हर बार उस विशिष्ट चर को याद करना है। यह न केवल हमारे द्वारा की जाने वाली टाइपिंग की मात्रा में कटौती करता है बल्कि गलत वर्तनी के कारण कम गलतियां भी पैदा करता है। अब तकनीकी रूप से हमें केवल निम्नलिखित कोड टाइप करना है और हम कर रहे हैं 'अपेंडिंग के लिए फ़ाइल सेट करें सेट करें objTextFile = objFiSyOb. OpenTextFile (strDir) & strFile, ForAppending, True)' fileobjTextFile में नई लाइन लिखें। कंप्यूटर "और दिनांक और" पर "और समय पर शट डाउन)' फ़ाइल को IESet में खोलें objShell = CreateObject ("WScript. Shell") objShell.run ("Explorer" & "" & strDir & "\shutdown_catcher.txt") समस्या यह है कि इसमें कोई त्रुटि सुधार नहीं होगा, और कोई भी साधारण त्रुटि जैसे फ़ाइल मौजूद नहीं है या पहले से असाइन किया गया चर स्क्रिप्ट को क्रैश कर देगा।

चरण 5: स्क्रिप्ट भाग 3 लिखना: यदि फिर त्रुटि सुधार के रूप में कथन।

त्रुटि सुधार करने का सबसे आसान तरीका अगर/फिर कथनों का उपयोग करना है। मूल रूप से एक यदि कथन कहता है कि अगर कुछ होता है तो ऐसा करें अन्यथा ऐसा करें। अगर/फिर बयानों को घोंसला बनाकर आप उन चीजों की एक स्ट्रिंग बना सकते हैं जो होना है। अगर ए और बी और सी होता है तो यह करें और वह करें। उदाहरण: हम यह सुनिश्चित करना चाहते हैं कि जिस फाइल को हम लिखना चाहते हैं वह वहां है अगर हमें लगता है कि हम कुछ भी नहीं करना चाहते हैं अगर हमें यह नहीं मिलता है तो हम इसे बनाना चाहते हैं या हम यह जांचना चाहते हैं कि फ़ोल्डर है या नहीं और यदि नहीं बना है तो जांच लें कि फ़ाइल वहां है या नहीं, एक बार जब हम फ़ोल्डर ढूंढते हैं और यदि इसे नहीं बनाते हैं तो पहला एक उदाहरण का उदाहरण है यदि फिर कथन है तो दूसरा एक नेस्टेड है। कैसे हम इसे करते हैं: यदि कोई है तो कथन के चार भाग होते हैं यदि/फिर यदि यह मूल रूप से सत्य है तो इसे करें अन्यथा ऐसा करें, फिर कथन को ठीक से कोडित करें यदि कथन होगा: यदि कुछ = कुछ है तो करें आपको क्या करने की आवश्यकता है अन्यथा कुछ और करेंअंत यदि आप किसी भी तर्क का उपयोग तब तक कर सकते हैं जब तक कि यह सत्य है तो यह तत्कालीन भाग का अनुसरण करेगा और दूसरे भाग को अनदेखा करेगा लेकिन यदि यह गलत है तो यह तब को छोड़ देगा और अन्य पर जाएगा, फिर जब हम कथन को समाप्त करेंगे हम "एंड इफ" डालते हैं, लेकिन अगर हमने स्टेटमेंट को नेस्टेड किया है तो हमें हर स्टेटमेंट को खत्म करना होगा। यह उन्हें बच्चे से माता-पिता तक समाप्त कर देगा, इसलिए पहला "अंत अगर" माता-पिता के अंदर अगर कथन समाप्त होता है, जहां दूसरा कथन मूल (अभिभावक) समाप्त होता है। पॉप अप करने के लिए हम केवल Wscript. Echo ("जो कुछ भी) टाइप करते हैं हम संदेश में कहना चाहते हैं ") इसमें एक चर मान जोड़ने के लिए हम इसे एम्परसेंड (&) चिह्न का उपयोग करके एक सीमांकक के रूप में बाहर या दोहरे उद्धरण चिह्नों के बीच में रखते हैं ताकि स्क्रिप्ट को पता चले कि यह एक चर है और एक पाठ नहीं है। इस तरह:Wscript. Echo ("ब्ला ब्ला ब्लाह" और स्ट्रडिर और "ब्ला ब्ला ब्लाह" और स्ट्रफाइलनाम और "ब्ला ब्ला ब्लाह।") आउटपुट एक पॉप अप होगा जो ब्ला ब्ला ब्ला सी: कैचर ब्ला ब्ला ब्लाह शटडाउन_कैचर। ब्ला ब्ला ब्लाह। वास्तविक उपयोग: 'यदि फ़ोल्डर सी; / मौजूद है यदि objFiSyOb. FolderExists (strDir) तो' फ़ोल्डर प्राप्त करें objSysFold = objFiSyOb. GetFolder (strDir) 'अन्यथा अन्यथा' फ़ोल्डर बनाएं c; / पकड़ने वाला सेट objSysFold = objSysFold = सेट करें CreateFolder(strDir)' और यह देखने के लिए जांचें कि क्या फ़ाइल और फ़ोल्डर मौजूद है यदि objFiSyOb. FileExists(strDir & strFile) तो 'अगर यह फ़ोल्डर c:\catcher सेट ob jSysFold = objFiSyOb. GetFolder(strDir)'otherwiseElse' टेक्स्ट दस्तावेज़ बनाएं शटडाउन_कैचर। txt objFile = objFiSyOb. CreateTextFile (strDir और strFile) सेट करें 'फिर यह कहने के लिए एक संदेश पॉप अप करें कि आपने उन दोनों को Wscript. Echo ("हमने एक फ़ोल्डर बनाया है) "& strDir &" नाम दिया गया है और "& strFilename &" नाम की एक फ़ाइल है और इसे "& strDir & strFile &" निर्देशिका में रखा गया है।")' नेस्टेड अगर स्टेटमेंट एंड इफ'एंड ओरिजिनल अगर स्टेटमेंट एंड इफ' अब पहले इफ स्टेटमेंट में हमने पहले ही फ़ोल्डर के लिए जाँच कर ली है और उसे मिल गया है, इसलिए अब हम फ़ाइल की जाँच करते हैं यदि objFiSyOb. FileExists(strDir & strFile) तो 'अगर मिला तो फ़ोल्डर सेट करें objSysFold = objFiSyOb. GetFolder(strDir)'अन्यथा' टेक्स्ट दस्तावेज़ बनाएँ सेट objFile = objFiSyOb. CreateTextFile(strDir & strFile)'यह कहते हुए एक पॉपअप बनाएं कि हमने टेक्स्ट दस्तावेज़ Wscript. Echo ("हमने" और strDir और "फ़ाइल फ़ोल्डर में" & strFileName & "नाम की एक फ़ाइल बनाई है।") समाप्त करें यदि

चरण 6: बीच में स्पष्टीकरण

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

चरण 7: अधिक त्रुटि सुधार

अब जब हमने अधिकांश त्रुटि सुधार पूरा कर लिया है तो हम फ़ाइल में लिखना चाहते हैं और पॉप अप दिखाना चाहते हैं। समस्या यह है कि अगर हम चर में संग्रहीत पिछली वस्तु के संदर्भ को जारी नहीं करते हैं तो हमें अनुमति त्रुटियां मिलेंगी। इसलिए हम कोड का एक छोटा सा स्निपेट डालना चाहते हैं जो कहता है कि वेरिएबल्स को कुछ भी नहीं सेट करें। इस तरह दिखता है: सेट objFile = कुछ भी नहीं objSysFold = कुछ भी नहीं तो आप में से उन लोगों के लिए जो घर पर आपका कोड इस बिंदु पर होना चाहिए (मैंने टिप्पणी ली आउट): विकल्प ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C:\Catcher"strFile = "\Shutdown_catcher.txt"strFileName ="Shutdown_catcher.txt" कॉन्स्ट फॉर रीडिंग = 2, ForAppending = 8Set objFiSyOb = CreateObject("Scripting. FileSystemObject")अगर objFiSyOb. FolderExists(strDir) तो सेट करें objSysFold = objFiSyOb. GetFolder(strDir)else objSysFold = objFiSyOb. CreateFolder)ObjSysFold = objFiSyOb. CreateFolder)ObjSysFold = objFiSyOb. CreateFolder) अगर सेट करें। सेट objSysFold = objFiSyOb. GetFolder(strDir) Else सेट objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo ("हमने "& strDir &" नाम का एक फोल्डर बनाया है और "& strFilename &" नाम की एक फाइल बनाई है और इसे इसमें रखा है। "और strDir और strFile और" निर्देशिका।")अंत I fEnd IfIf objFiSyOb. FileExists(strDir & strFile) फिर सेट करें objSysFold = objFiSyOb. GetFolder(strDir)else objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo ("हमने "& strFileName &" नाम की एक फ़ाइल बनाई है। "और strDir और" फ़ाइल फ़ोल्डर।") इफ़सेट समाप्त करें objFile = कुछ भी नहीं objSysFold = कुछ भी नहीं

चरण 8: स्क्रिप्ट लिखना भाग 4: विशेषताएँ सेट करना

अब हमें फ़ाइल में विशेषताएँ सेट करने की आवश्यकता है ताकि हम इसे संशोधित कर सकें। पहले हम तीन स्थिर चर सेट करते थे: forReading=1forWriting=2 forAppending=8यदि आप इसे पढ़ने के लिए सेट करते हैं तो आप इसे पढ़ने में सक्षम होंगे लेकिन इसे लिखने के लिए नहीं। यदि आप इसे लिखने के लिए सेट करते हैं तो आप हर बार प्रोग्राम चलाने पर मौजूदा फ़ाइल को अधिलेखित कर देंगे. यदि आप इसे संलग्न करने के लिए सेट करते हैं तो आप हर बार स्क्रिप्ट के दस्तावेज़ में निष्पादित होने पर एक नई पंक्ति जोड़ देंगे। चूंकि हम चाहते हैं कि हर बार जब यह रिबूट हो जाए तो हम चाहते हैं कि इसे जोड़ा जाए और अधिक लिखा न जाए, इसलिए हम इसका उपयोग करते हैं। हम इसे कैसे करते हैं: आपको उस ऑब्जेक्ट का नाम देना होगा जिसमें आप विशेषताएँ सेट करना चाहते हैं। चूंकि हमने पिछले चरणों में अधिकांश काम पहले ही कर लिया है, इसलिए हमें इस बिंदु पर केवल चरों को याद करने की आवश्यकता है। फिर बस इसे सही पर सेट करें। वास्तविक उपयोग: 'ऑब्जेक्ट टू सेट = फाइलसिस्टमऑब्जेक्ट.एक्शन (निर्देशिका + फ़ाइल का नाम, विशेषता, सही या गलत) सेट करें objTextFile = objFiSyOb. OpenTextFile (strDir और strFile, ForAppending, True)

चरण ९: स्क्रिप्ट लिखना भाग ५: फ़ाइल में लिखना

किसी फ़ाइल को लिखना एक पॉप अप लिखने जैसा है। आपने बस:objTextFile. WriteLine ("जो कुछ भी आप कहना चाहते हैं" और लाइन लिखने के लिए खींचने के लिए परिवर्तनीय) डाल दिया है, केवल अंतर पहला भाग है। एक पॉप अप में आप डालते हैं: Wscript.echoin एक लिखित पंक्ति जिसे आप डालते हैं: objTextFile। राइटलाइन और एक राइट लाइन में आपको राइट लाइन को बंद करना होगा ताकि यह लिखना बंद करना जानता हो और इसके लिए आप इसका उपयोग करें:objTextFile. CloseActual उपयोग:objTextFile. WriteLine("आपका कंप्यूटर "और दिनांक और" पर "और समय पर शट डाउन) objTextFile.close' now यह कहने के लिए एक पॉपअप जोड़ें कि आपने फ़ाइल में लिखा है ताकि व्यक्ति को पता चले कि यह हुआ है' और उन्हें फ़ाइल खोलने और Wscript देखने के लिए इसे बंद करना होगा। इको ("आपका कंप्यूटर शट डाउन" और दिनांक और "पर" & समय)

चरण १०: स्क्रिप्ट लिखना भाग ५: फ़ाइल को देखने के लिए खोलना।

इस बिंदु पर स्क्रिप्ट तब तक रुकेगी जब तक कोई पॉप अप पर क्लिक नहीं करता। एक बार जब आप पॉप अप को पार कर लेते हैं तो आप एक लाइन डाल सकते हैं जिससे फाइल खुल जाती है। इस पर कुछ त्रुटि सुधार का उपयोग करने से प्रोग्राम को अच्छी तरह से चलने में मदद मिलती है। जब आप vbscript में कोई त्रुटि बनाते हैं, तो यह "err.number" चर में एक मान जोड़ता है जो कि vbscript में एक पूर्व परिभाषित चर है। आपको इसे परिभाषित करने की आवश्यकता नहीं है और जब तक आप इसके नियमों का उल्लंघन नहीं करते हैं, तब तक आप इसे किसी भी अन्य चर की तरह उपयोग कर सकते हैं। err.number चर को असाइन किया गया मान, हुई त्रुटि के लिए कोड है। अब आप या तो vbscript डेटाबेस में ज्ञात प्रत्येक त्रुटि कोड की जांच कर सकते हैं और सुनिश्चित कर सकते हैं कि ऐसा नहीं हुआ है। या आसान, बस यह सुनिश्चित कर रहा है कि err.number चर खाली है। यदि यह खाली है तो कोई त्रुटि नहीं हुई। ऐसा करने के लिए हम सिर्फ यह देखने के लिए जांचते हैं कि चर vbEmpty के बराबर है या नहीं। तो हमारी लिपि में हम एक और कथन का उपयोग करना चाहते हैं। और यह देखने के लिए जांचें कि क्या कोई त्रुटि हुई है और यदि उसने देखने के लिए फ़ाइल नहीं खोली है, लेकिन यदि उसने ऐसा किया है तो उसमें त्रुटि संख्या के साथ एक संदेश पॉप अप करें ताकि हम डीबग कर सकें। फिर जब हम सब हमारी स्क्रिप्ट के साथ हो जाते हैं तो हम टाइप करें Wscript. Quit. यह स्क्रिप्ट को खुद को समाप्त करने के लिए कहता है। यह मेमोरी लीक और अवांछित प्रक्रियाओं को चलाने में मदद करता है। इसका उपयोग कैसे किया जाता है: यदि err.number vbEmpty के बराबर है, तो एक शेल बनाएं, फिर प्रोग्राम को शेल से चलाएँ अन्यथा एक संदेश पॉप अप करें जिसमें कहा गया हो कि एक त्रुटि हुई थी। वास्तविक उपयोग: 'चेक फॉर त्रुटियाँ यदि err.number = vbEmpty तब 'यदि कोई शेल नहीं बनाता है तो सेट करें objShell = CreateObject ("WScript. Shell")'' फिर एक्सप्लोरर का उपयोग करके उस शेल से फ़ाइल खोलें। यह वास्तव में IE में खुलेगा हालांकि objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt")'अन्यथा त्रुटि संख्या के साथ एक संदेश पॉप अप करें अन्यथा WScript.echo "VBScript त्रुटि:" और err.numberEnd यदि ' अंत scriptWscript.quit

चरण 11: स्टार्टअप पर चलने के लिए स्क्रिप्ट प्राप्त करना।

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

चरण 12: कार्यक्रम चलाना

जब आप vbscript फ़ाइल को निष्पादित करते हैं तो यह अब A.) यह देखने के लिए जाँच करें कि क्या फ़ोल्डर C:\Catcher मौजूद है और यदि नहीं बना है।) यदि इसने या तो एक फ़ोल्डर या फ़ाइल या दोनों को बनाया है तो यह एक संदेश पॉप अप करेगा जिसमें कहा गया है कि उसने उन्हें बनाया है (नोट: इसे केवल पहले रन पर ही करना चाहिए, इसके बाद इसे पहले से ही हटा दिया जाना चाहिए, इसलिए आपको केवल एक बार उस संदेश को देखना चाहिए.इस स्क्रिप्ट को एक बार नियंत्रित रिबूट के तहत चलाना एक अच्छा विचार हो सकता है ताकि आप इन पॉप अप को बायपास कर सकें या आप फ़ाइल में कुछ भी नहीं लिख सकते क्योंकि यह फ़ाइल बनाए गए पॉप अप को बायपास नहीं करेगा।)D:) में एक पंक्ति लिखें पाठ दस्तावेज़ Shutdown_Catcher.txt कह रहा है कि कंप्यूटर ऐसी और ऐसी तारीख को ऐसे और ऐसे समय पर बंद हो जाता है। ई:) एक संदेश पॉप अप करें जो कहता है कि एक रीबूट था एफ:) देखने के लिए फ़ाइल खोलें। यदि आप अगले चरण में देखते हैं आप कोड को लिखित रूप में देखेंगे। अब मुझे बस इतना करना है कि वापस बैठो और प्रतीक्षा करो। हर बार जब कंप्यूटर रीबूट होता है तो मेरे पास इसका रिकॉर्ड होगा। तब मैं रिकॉर्ड की समीक्षा कर सकता हूं और देख सकता हूं कि इसमें कोई निरंतरता है या नहीं। उदाहरण यह हो सकता है कि यह हर आधे घंटे में रीबूट हो जाता है या घड़ी पर 45 या वृद्धि होने पर किसी भी समय रीबूट हो जाता है। यह किसी भी तरह से एकमात्र तरीका नहीं है जिससे मैं कंप्यूटर पर जाँच कर रहा हूँ, जैसा कि आप जानते हैं। मेरे पास टेम्पों की जांच करने के लिए एक बेंचमार्किंग प्रोग्राम भी चल रहा है, इसलिए मुझे पता है कि जब यह बंद हो जाता है, तो वोल्टेज कितना गर्म होता है, इसलिए मुझे पता है कि बिजली की आपूर्ति विफल हो रही है, और कुछ अन्य सहायक चीजें। खैर मुझे उम्मीद है कि यह मददगार था। मुझे पता है कि मैं इसका आनंद लेता हूं इसलिए शायद दूसरे भी इसे पसंद करेंगे। यदि आपका कोई प्रश्न है, तो कृपया पूछिए। मैं उनसे तुरंत नहीं मिल सकता लेकिन थोड़ा सा और मैं आपको जवाब दूंगा। इस पर निर्भर करता है कि मेरा दिन/सप्ताह कैसा चल रहा है।

चरण 13: कोड

यह कोड सभी संकेतों और टिप्पणियों के बिना लिखा गया है_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C:\Catcher"strFile = "\Shutdown_catcher.txt"strFileName ="Shut"। कॉन्स्ट फॉर रीडिंग = 1, फॉर राइटिंग = 2, फॉरएपेंडिंग = 8 सेट objFiSyOb = CreateObject ("Scripting. FileSystemObject") यदि objFiSyOb. FolderExists (strDir) तो सेट करें objSysFold = objFiSyOb. GetFolder(strDir(strDir)Else objCreateFiSyOold = सेट करें। objFiSyOb. FileExists(strDir & strFile) फिर सेट करें objSysFold = objFiSyOb. GetFolder(strDir) और सेट करें objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo ("हमने "& strDir &" नाम का एक फोल्डर बनाया है और एक फाइल बनाई है जिसका नाम है "& strFilename &" और इसे "& strDir & strFile &" डायरेक्टरी में रखा।") End IfEnd if objFiSyOb. FileExists(strDir & strFile) फिर सेट करें objSysFold = objFiSyOb. GetFolder(strDir)else सेट objFile = objFiSyOb. CreateTextFile(strDir और strFile) Wscript. Echo ("हमारे पास है "& strFileName &" नाम की एक फ़ाइल बनाई "& strDir &" फ़ाइल फ़ोल्डर में।") एंड इफ़सेट objFile = कुछ भी नहीं objSysFold = कुछ भी सेट नहीं करें "और दिनांक और" पर "और समय पर) शट डाउन करें objTextFile. CloseWscript. Echo ("आपका कंप्यूटर "और दिनांक और" पर "और समय पर बंद हो जाता है) यदि err.number = vbEmpty तो सेट करें objShell = CreateObject ("WScript. शेल") objShell.run ("एक्सप्लोरर" और "" और strDir और "\shutdown_catcher.txt") और WScript.echo "VBScript Error:" और err.numberEnd IfWScript. Quit