NETsend с VBScripting: 4 шага

2024 Автор: John Day | [email protected]. Последнее изменение: 2024-01-30 11:54

Хорошо, так что это не полностью с VBScripting, но я думаю, что VBScripting InputBox и Msgboxes выглядят намного более удобными для пользователя, чем ввод в окно cmd. Да и кстати, пожалуйста, не пишите «НАМНОГО ЛЕГЧЕ…» Потому что да, мы все знаем, что вы можно открыть cmd и ввести «Net send computername yourmessagehere». Это просто более удобный способ сделать это. Заявление об ограничении ответственности Я не несу ответственности, если что-то пойдет не так с этой программой, или если программа используется ЛЮБЫМ образом не по назначению. Теперь у нас есть это пути, давайте двигаться дальше

Шаг 1. Приступим

Сначала я покажу вам сценарий, а на следующей странице объясню, что означает каждый бит. Dim TargetTarget = InputBox («Введите целевой компьютер:», «Carrier Pigeon v1.7 (TheKnight)») If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("Начать разговор с" & target & "?", 36, "Carrier Pigeon v1.7") Если begin = vbNo, то WScript. QuitEnd Ifdim messagemessage = "0" До тех пор, пока message = "" message = InputBox ("Enter Message:" & vbcr & vbcr + _ "No Value отправляет пустое сообщение" & vbcr + _ "Нажмите" Отмена "или Alt + F4, чтобы закрыть окно", "" & Target, "", 13500, 100) Установить fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) (strFileName) Set ts = fileName, 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 ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF Этот второй бит передает ввод, который пользователь сделал на предыдущем шаге, например, если пользователь ввел целевой компьютер как: 'The_Pentagon', тогда это сообщение ретранслирует тот, который говорит: «Начать разговор с The_Pentagon?». То же самое, что и выше, если пользователь нажимает «нет», операция прекращается. dim beginbegin = MsgBox ("Начать разговор с" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd If Этот следующий бит - часть, на написание которой у меня ушло ДЛИННО. По сути, он создает командный файл и называет его «~ msngr.bat». Затем он записывает в него правильные команды, чтобы он инициировал отправку по сети. dim messagemessage = "0" До тех пор, пока сообщение = "" message = InputBox ("Enter Message:" & vbcr & vbcr + _ "No Value отправляет пустое сообщение" & 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 "проверяет, что он запускается в свернутом окне, а затем закрывается. Это делает его более профессиональным. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Эти последние два абзаца команд зациклены. Это позволяет пользователю держать окно сообщения открытым и отправлять несколько сообщений, пока пользователь не нажмет" Отмена "и не решит закрыть программа.

Шаг 3: терпи меня

Хорошо, я знаю, что это было очень важно. Но я, вероятно, собираюсь отправить на сайт несколько новых инструкций по простому сценарию VBS и более продвинутому сценарию VBS, если достаточное количество людей прокомментируют его с просьбой об этом.

Итак, теперь сохраним файл! нажмите "Сохранить", убедитесь, что расширение файла ".vbs". Я знаю, что это было много, но я объясню, что произойдет, если файл используется правильно: сначала вы получите запрос на целевой компьютер. Затем они появится сообщение, подтверждающее, что вы хотите начать разговор с этим компьютером. Если вы нажали «Да», то должно появиться поле ввода (в правом верхнем углу экрана, чтобы вы могли продолжить то, что хотите делать) с просьбой ввести сообщение. После ввода сообщения и нажатия кнопки «ОК» на панели инструментов должно появиться окно cmd, а затем исчезнуть, это был командный файл, отправляющий сообщение. Если ваш друг (или враг) установил эту же программу на свой компьютер или умеет использовать NET send, вы должны получить ответ!

Шаг 4: Последнее, что нужно сделать перед тем, как начать рассылку по сети повсюду

Последнее небольшое сообщение: ЭТО НЕ РАБОТАЕТ НА VISTA!

Команда NET send была отменена для Vista из соображений безопасности, поэтому до этого она будет работать только в операционных системах Windows. Но, как некоторые из вас, возможно, заметили, я написал эту программу для Vista! Поэтому В ТЕОРИИ это работает. Однако, пожалуйста, вернитесь с отзывами о том, успешна она или нет. Спасибо TheKnight P. S. Если вы слишком ленивы для слов, файл находится ниже. Сохраните его в отдельной папке, чтобы он и "~ msngr.bat" могли побыть в одиночестве …