NETsend z VBScripting: 4 kroki

2024 Autor: John Day | [email protected]. Ostatnio zmodyfikowany: 2024-01-30 11:34

Ok, więc nie jest to całkowicie z VBScripting, ale myślę, że pola wejściowe i Msgboxy VBScripting wyglądają o wiele bardziej przyjazne dla użytkownika niż wprowadzanie do okna cmd. Och i btw, proszę nie pisać „DUŻO ŁATWIEJSZY SPOSÓB…” Bo tak, wszyscy wiemy, że ty możesz otworzyć polecenie cmd i wpisać „Net send computername yourmessagehere” To po prostu bardziej przyjazny dla użytkownika sposób na zrobienie tego. Zastrzeżenie Nie jestem całkowicie odpowiedzialny, jeśli coś pójdzie nie tak z tym programem lub jeśli program zostanie w jakikolwiek sposób niewłaściwie użyty. Teraz mamy to za sobą, przejdźmy dalej

Krok 1: Zacznijmy

Najpierw pokażę ci skrypt, a na następnej stronie wyjaśnię, co oznacza każdy bit.dim TargetTarget=InputBox("Enter Target Computer: ", "Carrier Pigeon v1.7 (TheKnight)")If Then WScript. QuitEnd IFdim beginbegin=MsgBox ("Rozpocznij rozmowę z " & target & "?", 36, "Carrier Pigeon v1.7")If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage="0"Do dopóki message=""message= InputBox("Wpisz wiadomość: " & vbcr & vbcr + _"Brak wartości wysyła pustą wiadomość" & vbcr + _"Naciśnij Anuluj lub Alt+F4, aby zamknąć okno", "" & Target, " ", 13500, 100) Set 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. Closedim shellset shell=createobject ("wscript.shell")shell. Uruchom "~msngr.bat", 2Loop

Krok 2: Wyjaśnijmy więc…

Kod na poprzedniej stronie jest pokazany poniżej z kilkoma adnotacjami, jeśli kopiujesz i wklejasz go do słowa, zrób to na poprzedniej stronie. Ok, ten pierwszy bit otwiera okno z pytaniem o nazwę komputera, z którym chcesz rozpocząć rozmowę. Część „If Target” mówi komputerowi, aby zakończył program, jeśli użytkownik naciśnie przycisk Anuluj lub pozostawi puste pole wejściowe. dim TargetTarget=InputBox("Wpisz komputer docelowy: ", "Carrier Pigeon v1.7 (TheKnight)")If Then WScript. QuitEnd IF Ten drugi bit przekazuje dane wejściowe, które użytkownik wprowadził w poprzednim kroku, na przykład komputer docelowy jako: 'The_Pentagon', wtedy ta wiadomość przekazuje komunikat "Rozpocząć rozmowę z The_Pentagon?". Tak samo jak powyżej, jeśli użytkownik naciśnie „nie”, operacja zostanie zakończona. dim beginbegin=MsgBox ("Rozpocznij rozmowę z " & target & "?", 36, "Carrier Pigeon v1.7")If begin = vbNo Then WScript. QuitEnd If Ten następny bit to ta część, której napisanie zajęło mi DŁUGO. Zasadniczo tworzy plik wsadowy i nazywa go „~msngr.bat”. Następnie zapisuje do niego odpowiednie polecenia, aby zainicjować wysyłanie NET. dim messagemessage="0"Do dopóki message=""message=InputBox("Wprowadź wiadomość: " & vbcr & vbcr + _"Brak wartości wysyła pustą wiadomość" & vbcr + _"Naciśnij Anuluj lub Alt+F4, aby zamknąć okno ", "" & Cel, " ", 13500, 100)Set 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=" i wiadomość ts. WriteLine "set & Target ts. WriteLine "net send %Target% %message%"ts. Close Następnie uruchamia plik wsadowy, przy czym „2” upewnia się, że działa w zminimalizowanym oknie, a następnie zamyka. To sprawia, że wygląda nieco bardziej profesjonalnie. dim shellset shell=createobject(" wscript.shell")shell. Run "~msngr.bat", 2Pętla Te dwa ostatnie akapity poleceń są zapętlone. Pozwala to użytkownikowi utrzymać otwarte okno wiadomości i wysyłać wiele wiadomości, dopóki użytkownik nie naciśnie przycisku anuluj i zdecyduje się zamknąć program.

Krok 3: Znoś ze mną

Ok, wiem, że to było dużo do ogarnięcia. Ale prawdopodobnie zamierzam przesłać kilka nowych instrukcji na stronę dla prostego VBScripting i bardziej zaawansowanego VBScripting, jeśli wystarczająco dużo osób skomentuje, prosząc o to.

Więc teraz zapisz plik! naciśnij zapisz, upewnij się, że plik miał rozszerzenie ".vbs" Wiem, że było dużo do ogarnięcia, ale wyjaśnię, co się stanie, jeśli plik zostanie użyty poprawnie: Najpierw pojawi się monit z pytaniem o komputer docelowy Następnie pojawi się wiadomość, że chcesz rozpocząć rozmowę z tym komputerem. Jeśli kliknąłeś „Tak”, powinno pojawić się okno wprowadzania (w prawym górnym rogu ekranu, abyś mógł kontynuować to, co chcesz zrobić) z prośbą o wprowadzenie wiadomości. Po wprowadzeniu wiadomości i kliknięciu „OK”, wzdłuż paska narzędzi powinno pojawić się okno cmd, a następnie zniknąć, był to plik wsadowy wysyłający wiadomość. Jeśli twój przyjaciel (lub wróg) ma ten sam program zainstalowany na swoim komputerze lub jest sprytny z NET send, powinieneś otrzymać odpowiedź z powrotem!

Krok 4: Ostatnia rzecz przed wyjazdem NET Wysyłanie wszędzie

Ostatnia mała wiadomość: TO NIE DZIAŁA W VISTA!

Polecenie NET send zostało zniesione dla Visty ze względów bezpieczeństwa, dlatego będzie działać tylko w systemach operacyjnych Windows wcześniej. Ale jak niektórzy z was mogli zauważyć, napisałem ten program na Viście! Dlatego w TEORII to działa. Prosimy jednak o powrót z informacją zwrotną, czy to się powiodło, czy nie. Dzięki TheKnight PS Jeśli jesteś zbyt leniwy na słowa, plik znajduje się poniżej Zapisz go w swoim własnym folderze, aby mógł on i „~msngr.bat” mieć trochę czasu dla siebie…