NETsend مع VBScripting: 4 خطوات

2024 مؤلف: John Day | [email protected]. آخر تعديل: 2024-01-30 07:42

حسنًا ، ليس مع VBScripting تمامًا ، لكنني أعتقد أن VBScripting InputBoxes و Msgboxes يبدوان أكثر سهولة في الاستخدام من الإدخال في نافذة cmd. يمكن فتح cmd واكتب "Net send computername yourmessagehere" هذه مجرد طريقة سهلة الاستخدام للقيام بذلك. إخلاء المسؤولية أنا لست مسؤولاً تمامًا إذا حدث خطأ ما في هذا البرنامج ، أو إذا تم إساءة استخدام البرنامج بأي شكل من الأشكال. الآن لقد خرجنا من هذا الطريق ، دعنا ننتقل

الخطوة 1: لنبدأ

أولاً ، سأعرض لك النص وفي الصفحة التالية سأشرح معنى كل بت. dim TargetTarget = InputBox ("Enter Target Computer:"، "Carrier Pigeon v1.7 (TheKnight)") إذا ثم WScript. QuitEnd IFdim beginbegin = MsgBox ("بدء المحادثة بـ" & target & "؟"، 36، "Carrier Pigeon v1.7") إذا بدأت = vbNo ثم WScript. QuitEnd Ifdim messagemessage = "0" رسالة حتى التنفيذ = "" message = InputBox ("أدخل الرسالة:" & vbcr & vbcr + _ "لا توجد قيمة ترسل رسالة فارغة" & vbcr + _ "اضغط على إلغاء أو Alt + F4 لإغلاق النافذة" ، "" & الهدف ، "" ، 13500 ، 100) تعيين 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 "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send٪ Target٪٪ message٪ "ts. Closedim shellset = createobject ("wscript.shell") shell. Run "~ msngr.bat"، 2Loop

الخطوة الثانية: فلنوضح …

يظهر الرمز الموجود في الصفحة السابقة أدناه مع بعض التعليقات التوضيحية ، إذا قمت بنسخه ولصقه في Word ، فيرجى القيام بذلك في الصفحة السابقة. حسنًا ، هذا الجزء الأول يفتح المربع الذي يطلب اسم الكمبيوتر الذي تريد بدء محادثة معه. يقوم جزء "If Target" بإخبار الكمبيوتر بإنهاء البرنامج إذا ضغط المستخدم على "إلغاء" أو ترك حقل الإدخال فارغًا. dim TargetTarget = InputBox ("Enter Target Computer:"، "Carrier Pigeon v1.7 (TheKnight)") If ثم WScript. QuitEnd IF هذا البت الثاني ينقل الإدخال الذي قام به المستخدم في الخطوة السابقة ، على سبيل المثال إذا كان إدخال المستخدم الكمبيوتر الهدف كما يلي: "The_Pentagon" ثم هذه الرسالة تنقل رسالة تقول "بدء محادثة مع The_Pentagon؟". نفس الصفقة المذكورة أعلاه ، إذا ضغط المستخدم على "لا" ، فسوف تنتهي العملية. dim beginbegin = MsgBox ("ابدأ المحادثة بـ" & target & "؟"، 36، "Carrier Pigeon v1.7") إذا بدأت = vbNo ثم WScript. QuitEnd إذا كان هذا الجزء التالي هو الجزء الذي استغرق مني وقتًا طويلاً في الكتابة. يقوم أساسًا بإنشاء ملف دفعي ويطلق عليه اسم "~ msngr.bat". ثم يكتب الأوامر الصحيحة إليه لبدء إرسال NET. dim messagemessage = "0" Do until message = "" message = InputBox ("إدخال الرسالة:" & vbcr & vbcr + _ "لا توجد قيمة ترسل رسالة فارغة" & vbcr + _ "اضغط على إلغاء أو Alt + F4 لإغلاق النافذة "،" & الهدف، ""، 13500، 100) تعيين 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 "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send ٪ Target٪٪ message٪ "ts. Close يؤدي ذلك إلى تشغيل الملف الدفعي ، مع التأكد من تشغيل" 2 "في إطار مصغر ثم إغلاقه. وهذا يجعله يبدو أكثر احترافًا. dim shellset shell = createobject (" wscript. البرنامج.

الخطوة 3: تحمل معي

حسنًا ، أعلم أن هذا كان كثيرًا لاستيعابه. ولكن من المحتمل أن أقدم بعض التعليمات الجديدة إلى الموقع للحصول على VBScripting بسيط ، و VBScripting أكثر تقدمًا إذا كان هناك عدد كافٍ من الأشخاص يعلقون على طلب ذلك.

حتى الآن لحفظ الملف! اضغط على "حفظ" ، وتأكد من إنشاء امتداد الملف ".vbs" أعلم أنه كان مطلوبًا جدًا ولكن سأشرح ما يحدث إذا تم استخدام الملف بشكل صحيح: أولاً ، ستحصل على مطالبة تطلب الكمبيوتر الهدف بعد ذلك ستكون رسالة تأكد من أنك تريد بدء محادثة مع هذا الكمبيوتر. إذا قمت بالنقر فوق "نعم" ، فيجب أن يظهر مربع إدخال (في الجزء العلوي الأيمن من الشاشة ، حتى تتمكن من متابعة ما تريد القيام به) يطلب منك إدخال الرسالة. بمجرد إدخال الرسالة والنقر فوق "موافق" ، يجب أن تظهر نافذة cmd على طول شريط الأدوات ثم تختفي ، كان هذا هو الملف الدفعي الذي يرسل الرسالة. إذا كان صديقك (أو عدوك) لديه هذا البرنامج نفسه مثبتًا على جهاز الكمبيوتر الخاص به ، أو كان أنيقًا مع NET send ، فيجب أن تحصل على رد!

الخطوة 4: شيء أخير قبل أن تذهب إلى NET إرسال في كل مكان

رسالة صغيرة أخيرة: هذا لن يعمل على VISTA!

تم إلغاء أمر إرسال NET لنظام التشغيل Vista لأسباب أمنية ، وبالتالي لن يعمل إلا على أنظمة تشغيل Windows قبل ذلك. ولكن كما لاحظ البعض منكم ، فقد كتبت هذا البرنامج على نظام التشغيل Vista! لذلك من الناحية النظرية يعمل. ومع ذلك ، يرجى العودة مع ملاحظاتك حول ما إذا كان ناجحًا أم لا. شكرًا TheKnight P. في حالة كونك كسولًا جدًا للكلمات ، يكون الملف أدناه ، احفظه في المجلد الخاص به ، بحيث يمكن لـ "~ msngr.bat" قضاء بعض الوقت بمفرده …