NETVBScripting के साथ भेजें: 4 कदम

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

ठीक है तो यह पूरी तरह से VBScripting के साथ नहीं है, लेकिन मुझे लगता है कि VBScripting InputBoxes और Msgboxes एक cmd विंडो में इनपुट करने की तुलना में अधिक उपयोगकर्ता के अनुकूल दिखते हैं। ओह और btw, कृपया "MUCH EASIER WAY…" न लिखें क्योंकि हाँ हम सभी जानते हैं कि आप cmd खोल सकते हैं और "नेट सेंड कंप्यूटरनेम योर मेसेज" टाइप कर सकते हैं यह इसे करने का एक अधिक उपयोगकर्ता के अनुकूल तरीका है। अस्वीकरण इस कार्यक्रम में कुछ भी गलत होने पर, या कार्यक्रम का किसी भी तरह से दुरुपयोग होने पर मैं पूरी तरह से जिम्मेदार नहीं हूं। अब हमें वह रास्ता मिल गया है, चलिए आगे बढ़ते हैं

चरण 1: आइए शुरू करें

सबसे पहले, मैं आपको स्क्रिप्ट दिखाऊंगा और अगले पृष्ठ पर मैं समझाऊंगा कि प्रत्येक बिट का क्या अर्थ है। मंद लक्ष्य लक्ष्य = इनपुटबॉक्स ("टारगेट कंप्यूटर दर्ज करें:", "कैरियर कबूतर v1.7 (द नाइट)") यदि तब WScript। QuitEnd IFdim startbegin=MsgBox ("" & लक्ष्य और "?" के साथ बातचीत शुरू करें?", 36, "कैरियर पिजन v1.7") यदि प्रारंभ = vbNo तो WScript. QuitEnd ifdim messagemessage="0"Do तक संदेश=""संदेश= इनपुटबॉक्स ("संदेश दर्ज करें:" और वीबीसीआर और वीबीसीआर + _ "कोई मूल्य एक खाली संदेश नहीं भेजता है" और वीबीसीआर + _ "विंडो बंद करने के लिए रद्द करें या Alt + F4 दबाएं", "" और लक्ष्य, "", 13500, 100) सेट fs=CreateObject("Scripting. FileSystemObject") strFileName = fs. BuildPath(Wscript. ScriptFullName & "\..", "~msngr.bat") strFileName = fs. GetAbsolutePathName(strFileName) सेट ts = fs. OpenTextFile(strFileName), 2, ट्रू) ts. WriteLine "@echo off"ts. WriteLine "सेट संदेश =" और संदेश ts. WriteLine "सेट और लक्ष्य ts. WriteLine" शुद्ध भेजें% लक्ष्य%% संदेश%"ts. Closedim shellset shell=createobject ("wscript.shell")shell. Run "~msngr.bat", 2Loop

चरण 2: तो चलिए बताते हैं…

पिछले पृष्ठ पर कोड कुछ टिप्पणियों के साथ नीचे दिखाया गया है, यदि आप इसे कॉपी और पेस्ट कर रहे हैं, तो कृपया इसे पिछले पृष्ठ पर करें। ठीक है, यह पहला बिट उस बॉक्स को खोलता है जो उस कंप्यूटर का नाम पूछता है जिसके साथ आप बातचीत शुरू करना चाहते हैं। "यदि लक्ष्य" भाग कंप्यूटर को प्रोग्राम को समाप्त करने के लिए कहता है यदि उपयोगकर्ता 'रद्द करें' दबाता है या इनपुट फ़ील्ड को खाली छोड़ देता है। मंद लक्ष्य लक्ष्य = इनपुटबॉक्स ("टारगेट कंप्यूटर दर्ज करें:", "कैरियर पिजन v1.7 (द नाइट)") यदि तब WScript. QuitEnd IF यह दूसरा बिट उस इनपुट को रिले करता है जो उपयोगकर्ता ने पिछले चरण में किया था, उदाहरण के लिए यदि उपयोगकर्ता इनपुट लक्ष्य कंप्यूटर के रूप में: 'The_Pentagon' तो यह संदेश एक संदेश देता है जो कहता है "The_Pentagon के साथ बातचीत शुरू करें?"। उपरोक्त जैसा ही सौदा, यदि उपयोगकर्ता 'नहीं' दबाता है, तो ऑपरेशन समाप्त हो जाएगा। dim startbegin=MsgBox ("" और लक्ष्य और "?", 36, "कैरियर पिजन v1.7" के साथ बातचीत शुरू करें) यदि प्रारंभ = vbNo तो WScript. QuitEnd अगर यह अगला बिट वह हिस्सा है जिसने मुझे लिखने में लंबा समय लिया। यह मूल रूप से एक बैच फ़ाइल बनाता है और इसे "~msngr.bat" कहता है। इसके बाद यह NET प्रेषण आरंभ करने के लिए इसे सही आदेश लिखता है। मंद संदेश संदेश = "0" संदेश तक करें = "" संदेश = इनपुटबॉक्स ("संदेश दर्ज करें:" और वीबीसीआर और वीबीसीआर + _ "कोई मूल्य खाली संदेश नहीं भेजता" और वीबीसीआर + _ "विंडो बंद करने के लिए रद्द करें या Alt + F4 दबाएं "," "" और लक्ष्य, " ", १३५००, १००) सेट fs=CreateObject("Scripting. FileSystemObject") strFileName = fs. BuildPath(Wscript. ScriptFullName & "\..", "~msngr.bat") strFileName = fs. GetAbsolutePathName(strFileName) सेट ts = fs. OpenTextFile(strFileName, 2, True) ts. WriteLine "@echo off"ts. WriteLine "सेट संदेश =" और संदेश ts. WriteLine "सेट और लक्ष्य ts. WriteLine" शुद्ध भेजें %Target% %message%"ts. Close यह तब बैच फ़ाइल चलाता है, "2" के साथ यह सुनिश्चित करता है कि यह एक न्यूनतम विंडो में चलता है और फिर बंद हो जाता है। इससे यह थोड़ा अधिक पेशेवर दिखता है। dim shellset shell=createobject(" wscript.shell")shell. Run "~msngr.bat", 2Loop कमांड के वे अंतिम दो पैराग्राफ लूप किए गए हैं। यह उपयोगकर्ता को संदेश विंडो को खुला रखने की अनुमति देता है, और उपयोगकर्ता को तब तक कई संदेश भेजने की अनुमति देता है जब तक कि उपयोगकर्ता रद्द नहीं करता और बंद करने का निर्णय नहीं लेता कार्यक्रम।

चरण 3: मेरे साथ रहो

ठीक है, मुझे पता है कि इसमें लेने के लिए बहुत कुछ था। लेकिन मैं शायद सरल वीबीस्क्रिप्टिंग के लिए साइट पर कुछ नए निर्देश जमा करने जा रहा हूं, और अधिक उन्नत वीबीस्क्रिप्टिंग अगर पर्याप्त लोग इसके लिए टिप्पणी करते हैं।

तो अब फाइल को सेव करने के लिए! सहेजें दबाएं, फ़ाइल एक्सटेंशन ".vbs" बनाना सुनिश्चित करें मुझे पता है कि इसे लेने के लिए बहुत कुछ था लेकिन मैं समझाता हूं कि क्या होता है यदि फ़ाइल सही तरीके से उपयोग की जाती है: सबसे पहले आपको लक्ष्य कंप्यूटर के लिए पूछने का संकेत मिलेगा आगे वे यह सुनिश्चित करने वाला संदेश होगा कि आप इस कंप्यूटर के साथ बातचीत शुरू करना चाहते हैं। यदि आपने 'हां' पर क्लिक किया है तो एक इनपुट बॉक्स दिखाई देना चाहिए (आपकी स्क्रीन के ऊपरी दाएं भाग में, ताकि आप जो करना चाहते हैं उसे जारी रख सकें) आपको संदेश इनपुट करने के लिए कह रहा है। एक बार जब कोई संदेश इनपुट होता है और 'ओके' पर क्लिक किया जाता है, तो एक cmd विंडो आपके टूलबार के साथ बाहर निकलनी चाहिए और फिर गायब हो जानी चाहिए, यह संदेश भेजने वाली बैच फ़ाइल थी। यदि आपके मित्र (या शत्रु) के पास उनके कंप्यूटर पर यही प्रोग्राम स्थापित है, या नेट भेजने के साथ निफ्टी है, तो आपको उत्तर वापस मिलना चाहिए!

चरण 4: हर जगह नेट भेजने से पहले एक आखिरी बात

एक आखिरी छोटा संदेश: यह विस्टा पर काम नहीं करेगा!

सुरक्षा कारणों से विस्टा के लिए नेट सेंड कमांड को समाप्त कर दिया गया था, इसलिए इससे पहले केवल विंडोज ऑपरेटिंग सिस्टम पर काम करेगा। लेकिन जैसा कि आप में से कुछ लोगों ने देखा होगा, मैंने यह प्रोग्राम विस्टा पर लिखा है! इसलिए थ्योरी में यह काम करता है। हालाँकि कृपया प्रतिक्रिया के साथ वापस आएं कि यह सफल है या नहीं। धन्यवाद द नाइट पी.एस. यदि आप शब्दों के लिए बहुत आलसी हैं, तो फ़ाइल नीचे है इसे अपने स्वयं के फ़ोल्डर में सहेजें, ताकि इसे और "~msngr.bat" के पास कुछ समय अकेले हो…