NETsend с VBScripting: 4 стъпки

2024 Автор: John Day | [email protected]. Последно модифициран: 2024-01-30 07:55

Добре, така че не е напълно с VBScripting, но мисля, че VBScripting InputBoxes и Msgboxes изглеждат много по -удобни за потребителя, отколкото въвеждането в CMD прозорец. може да отвори cmd и да напише „Net send computername yourmessagehere“Това е просто по -удобен за потребителя начин да го направите. Отказ от отговорност Аз не съм напълно отговорен, ако нещо се обърка с тази програма или ако програмата се използва по някакъв начин. Сега сме отстранили проблема, нека да продължим

Стъпка 1: Нека започнем

Първо ще ви покажа скрипта и на следващата страница ще обясня какво означава всеки бит. Dim TargetTarget = InputBox ("Въведете целевия компютър:", "Carrier Pigeon v1.7 (TheKnight)") Ако тогава WScript. QuitEnd IFdim beginbegin = MsgBox ("Започнете разговор с" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Тогава WScript. QuitEnd Ifdim messagemessage = "0" Do Until message = "" message = InputBox ("Enter Message:" & vbcr & vbcr + _ "No Value изпраща празно съобщение" & vbcr + _ "Натиснете Cancel или Alt + F4, за да затворите прозореца", "& Target," ", 13500, 100) Задайте fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileNameO. StrFileNameO., 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: Нека обясним …

Кодът на предишната страница е показан по -долу с някои пояснения, ако копирате и поставите в word, моля, направете го на предишната страница. Добре, този първи бит отваря полето, което пита за името на компютъра, с който искате да започнете разговор. Частта "If Target" казва на компютъра да прекрати програмата, ако потребителят натисне 'cancel или остави полето за въвеждане празно. 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 Тогава WScript. QuitEnd If Този следващ бит е частта, която ми отне ДЪЛГО да напиша. По същество той създава партиден файл и го нарича "~ msngr.bat". След това той записва правилните команди към него, за да започне NET изпращане. dim messagemessage = "0" Do Until message = "" message = InputBox ("Въведете съобщение:" & vbcr & vbcr + _ "No Value изпраща празно съобщение" & vbcr + _ "Натиснете Cancel или Alt + F4, за да затворите прозореца "," "& Target," ", 13500, 100) Set 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 Последните два абзаца от команди са циклирани. Това позволява на потребителя да държи прозореца на съобщението отворен и да изпраща множество съобщения, докато потребителят не натисне 'cancel и реши да затвори програмата.

Стъпка 3: Бъдете с мен

Добре, знам, че това беше много за приемане. Но вероятно ще изпратя няколко нови инструкции на сайта за просто VBScripting и по -усъвършенствано VBScripting, ако достатъчно хора коментират това.

Така че сега, за да запазите файла! натиснете save, уверете се, че сте направили разширението на файла.vbs ще бъде съобщение, което гарантира, че искате да започнете разговор с този компютър. Ако сте щракнали върху „Да“, трябва да се появи поле за въвеждане (в горния десен ъгъл на екрана, за да можете да продължите с това, което искате да направите), което ще ви помоли да въведете съобщението. След като се въведе съобщение и се щракне върху „OK“, тогава CMD прозорецът трябва да изникне по лентата с инструменти и след това да изчезне, това беше пакетният файл, изпращащ съобщението. Ако вашият приятел (или враг) има инсталирана същата програма на компютъра си или е добре с NET изпращане, тогава трябва да получите отговор обратно!

Стъпка 4: Последно нещо, преди да отидете НЕТ да изпращате навсякъде

Едно последно малко съобщение: ТОВА НЕ СЕ ПРАВИ НА ВИСТА!

Командата NET send е отменена за Vista поради съображения за сигурност, следователно ще работи само на операционни системи Windows преди това. Но както някои от вас може би са забелязали, аз съм написал тази програма на Vista! Следователно НА ТЕОРИЯ работи. Моля обаче да се върнете с обратна връзка дали е успешна или не. Благодаря TheKnight P. S. Ако сте твърде мързеливи за думи, файлът е отдолу Запишете го в собствената си папка, така че той и "~ msngr.bat" да имат малко време сам …