NETsend with VBScripting: 4 kroky

2024 Autor: John Day | [email protected]. Naposledy zmenené: 2024-01-30 12:01

Ok, takže nie je to úplne s VBScriptingom, ale myslím si, že VBScripting InputBoxes a Msgboxes vyzerajú oveľa užívateľsky prívetivejšie ako vstup do okna cmd. Oh a btw, nepíšte prosím „oveľa jednoduchší spôsob …“Pretože áno, všetci vieme, že ty môžete otvoriť cmd a napísať „Net send computernername yourmessagehere“Toto je len užívateľsky príjemnejší spôsob, ako to urobiť. Disclaimer Nenesiem žiadnu zodpovednosť za to, že sa niečo pokazí s týmto programom alebo ak bude program akýmkoľvek spôsobom zneužitý. Teraz to máme za sebou, poďme ďalej

Krok 1: Začnime

Najprv vám ukážem skript a na ďalšej stránke vysvetlím, čo každý bit znamená. Dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("Začať konverzáciu s" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage = "0" Do Then message = "" message = InputBox ("Zadajte správu:" & vbcr & vbcr + _ "Žiadna hodnota odošle prázdnu správu" & vbcr + _ "Stlačením Zrušiť alebo Alt + F4 zatvoríte okno", "" & Cieľ, "", 13500, 100) Nastaviť fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) nastaviť ts = fs. OpenTe, 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

Krok 2: Poďme si teda vysvetliť …

Kód na predchádzajúcej stránke je uvedený nižšie s anotáciami. Ak ho kopírujete a vkladáte do programu Word, urobte to na predchádzajúcej strane. Ok, tento prvý bit otvorí pole, ktoré sa pýta na názov počítača, s ktorým chcete začať konverzáciu. Časť „If Target“hovorí počítaču, aby ukončil program, ak používateľ stlačí 'zrušiť alebo ponechá vstupné pole prázdne. dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF Tento druhý bit sprostredkuje vstup, ktorý užívateľ vykonal v predchádzajúcom kroku, napríklad ak používateľ zadal cieľový počítač ako: „The_Pentagon“, potom sa v tejto správe zobrazí správa „Začať konverzáciu s The_Pentagon?“. Rovnaký postup ako vyššie, ak používateľ stlačí „nie“, operácia sa skončí. dim beginbegin = MsgBox („Začať konverzáciu s“& target & „?“, 36, „Carrier Pigeon v1.7“) If begin = vbNo Then WScript. QuitEnd If This next bit is the part which we takes LONG to write. V zásade vytvára dávkový súbor a nazýva ho „~ msngr.bat“. Potom do neho napíše správne príkazy na spustenie NET odosielania. dim messagemessage = "0" Do Do message = "" message = InputBox ("Zadajte správu:" & vbcr & vbcr + _ "Žiadna hodnota neodošle prázdnu správu" & vbcr + _ "Zatvorte okno stlačením Zrušiť alebo Alt + F4 "," "& Target," ", 13500, 100) Nastaviť fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Nastaviť 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. Potom sa spustí dávkový súbor, pričom" 2 "zabezpečí, aby bežal v minimalizovanom okne a potom sa zavrel. Vyzerá to o niečo profesionálnejšie. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Tieto posledné dva odseky príkazov sú Looped. To umožňuje užívateľovi nechať okno správy otvorené a odosielať viacero správ, kým užívateľ nestlačí 'zrušiť a nerozhodne sa zavrieť. Program.

Krok 3: Vydržte so mnou

Ok, viem, že to bolo veľa. Ale pravdepodobne budem na stránku odosielať niekoľko nových inštrukcií pre jednoduché VBScripting a pokročilejšie VBScripting, ak o to požiada dostatok ľudí.

Teraz teda uložte súbor! stlačte tlačidlo Uložiť, uistite sa, že máte príponu súboru ".vbs" Viem, že to bolo veľa na prijatie, ale vysvetlím, čo sa stane, ak sa súbor použije správne: Najprv dostanete výzvu so žiadosťou o cieľový počítač. Ďalej Bude to správa, ktorou sa uistíte, že chcete začať konverzáciu s týmto počítačom. Ak ste klikli na „Áno“, malo by sa objaviť vstupné pole (v pravom hornom rohu obrazovky, aby ste mohli pokračovať v tom, čo chcete urobiť) so žiadosťou o zadanie správy. Po zadaní správy a kliknutí na tlačidlo „OK“by sa na paneli s nástrojmi malo objaviť okno cmd a potom zmiznúť. Toto bol dávkový súbor odosielajúci správu. Ak má váš priateľ (alebo nepriateľ) na počítači nainštalovaný rovnaký program alebo je šikovný na NET send, mali by ste dostať odpoveď späť!

Krok 4: Posledná posledná vec, než vyrazíte ČISTÉ odosielanie všade

Posledná malá správa: TOTO NA VISTE NEFUNGUJE!

Príkaz NET send bol pre Vista zrušený z bezpečnostných dôvodov, preto bude predtým fungovať iba na operačných systémoch Windows. Ale ako si niektorí z vás mohli všimnúť, napísal som tento program na Vista! Preto to teoreticky funguje. Vráťte sa však so spätnou väzbou, či je úspešná alebo nie. Vďaka TheKnight P. S. Ak ste príliš leniví na slová, súbor je nižšie. Uložte ho do vlastného priečinka, aby mohol spolu s „~ msngr.bat“stráviť nejaký čas osamote …