NETsend Με VBScripting: 4 βήματα

2024 Συγγραφέας: John Day | [email protected]. Τελευταία τροποποίηση: 2024-01-30 08:39

Εντάξει, δεν είναι εντελώς με VBScripting, αλλά νομίζω ότι τα VBScripting InputBoxes και Msgboxes φαίνονται πολύ πιο φιλικά προς το χρήστη από την εισαγωγή σε ένα παράθυρο cmd. Ω και btw, μην γράψετε "ΠΟΛΥ ΕΥΚΟΛΟΤΕΡΟΣ ΤΡΟΠΟΣ …" Γιατί ναι όλοι γνωρίζουμε ότι μπορεί να ανοίξει cmd και να πληκτρολογήσει "Net send computername yourmessagehere" Αυτός είναι απλώς ένας πιο φιλικός προς το χρήστη τρόπος. Αποποίηση ευθυνών Δεν είμαι καθόλου υπεύθυνος εάν κάτι πάει στραβά με αυτό το πρόγραμμα ή εάν το πρόγραμμα καταχραστεί με οποιονδήποτε τρόπο. Τώρα το έχουμε καταλάβει, ας προχωρήσουμε

Βήμα 1: Ας ξεκινήσουμε

Πρώτον, θα σας δείξω το σενάριο και στην επόμενη σελίδα θα εξηγήσω τι σημαίνει κάθε bit.dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If then WScript. QuitEnd IFdim beginbegin = MsgBox ("Έναρξη συνομιλίας με" & target & "?", 36, "Περιστροφικό περιστέρι v1.7") If begin = vbNo then WScript. QuitEnd Ifdim 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) Set ts = fs. Open, 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: Ας εξηγήσουμε λοιπόν…

Ο κώδικας στην προηγούμενη σελίδα εμφανίζεται παρακάτω με ορισμένους σχολιασμούς, αν αντιγράψετε και επικολλήσετε σε word, κάντε το στην προηγούμενη σελίδα. Εντάξει, αυτό το πρώτο κομμάτι ανοίγει το πλαίσιο που ζητά το όνομα του υπολογιστή με τον οποίο θέλετε να ξεκινήσετε μια συνομιλία. Το τμήμα "If Target" λέει στον υπολογιστή να τερματίσει το πρόγραμμα εάν ο χρήστης πατήσει "ακύρωση" ή αφήσει κενό το πεδίο εισαγωγής. dim TargetTarget = InputBox ("Enter Target Computer:", "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 Στη συνέχεια WScript. QuitEnd If Αυτό το επόμενο κομμάτι είναι το μέρος που μου πήρε πολύ χρόνο να γράψω. Βασικά δημιουργεί ένα αρχείο δέσμης και το ονομάζει "~ 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) Ορισμός 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.shell ") shell. Run" msngr.bat ", 2Loop Αυτές οι δύο τελευταίες παράγραφοι εντολών είναι Looped. Αυτό επιτρέπει στο χρήστη να διατηρεί ανοιχτό το παράθυρο μηνυμάτων και να στέλνει πολλαπλά μηνύματα έως ότου ο χρήστης πατήσει 'ακύρωση και αποφασίσει να κλείσει το πρόγραμμα.

Βήμα 3: Αντέξτε μαζί μου

Εντάξει, ξέρω ότι ήταν πολλά για να ληφθούν. Αλλά πιθανότατα θα υποβάλω μερικά νέα εγχειρίδια στον ιστότοπο για απλή VBScripting και πιο προηγμένη VBScripting εάν αρκετοί άνθρωποι σχολιάσουν το ζητούν.

Τώρα για να αποθηκεύσετε το αρχείο! πατήστε αποθήκευση, βεβαιωθείτε ότι έχετε κάνει την επέκταση αρχείου ".vbs" Ξέρω ότι ήταν πολλά για λήψη, αλλά θα εξηγήσω τι συμβαίνει εάν το αρχείο χρησιμοποιείται σωστά: Πρώτον, θα λάβετε μια ερώτηση που ζητά τον υπολογιστή -στόχο Στη συνέχεια Θα είναι ένα μήνυμα που θα βεβαιωθεί ότι θέλετε να ξεκινήσετε μια συνομιλία με αυτόν τον υπολογιστή. Εάν κάνατε κλικ στο «Ναι», τότε θα πρέπει να εμφανιστεί ένα πλαίσιο εισαγωγής (στην επάνω δεξιά γωνία της οθόνης σας, ώστε να μπορείτε να συνεχίσετε με αυτό που θέλετε να κάνετε) ζητώντας σας να εισαγάγετε το μήνυμα. Μόλις εισαχθεί ένα μήνυμα και γίνει κλικ στο "OK", τότε θα εμφανιστεί ένα παράθυρο cmd κατά μήκος της γραμμής εργαλείων σας και στη συνέχεια θα εξαφανιστεί, αυτό ήταν το αρχείο δέσμης που έστελνε το μήνυμα. Εάν ο φίλος σας (ή ο εχθρός) έχει το ίδιο πρόγραμμα εγκατεστημένο στον υπολογιστή του ή είναι έξυπνος με NET send, τότε θα πρέπει να λάβετε μια απάντηση!

Βήμα 4: Ένα τελευταίο πράγμα πριν πάτε NET Αποστολή παντού

Ένα τελευταίο μικρό μήνυμα: ΑΥΤΟ ΔΕΝ ΛΕΙΤΟΥΡΓΕΙ ΣΤΟ VISTA!

Η εντολή αποστολής NET καταργήθηκε για Vista για λόγους ασφαλείας, επομένως θα λειτουργήσει μόνο σε λειτουργικά συστήματα Windows πριν από αυτό. Αλλά όπως ίσως κάποιοι από εσάς έχετε παρατηρήσει, έχω γράψει αυτό το πρόγραμμα στα Vista! Επομένως στη ΘΕΩΡΙΑ λειτουργεί. Ωστόσο, παρακαλώ επιστρέψτε με σχόλια για το αν είναι επιτυχής ή όχι. Ευχαριστώ TheKnight P. S. Συμπεριλάβετε τον πολύ τεμπέλη σας για λέξεις, το αρχείο βρίσκεται παρακάτω Αποθηκεύστε το στον δικό του φάκελο, έτσι ώστε αυτό και το "~ msngr.bat" να έχουν λίγο χρόνο μόνος…