बैच मेकर: 4 कदम

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

अद्यतन V2.0 अब बाहर !!! नीचे डाउनलोड करेंयह एक परियोजना है जिस पर मैं थोड़ी देर के लिए काम कर रहा हूं..यह vb.net 2008 के साथ बनाया गया है और यह नए लोगों के लिए बैच को सरल बनाता है … !!!!!!!! कृपया ध्यान दें !!!!! !!!!!!!! यह केवल VISTAit पर काम करेगा क्योंकि मैंने इसे अब Vista पर बनाया है जब मैं इसे XP मशीन पर आज़माता हूं तो यह एक त्रुटि संदेश के साथ आता है.. क्षमा करें लोग। मुझे TATcreator को धन्यवाद देना है क्योंकि वह भी जानता है यह नहीं जानता उसने मुझे इसे बनाने का विचार दिया.. योग्य।

सुनिश्चित करें कि आप डाउनलोड करने से पहले पहले चरण 'इंस्टॉलेशन' को देखें!!!! मुझे उम्मीद है कि आपको यह पसंद आएगा.. और अगर आपको इसके साथ कोई समस्या मिलती है तो कृपया एक टिप्पणी छोड़ दें या मुझे दोपहर दें ताकि मैं उन्हें ठीक कर सकूं और इसे दोबारा पोस्ट कर सकूं … कृपया आप जो सोचते हैं उस पर टिप्पणी करें और उसे रेट करना न भूलें =)

चरण 1: स्थापना

इंस्टाल करने के लिए स्टेप्स और पिक्स का बारीकी से पालन करें !!!1) अगर आपको लिंक पर क्लिक करने पर बहुत सारे टेक्स्ट वाला पेज मिलता है तो तस्वीर 1 का पालन करें 2) सेव पर क्लिक करें 3) सुनिश्चित करें कि आपको सभी लाल बिट्स सही हैं !!! इस रूप में सहेजें.exe और सुनिश्चित करें कि आप 'सभी फ़ाइलें' के रूप में सहेजते हैं या यह काम नहीं करेगा !!!!!

चरण 2: यह कैसे काम करता है: भाग 1

कॉम्बोबॉक्स

जैसा कि मैंने कहा कि मैंने इसे वीबी 2008 के साथ बनाया है, इसलिए कोई बैच स्क्रिप्टिंग नहीं है। इसे बनाने के लिए मुझे वास्तव में यह करना था: यदि 'लिखना' को कॉम्बोबॉक्सचेंज लेबल 2 में चुना गया है तो 'एक संदेश लिखें - प्रतिध्वनि न जोड़ें!' दिखाएँ टेक्स्टबॉक्स 1 टेक्स्टबॉक्स 1 टेक्स्ट को 'आप इसे क्या कहना चाहते हैं?' में बदलें जो इस प्रकार निकलता है: यदि कॉम्बोबॉक्स 1। चयनित इटैम = ("लिखें") फिर लेबल 2. टेक्स्ट = ("एक संदेश लिखें - गूंज जोड़ें!") टेक्स्टबॉक्स 1। Show() TextBox1. Text = ("आप इसे क्या कहना चाहते हैं?") अंत अगर मुझे combobox पर प्रत्येक आइटम के लिए ऐसा करना जारी रखना था।

चरण 3: यह कैसे काम करता है: भाग 2

बटन

बटन सबसे कठिन कामों में से एक थे, द ऐड बटन काम करने के लिए ऐड बटन के लिए मुझे बहुत सारी कोडिंग करनी पड़ी लेकिन एक बार जब मैंने इसे कर लिया तो बाकी काफी सरल था … ऐड कोड का हिस्सा: अगर 'लिखें' है कॉम्बो बॉक्स में चयनित, फिर 'echo' + टेक्स्टबॉक्स1एंड की सामग्री जोड़ें, जो इस प्रकार है: यदि ComboBox1. SelectedItem = ("लिखें") तो ListBox1. Items. Add("echo" + TextBox1. Text) End ifit अधिकांश के लिए समान था उन्हें, जैसा कि तस्वीर में दिखाया गया है। हटाएं बटन बस है: सूची से चयनित आइटम हटाएं जो है: ListBox1. Items. RemoveAt (ListBox1. SelectedIndex) स्पष्ट बटन पूरी सूची को साफ़ करता है और फिर पहली दो पंक्तियां जोड़ता है: ListBox1. Items. Clear() ListBox1. Items. Add("::Made With iRule Batch Maker") ListBox1. Items. Add("@echo off")और ऊपर और नीचे कोड केवल चयनित आइटम को ऊपर या नीचे ले जाएँ:(कोड लगाने के लिए लंबा)

चरण 4: यह कैसे काम करता है: भाग 3

सहेजें/लोड

सेव और लोड शायद सबसे कठिन हिस्सा था, यह सिर्फ सेव कोड है: डिम sfdMain As New SaveFileDialog sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments Dim Result As DialogResult sfdMain. Filter = "बैच फ़ाइलें (*.bat))|*.bat|सीएमडी फ़ाइलें(*.cmd)|*.cmd" sfdMain. FilterIndex = 1 sfdMain. ValidateNames = True Result = sfdMain. ShowDialog यदि परिणाम = Windows. Forms. DialogResult. OK तो नई प्रणाली के रूप में मंद स्व। IO. StreamWriter(sfdMain. FileName) के लिए मैं के रूप में पूर्णांक = 0 से ListBox1. Items. Count - 1 sw. WriteLine(ListBox1. Items. Item(i)) अगला sw. Close() sw. Dispose() अन्यथा उप अंत से बाहर निकलें यदि आप वीबी को समझते हैं तो आपको पता चल जाएगा कि वह क्या करता है लेकिन यदि आप नहीं करते हैं: मूल रूप से, यह केवल सेव डायलॉग दिखाता है, और यह सूची की सभी सामग्री को बैच फ़ाइल या सीएमडी फ़ाइल में सहेजता है