NETsend עם VBScripting: 4 שלבים

2024 מְחַבֵּר: John Day | [email protected]. שונה לאחרונה: 2024-01-30 09:18

אוקיי אז זה לא לגמרי עם VBScripting, אבל אני חושב ש- VBScripting InputBoxes ו- Msgboxes נראים הרבה יותר ידידותיים למשתמש מאשר הכנסת חלון cmd. אה ו btw, בבקשה אל תכתוב "דרך הרבה יותר פשוטה …" כי כן כולנו יודעים שאתה יכול לפתוח cmd ולהקליד "Net send computer name yourmessagehere" זוהי דרך ידידותית יותר למשתמש. כתב ויתור אני לא לגמרי אחראי אם משהו משתבש בתוכנית זו, או אם התוכנית מנוצלת לרעה בכל דרך שהיא. עכשיו הסרנו את זה, בואו נמשיך הלאה

שלב 1: בואו נתחיל

ראשית, אראה לך את הסקריפט ובעמוד הבא אסביר מה פירוש כל ביט..dim TargetTarget = InputBox ("הזן מחשב יעד:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("התחל בשיחה עם" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo ואז WScript. QuitEnd Ifdim 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. Closedim shellset shell = createobject ("wscript.shell") shell. Run "~ msngr.bat", 2Loop

שלב 2: אז בואו נסביר …

הקוד בדף הקודם מוצג למטה עם כמה הערות, אם אתה מעתיק ומדביק אותו למילה, אנא עשה זאת בדף הקודם. אוקיי, הקטע הראשון הזה פותח את התיבה המבקשת את שם המחשב שאיתו ברצונך להתחיל שיחה. החלק "אם יעד" אומר למחשב לסיים את התוכנית אם המשתמש לוחץ על 'ביטול או משאיר את שדה הקלט ריק. dim TargetTarget = InputBox ("הזן מחשב יעד:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF bit השני זה מעביר את הקלט שהמשתמש ביצע בשלב הקודם, למשל אם קלט המשתמש מחשב המטרה כ: 'The_Pentagon' ואז הודעה זו מעבירה הודעה שאומרת "התחל שיחה עם The_Pentagon?". אותה עסקה כמו לעיל, אם המשתמש לוחץ על 'לא', הפעולה תסתיים. dim beginbegin = MsgBox ("התחל בשיחה עם" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd If bit next זה החלק שלקח לי זמן לכתוב. הוא בעצם יוצר קובץ אצווה וקורא לו "~ msngr.bat". לאחר מכן הוא כותב לו את הפקודות הנכונות כדי שיוכל לשלוח NET. dim messagemessage = "0" עשה עד הודעה = "" הודעה = InputBox ("הזן הודעה:" & vbcr & vbcr + _ "אין ערך שולח הודעה ריקה" & vbcr + _ "לחץ על ביטול או Alt + F4 כדי לסגור את החלון "," "& Target," ", 13500, 100) הגדר fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Set 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 "מוודא שהוא פועל בחלון ממוזער ואז נסגר. הדבר גורם לו להיראות קצת יותר מקצועי. מעטפת מעטפת דקה = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop שתי הפסקאות האחרונות של הפקודות הן לולאה. הדבר מאפשר למשתמש לשמור על חלון ההודעות פתוח ולשלוח מספר הודעות עד שהמשתמש לוחץ על 'ביטול' ומחליט לסגור. התכנית.

שלב 3: תשאיר איתי

אוקיי, אני יודע שזה היה מאוד חשוב. אבל אני כנראה הולך להגיש כמה הוראות חדשות לאתר ל VBScripting פשוט, ו- VBScripting מתקדם יותר אם מספיק אנשים יגיבו לבקש זאת.

אז עכשיו כדי לשמור את הקובץ! לחץ על שמור, הקפד להפוך את סיומת הקובץ ".vbs" אני יודע שהיה הרבה לקחת אבל אני אסביר מה קורה אם הקובץ משמש כראוי: ראשית תקבל הודעה המבקשת את מחשב היעד הבא הם תהיה הודעה שתוודא שאתה רוצה להתחיל שיחה עם מחשב זה. אם לחצת על 'כן' אז תיבת קלט אמורה להופיע (בפינה השמאלית העליונה של המסך, כך שתוכל להמשיך עם מה שאתה רוצה לעשות) שתבקש ממך להזין את ההודעה. לאחר הזנת הודעה ולחיצה על 'אישור', יופיע חלון cmd לאורך סרגל הכלים שלך ואז ייעלם, זה היה קובץ האצווה ששולח את ההודעה. אם לחבר שלך (או לאויב) יש את אותה תוכנית מותקנת במחשב שלו, או שאתה לא מסוגל עם NET send, אז אתה אמור לקבל תשובה בחזרה!

שלב 4: דבר אחרון לפני שאתה הולך לשלוח NET לכל מקום

הודעה קטנה אחרונה: זה לא יעבוד בוויזה!

פקודת ה- send של NET בוטלה עבור Vista עקב סיבות אבטחה, לכן היא תעבוד רק במערכות הפעלה של Windows לפני כן. אבל כפי שחלקכם אולי שמו לב, כתבתי את התוכנית הזו ב- Vista! לכן בתיאוריה זה עובד. עם זאת אנא חזור עם משוב אם הוא מצליח או לא. תודה TheKnight P. S. אם אתה עצלן מדי למילים, הקובץ נמצא למטה שמור אותו בתיקיה שלו, כך שיהיה לו ול ~ ~ msngr.bat קצת זמן לבד …