NETsend با VBScripting: 4 مرحله

2024 نویسنده: John Day | [email protected]. آخرین اصلاح شده: 2024-01-30 08:58

بسیار خوب ، VBScripting کاملاً با VBScripting انجام نمی شود ، اما من فکر می کنم که VBScripting InputBoxes و Msgboxes بسیار کاربر پسندتر از ورود به یک پنجره cmd هستند. اوه و btw ، لطفاً "MASCH EASIER WAY …" ننویسید زیرا بله همه می دانیم که شما می توانید cmd را باز کنید و "Net send computername yourmessagehere" را تایپ کنید. این فقط یک راه کاربر پسندتر برای انجام این کار است. سلب مسئولیت من در صورتی که مشکلی در این برنامه پیش بیاید یا از برنامه به هر نحوی سوء استفاده شود ، کاملاً مسئولیتی ندارم. حالا ما این را فهمیده ایم ، بگذارید ادامه دهیم

مرحله 1: بیایید شروع کنیم

در ابتدا ، من اسکریپت را به شما نشان می دهم و در صفحه بعدی توضیح خواهم داد که هر بیت به چه معناست.dim TargetTarget = InputBox ("Enter Target Computer:" ، "Carrier Pigeon v1.7 (TheKnight)") If then WScript. QuitEnd IFdim beginbegin = MsgBox ("شروع گفتگو با" & target & "؟" ، 36 ، "کبوتر حامل v1.7") If begin = vb InputBox ("پیام را وارد کنید:" & vbcr & vbcr + _ "بدون ارزش پیام خالی ارسال نمی شود" & vbcr + _ "برای بستن پنجره لغو یا Alt + F4 را فشار دهید" ، "" و هدف "" ، 13500 ، 100) تنظیم fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\.."، "ng msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) ts = fs. OpenT (، 2 ، درست) ts. WriteLine "echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send٪ Target٪٪ message٪ "ts. Closedim shellset shell = createobject ("wscript.shell") shell. Run "msngr.bat"، 2Loop

مرحله 2: بنابراین بیایید توضیح دهیم…

کد صفحه قبل در زیر با چند حاشیه نشان داده شده است ، اگر کپی و جایگذاری آن در word هستید ، لطفاً آن را در صفحه قبلی انجام دهید. خوب ، این بیت اول جعبه ای را باز می کند که نام رایانه ای را می خواهد که می خواهید با آن مکالمه را شروع کنید. قسمت "اگر هدف" به رایانه می گوید اگر کاربر دکمه "لغو" یا خالی کردن قسمت ورودی را خاموش کند ، به کامپیوتر می گوید که برنامه را پایان دهد. dim TargetTarget = InputBox ("Enter Target Computer:"، "Carrier Pigeon v1.7 (TheKnight)") If then WScript. QuitEnd IF این بیت دوم ورودی را که کاربر در مرحله قبل انجام داده است ، به عنوان مثال اگر ورودی کاربر رایانه مورد نظر به عنوان: 'The_Pentagon' سپس این پیام پیامی را که می گوید "با The_Pentagon مکالمه را شروع کنید؟" همان معامله بالا ، اگر کاربر "نه" را فشار دهد ، عملیات خاتمه می یابد. dim beginbegin = MsgBox ("شروع گفتگو با" & target & "؟" ، 36 ، "کبوتر حامل v1.7") If begin = vbNo سپس WScript. QuitEnd If این بیت بعدی قسمتی است که نوشتن آن برای من طولانی شد. در اصل یک فایل دسته ای ایجاد می کند و آن را "~ msngr.bat" می نامد. سپس دستورات صحیح را برای آن می نویسد تا ارسال NET را آغاز کند. dim messagemessage = "0" انجام دهید تا پیام = "" message = InputBox ("پیام را وارد کنید:" & vbcr & vbcr + _ "بدون ارزش پیام خالی ارسال نمی شود" & vbcr + _ "برای بستن پنجره لغو یا Alt + F4 را فشار دهید "،" "& Target،" "، 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 "مطمئن می شود که در یک پنجره کمینه اجرا شده و سپس بسته می شود. این امر کمی حرفه ای تر به نظر می رسد. wscript.shell ") shell. Run" msngr.bat "، 2Loop این دو پاراگراف آخر دستورات Looped هستند. این به کاربر اجازه می دهد تا پنجره پیام را باز نگه دارد و چندین پیام ارسال کند تا زمانی که کاربر" لغو "را فشار داده و تصمیم بگیرد که بسته شود برنامه.

مرحله 3: با من تحمل کن

خوب ، من می دانم که استفاده از آن بسیار زیاد بود. اما من احتمالاً چند دستورالعمل جدید را برای VBScripting ساده و اگر VSScripting پیشرفته تری در اختیار افراد قرار دهد ، اگر افراد زیادی درخواست کنند ، به سایت ارائه خواهم داد.

بنابراین اکنون فایل را ذخیره کنید! ذخیره را فشار دهید ، اطمینان حاصل کنید که پسوند فایل ".vbs" را وارد کنید پیامی خواهد بود که مطمئن می شوید می خواهید با این رایانه مکالمه ای را آغاز کنید. اگر روی "بله" کلیک کرده اید ، باید یک کادر ورودی ظاهر شود (در سمت راست بالای صفحه شما ، بنابراین می توانید کارهایی را که می خواهید انجام دهید) از شما بخواهد که پیام را وارد کنید. هنگامی که یک پیام وارد می شود و روی "OK" کلیک می شود ، سپس یک پنجره cmd در امتداد نوار ابزار شما ظاهر می شود و سپس ناپدید می شود ، این فایل دسته ای بود که پیام را ارسال می کرد. اگر دوست شما (یا دشمن) این برنامه را بر روی رایانه خود نصب کرده است یا با NET send خوب است ، باید پاسخ خود را دریافت کنید!

مرحله 4: آخرین مورد قبل از ارسال NET به همه جا

آخرین پیام کوچک: این روی ویستا کار نمی کند!

دستور ارسال NET برای ویستا به دلایل امنیتی لغو شد ، بنابراین قبل از آن فقط روی سیستم عامل های ویندوز کار می کند. اما همانطور که برخی از شما متوجه شده اید ، من این برنامه را روی ویستا نوشته ام! بنابراین در تئوری کار می کند. با این حال لطفاً با بازخورد در مورد موفقیت آمیز بودن یا نبودن آن تماس بگیرید. با تشکر TheKnight P. S. تنبل خود را برای کلمات اضافه کنید ، فایل زیر آن را در پوشه خود ذخیره کنید ، به طوری که آن و "~ msngr.bat" می توانند کمی تنها باشند …