NETsend VBScripting– ით: 4 ნაბიჯი

2024 ავტორი: John Day | [email protected]. ბოლოს შეცვლილი: 2024-01-30 10:21

კარგი, ეს არ არის VBScripting– ით, მაგრამ მე ვფიქრობ, რომ VBScripting InputBoxes და Msgboxes გამოიყურება ბევრად უფრო მეგობრული ვიდრე cmd ფანჯარაში შეყვანა. ოჰ და btw, გთხოვთ არ დაწეროთ „MUAS EASIER WAY…“რადგან დიახ ჩვენ ყველამ ვიცით, რომ თქვენ შეგიძლიათ გახსნათ cmd და ჩაწეროთ "თქვენი კომპიუტერის სახელის გაგზავნა ინტერნეტში" ეს არის უფრო მოსახერხებელი გზა. პასუხისმგებლობის შეზღუდვა მე არ ვარ პასუხისმგებელი, თუ რამე არასწორედ წავა ამ პროგრამაში, ან თუ პროგრამა ბოროტად გამოიყენება რაიმე გზით. ახლა ჩვენ გავარკვიეთ, რომ გავაგრძელოთ

ნაბიჯი 1: დავიწყოთ

პირველ რიგში, მე გაჩვენებთ სკრიპტს და შემდეგ გვერდზე აგიხსნით რას ნიშნავს თითოეული ბიტი. Dim TargetTarget = InputBox ("შეიყვანეთ სამიზნე კომპიუტერი:", "გადამზიდავი მტრედი v1.7 (The Knight)") თუ მაშინ WScript. QuitEnd IFdim beginbegin = MsgBox ("დაიწყეთ საუბარი" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo then WScript. QuitEnd Ifdim messagemessage = "0" Do სანამ 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. Open, 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: მოდით განვმარტოთ…

წინა გვერდის კოდი ნაჩვენებია ქვემოთ რამდენიმე ანოტაციით, თუ თქვენ დააკოპირეთ და ჩასვით სიტყვაში, გთხოვთ გააკეთოთ ეს წინა გვერდზე. კარგი, ეს პირველი ნაწილი ხსნის ყუთს, რომელიც ითხოვს კომპიუტერის სახელს, რომელთანაც გსურთ საუბრის დაწყება. "თუ სამიზნე" ნაწილი ეუბნება კომპიუტერს, რომ დაასრულოს პროგრამა, თუ მომხმარებელი დააჭერს ღილაკს "გაუქმება" ან დატოვებს შეყვანის ველს ცარიელს. dim TargetTarget = InputBox ("შეიყვანეთ სამიზნე კომპიუტერი:", "გადამზიდავი მტრედი v1.7 (TheKnight)") If then WScript. QuitEnd IF ეს მეორე ბიტი ავრცელებს შესავალს, რაც მომხმარებელმა გააკეთა წინა საფეხურზე, მაგალითად, თუ მომხმარებლის შეყვანა სამიზნე კომპიუტერი, როგორც: 'The_Pentagon', მაშინ ეს შეტყობინება არის ის, სადაც ნათქვამია "დაწყება საუბარი პენტაგონთან?". იგივე გარიგება, როგორც ზემოთ, თუ მომხმარებელი დააჭერს 'არა', მაშინ ოპერაცია დასრულდება. dim beginbegin = MsgBox ("დაიწყე საუბარი" & target & "?", 36, "გადამზიდავი მტრედი v1.7") If begin = vbNo მაშინ WScript. QuitEnd თუ ეს მომდევნო ნაწილი არის ნაწილი, რომლის წერაც დამჭირდა. ის ძირითადად ქმნის სურათების ფაილს და უწოდებს მას "~ msngr.bat". შემდეგ ის წერს სწორ ბრძანებებს, რომ დაიწყოს NET გაგზავნა. dim messagemessage = "0" გააკეთე სანამ შეტყობინება = "" შეტყობინება = 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 %სამიზნე%%შეტყობინება%"ts. Close ეს გაუშვებს სურათების ფაილს, ხოლო" 2 "დარწმუნებულია, რომ ის მუშაობს მინიმიზირებულ ფანჯარაში და შემდეგ იხურება. ეს მას უფრო პროფესიონალურს ხდის. Dim shellset shell = createobject (" wscript.shell ") shell. Run" msngr.bat ", 2Loop ბრძანებების ეს ბოლო ორი პარაგრაფი Looped არის. ეს მომხმარებელს საშუალებას აძლევს შეინახოს შეტყობინებების ფანჯარა ღია და გააგზავნოს მრავალჯერადი შეტყობინება მანამ, სანამ მომხმარებელი არ დააჭიროს ღილაკს" გაუქმება "და გადაწყვეტს დახურვას პროგრამა.

ნაბიჯი 3: მოითმინე ჩემთან ერთად

კარგი, მე ვიცი, რომ ამის გაკეთება ძალიან ბევრი იყო. მაგრამ მე ალბათ ვაპირებ რამდენიმე ახალი ინსტრუქციის წარდგენას საიტზე მარტივი VBScripting– ისთვის და უფრო მოწინავე VBScripting თუ საკმარისი ხალხი გამოთქვამს კომენტარს ამის თხოვნით.

ასე რომ, ახლა ფაილის შენახვა! დააჭირეთ ღილაკს შენახვა, დარწმუნდით, რომ გააკეთეთ ფაილის გაფართოება ".vbs" მე ვიცი, რომ მისი გადაღება ბევრი იყო, მაგრამ მე ავუხსნი რა მოხდება, თუ ფაილი სწორად გამოიყენება: პირველ რიგში თქვენ მიიღებთ მოთხოვნას სამიზნე კომპიუტერის მოთხოვნის შესახებ ეს იქნება შეტყობინება, რომელიც დარწმუნდება, რომ გსურთ ამ კომპიუტერთან საუბრის დაწყება. თუ დააჭერთ "დიახ" -ს, მაშინ უნდა გამოჩნდეს შეყვანის ყუთი (თქვენი ეკრანის ზედა მარჯვენა კუთხეში, ასე რომ თქვენ შეგიძლიათ გააგრძელოთ ის, რისი გაკეთებაც გსურთ), რომელიც მოგთხოვთ შეტყობინების შეყვანას. მას შემდეგ რაც შეტყობინება შეიყვანება და დააწკაპუნებს „OK“- ს, მაშინ cmd ფანჯარა უნდა გამოჩნდეს თქვენი ინსტრუმენტთა პანელის გასწვრივ და შემდეგ გაქრება, ეს იყო შეტყობინების გაგზავნის სურათების ფაილი. თუ თქვენს მეგობარს (ან მტერს) აქვს იგივე პროგრამა დაინსტალირებული მათ კომპიუტერში, ან არის ძლევამოსილი NET გაგზავნით, მაშინ უნდა მიიღოთ პასუხი!

ნაბიჯი 4: ერთი ბოლო რამ, სანამ NET გაგზავნით ყველგან

ერთი ბოლო პატარა შეტყობინება: ეს არ იმუშავებს ვიზაზე!

NET გაგზავნის ბრძანება გაუქმდა Vista– ს უსაფრთხოების მიზეზების გამო, ამიტომ მანამდე იმუშავებს მხოლოდ Windows– ის ოპერაციულ სისტემებზე. მაგრამ როგორც ზოგიერთ თქვენგანს შეუმჩნევია, მე დავწერე ეს პროგრამა Vista– ზე! ამიტომ თეორიაში ის მუშაობს. თუმცა გთხოვთ, დაგვიბრუნოთ გამოხმაურებით, წარმატებულია თუ არა. მადლობა TheKnight P. S. შეიტანეთ სიტყვები ძალიან ზარმაცი, ფაილი ქვემოთ შეინახეთ შეინახეთ იგი საკუთარ საქაღალდეში, რათა მას და "~ msngr.bat" - ს ჰქონდეთ გარკვეული დრო მარტო …