यूएसबी रबर डकी स्क्रिप्ट एनकोडर (वीबीस्क्रिप्ट): 5 कदम

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

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

आप नीचे संकलित.exe और स्रोत कोड डाउनलोड कर सकते हैं।

वैसे भी, आप शायद सोच रहे हैं कि मैंने वीबीएस में इतना बढ़िया जीयूआई एप्लीकेशन कैसे बनाया, और यदि ऐसा है, तो चरण 3 पर जाएं।

चरण 1: इंस्टॉल हो रहा है …

REAMDE.txt फ़ाइल में यह कैसे करना है, इस पर भी निर्देश हैं। वैसे भी, पहले आपको अपने सी ड्राइव में 'अस्थायी' नामक एक फ़ोल्डर बनाना होगा यदि आपके पास पहले से एक नहीं है। साथ ही, यदि आपके पास पहले से java इनस्टॉल नहीं है, तो आप इसे यहाँ से प्राप्त कर सकते हैं। अगला duckencode.jar डाउनलोड करें और फ़ाइल को अपने c:\temp फ़ोल्डर में ले जाएँ। इसके बाद,.zip फ़ाइलों में से किसी एक को निकालें और यदि आप गैर-संकलित संस्करण का उपयोग कर रहे हैं तो 'ico.ico' और 'pic.gif' जैसी निर्देशिका में Duck.hta चलाएं। या यदि आप संकलित.exe का उपयोग कर रहे हैं, तो बस 'Duck.exe' चलाएँ।

अब हम अगले चरण पर जा सकते हैं …

चरण 2: उपयोग…

यह प्रोग्राम वास्तव में सीधा है, इसका उपयोग करने के लिए, अपने कोड में स्वचालित रूप से पेस्ट करने के लिए बस 'क्लिपबोर्ड से पेस्ट करें' पर क्लिक करें। या टेक्स्ट फ़ाइल से स्क्रिप्ट लोड करने के लिए टेक्स्ट फ़ाइल से लोड पर क्लिक करें। फिर आपका कोड नीचे दिए गए टेक्स्ट बॉक्स में दिखाई देगा। अपने कोड में कोई भी अंतिम परिवर्तन करें जो आप चाहते हैं और 'एनकोड' दबाएं। c:\temp पर नेविगेट करें और 'इंजेक्ट.बिन' को अपने यूएसबी रबर डकी में ले जाएं।

आप सोच रहे होंगे कि script.txt क्या है। यह क्या है, टेक्स्ट बॉक्स से असम्पीडित कोड है। इसका उपयोग कच्चे कोड के बैकअप के रूप में किया जाता है।

नोट: यदि आप एक छोटी स्क्रिप्ट बनाना चाहते हैं, तो आप बस टेक्स्ट बॉक्स में अपना कोड टाइप कर सकते हैं। अपने यूएसबी रबर डकी का परीक्षण करने का एक तेज़ और आसान तरीका।

अगले चरण पर जाएं यदि आप इस बारे में अधिक जानना चाहते हैं कि vbs में GUI कैसे हैं और यह प्रोग्राम कैसे बनाया गया है, अन्यथा:

इस निर्देश को पढ़ने के लिए धन्यवाद, और यदि आपके कोई प्रश्न, टिप्पणी या चिंताएँ हैं, तो कृपया एक टिप्पणी पोस्ट करें या मुझे दोपहर दें।

चरण 3: वीबीस्क्रिप्ट में जीयूआई

तो हाँ, वीबीएस में जीयूआई बनाना संभव है। जिस तरह से आप इसे करते हैं, वह आपके टेक्स्ट को एचटीए में लपेटकर है। यदि आप पहले से नहीं जानते हैं, तो एचटीए एक स्क्रिप्टिंग भाषा है जो एचटीएमएल के समान ही एक जीयूआई में vbscripts और jscripts जैसी स्क्रिप्ट को लपेटने के लिए उपयोग की जाती है। विस्तृत विवरण और ट्यूटोरियल यहाँ।

तो अब जब आप जान गए हैं कि hta क्या है, तो मैं आपको आसानी से थीसिस बनाने के कुछ टिप्स देता हूं। सबसे पहले नीचे एचटीए हेल्पोमैटिक (तस्वीर 2) डाउनलोड करें। दुर्भाग्य से मूल लिंक अब काम नहीं करता है, लेकिन सौभाग्य से मैंने कुछ समय पहले एक प्रति सहेजी थी। अगला डाउनलोड करें और vbsedit इंस्टॉल करें, जो htaedit के साथ आता है।

आपके पास इन दो कार्यक्रमों के बाद, आपको वास्तव में जीयूआई बनाना शुरू करने के लिए एचटीएमएल/एचटीए अनुभव की आवश्यकता नहीं है। जो मेरे जैसे लोगों के लिए बहुत अच्छा है, जो सिर्फ जीयूआई बनाने के लिए एचटीए सीखना नहीं चाहते हैं।

अब अगले चरण पर जाएँ और देखें कि मैंने डक एनकोडर कैसे बनाया…

चरण 4: मैंने इसे कैसे बनाया

तो, पहले:

APPLICATIONNAME="Duck Encoder" ID="DuckEncoder" VERSION="1.0" INNERBORDER="no" MAXIMIZEBUTTON="no" ICON="ico.ico" SCROLL="no"

यह कुछ चीजें सेट करता है जैसे कि आइकन, बॉर्डर टाइप, ect।

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: सेट objFso = CreateObject("Scripting. FileSystemObject") यदि नहीं objFso. FileExists("c:\temp\duckencode.jar") तो MsgBox "त्रुटि, फ़ाइल नहीं मिली: c: \temp\duckencode.jar", 16, "Duck Encoder" Self.close() एंड इफ एंड एंड सब

अगला, यह उप, जब भी प्रोग्राम पहली बार लॉन्च होता है, स्वचालित रूप से चलता है। यह क्या करता है विंडो का आकार बदलता है, फिर यह सुनिश्चित करने के लिए जांचें कि 'duckencode.jar' सही निर्देशिका में है।

उप ऑनक्लिकबटनबीटीएनलोड ()

मंद objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText सेट objFso = CreateObject ("Scripting. FileSystemObject") सेट objShlApp = CreateObject ("Shell. ApplicationFor) त्रुटि रेज़्यूमे पर अगला सेट obj. (0, "फ़ाइल वाले फ़ोल्डर के लिए ब्राउज़ करें: ", १६३८४, ०) यदि त्रुटि। संख्या ० फिर MsgBox "आपको फ़ाइल वाले फ़ोल्डर का चयन करना होगा।", 16, "डक एनकोडर" Err. Clear() अन्यथा यदि objFolderLocation = "" फिर त्रुटि पर उप से बाहर निकलें गोटो 0 सेट करें.txt") गलत है तो strTextFileList = strTextFileList और objFile. Name और vbCrLf End यदि अगला strFileLocation = InputBox ("कृपया सही टेक्स्ट फ़ाइल दर्ज करें जिसे आप एन्कोड करना चाहते हैं:" और vbCrLf और vbCrLf और strTextFileList, "डकी एनकोडर") यदि खाली नहीं है (strFileLocation) तब यदि नहीं objFso. FileExists(objFolder Location. Self. Path & "\" & strFileLocation) फिर MsgBox "त्रुटि, आपको सूची से एक टेक्स्ट फ़ाइल चुननी होगी!", 16, "डक एनकोडर" और त्रुटि पर फिर से शुरू करें अगला strFileLocation = objFolderLocation. Self. Path & "\ "& strFileLocation सेट objFile = objFso. OpenTextFile(strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close() अगर Err. Number 0 तो MsgBox "टेक्स्ट फ़ाइल खाली है।", 16, "डक एनकोडर" एंड यदि अंत है तो अंत है यदि अंत है तो उप

ठीक है, कोड का यह हिस्सा वास्तव में भ्रमित करने वाला है, यह वह कोड है जब उपयोगकर्ता 'टेक्स्ट फ़ाइल से लोड करें' पर क्लिक करता है। चूंकि एचटीए में एक ओपन-फाइल डायलॉग बनाना व्यावहारिक रूप से असंभव है, प्रोग्राम एक ब्राउज फॉर फोल्डर डायलॉग को पॉप-अप करता है ताकि यूजर को स्क्रिप्ट फाइल वाले फोल्डर का चयन करने के लिए कहा जा सके। फिर प्रोग्राम एक इनपुटबॉक्स खोलता है जो उपयोगकर्ता से पूछता है कि उस फ़ोल्डर के अंदर कौन सी टेक्स्ट फ़ाइल लोड करनी है। फिर प्रोग्राम फाइल के अंदर जो कुछ भी है उसे पढ़ता है और टेक्स्ट बॉक्स में डालता है।

Sub OnClickButtonbtnPaste() Dim objHTML, ClipboardText सेट objHTML = CreateObject("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData("text") यदि IsNull(ClipboardText) = True तो MsgBox "क्लिपबोर्ड में कुछ भी नहीं!", 16, "डक एनकोडर" और txtScript. Value = क्लिपबोर्डटेक्स्ट एंड अगर एंड सब

यह सब कोड तब होता है, जब उपयोगकर्ता 'क्लिपबोर्ड से चिपकाएं' पर क्लिक करता है, प्रोग्राम क्लिपबोर्ड से टेक्स्ट बॉक्स में टेक्स्ट लोड करता है।

चरण 5: मैंने इसे कैसे बनाया (भाग 2)

Sub OnClickButtonbtnEncode() यदि txtScript. Value = "" तो MsgBox "कोई कोड नहीं है!", 16, "डक एनकोडर" अन्य मंद objFso, txtScriptFile सेट objFso = CreateObject ("Scripting. Filesystemobject") txtScriptFile = objFso. OpenTextFile सेट करें ("c:\temp\script.txt", 2, True) txtScriptFile. WriteLine(txtScript. Value) txtScriptFile. Close() idTimer = window.setTimeout("Compile", 800, "VBScript") End, End Sub Sub Compile () window.clearTimeout(idTimer) Dim objWshShl: सेट objWshShl = CreateObject("WScript. Shell") objWshShl. Run "java.exe -jar c:\temp\duckencode.jar -ic:\temp\script.txt -oc:\temp\inject.bin", 0 'MsgBox "स्क्रिप्ट को inject.bin में c:\temp", vbOKOnly+vbInformation, "Ducky Encoder" End Sub में संकलित किया गया है।

जब आप 'एनकोड' पर क्लिक करते हैं तो यह कोड चलाया जाता है।

यह जो करता है वह एक टेक्स्ट फ़ाइल बनाता है जिसे script.txt कहा जाता है और जो कुछ भी टेक्स्टबॉक्स के अंदर है उसे इसमें डाल देता है। फिर यह 0.8 सेकंड प्रतीक्षा करता है और फिर इसे संकलित करता है।

बाकी कोड सिर्फ GUI बनाता है। यदि आप बुनियादी एचटीए जानते हैं तो यह बहुत आत्म-व्याख्यात्मक है।