NETsend with VBScripting: 4 kroky

2024 Autor: John Day | [email protected]. Naposledy změněno: 2024-01-30 08:24

Dobře, takže to není úplně s VBScriptingem, ale domnívám se, že VBScripting InputBoxes a Msgboxes vypadají mnohem uživatelsky přívětivěji než zadávání do okna cmd. Ach a btw, prosím, nepište „MNOHEM SNADNĚJŠÍ ZPŮSOB …“Protože ano, všichni víme, že vy můžete otevřít cmd a zadat „Net send computername yourmessagehere“Toto je jen uživatelsky přívětivější způsob, jak to udělat. Zřeknutí se odpovědnosti Zcela nezodpovídám za to, že se s tímto programem něco pokazí, nebo pokud bude program ZNĚJAK zneužit. Teď to máme za sebou, jdeme dál

Krok 1: Začněme

Nejprve vám ukážu skript a na další stránce vysvětlím, co každý bit znamená. Dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("Zahájit konverzaci s" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage = "0" Do Before message = "" message = InputBox ("Enter Message:" & vbcr & vbcr + _ "No Value odešle prázdnou zprávu" & vbcr + _ "Stisknutím Cancel nebo Alt + F4 zavřete okno", "" & Target, "", 13500, 100) Nastavit fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) nastavit 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: Pojďme tedy vysvětlit…

Kód na předchozí stránce je uveden níže s některými poznámkami, pokud jej kopírujete a vkládáte do aplikace Word, proveďte to na předchozí stránce. Dobře, tento první bit otevírá pole s dotazem na název počítače, se kterým chcete zahájit konverzaci. Část „If Target“říká počítači, aby program ukončil, pokud uživatel stiskne 'zrušit nebo ponechá vstupní pole prázdné. dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF Tento druhý bit předává vstup, který uživatel provedl v předchozím kroku, například pokud uživatel zadal cílový počítač jako: 'The_Pentagon', pak tato zpráva předá zprávu, která říká "Zahájit konverzaci s The_Pentagon?". Stejné řešení jako výše, pokud uživatel stiskne 'ne, operace bude ukončena. dim beginbegin = MsgBox ("Zahájit konverzaci s" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd If This next bit is the part which I LONG to write. V zásadě vytvoří dávkový soubor a nazývá jej „~ msngr.bat“. Poté do něj zapíše správné příkazy, aby mohl zahájit NET send. dim messagemessage = "0" Do Once message = "" message = InputBox ("Enter Message:" & vbcr & vbcr + _ "No Value pošle prázdnou zprávu" & vbcr + _ "Stisknutím Zrušit nebo Alt + F4 zavřete okno "," "& Target," ", 13500, 100) Nastavit fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Nastavit 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 Tím se spustí dávkový soubor, přičemž" 2 "zajistí, že poběží v minimalizovaném okně a poté se zavře. Vypadá to trochu profesionálněji. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Tyto dva poslední odstavce příkazů jsou Looped. To umožňuje uživateli ponechat okno zprávy otevřené a odesílat více zpráv, dokud uživatel nestiskne 'zrušit a nerozhodne se zavřít Program.

Krok 3: Mějte se mnou

Dobře, vím, že toho bylo hodně. Ale pravděpodobně se chystám odeslat na web několik nových instrukcí pro jednoduché VBScripting a pokročilejší VBScripting, pokud o to požádá dost lidí.

Nyní tedy uložte soubor! stiskněte uložit, ujistěte se, že máte příponu souboru ".vbs" Vím, že to bylo hodně, ale vysvětlím, co se stane, když se soubor použije správně: Nejprve dostanete výzvu s dotazem na cílový počítač. „Bude to zpráva, která zajistí, že budete chtít zahájit konverzaci s tímto počítačem. Pokud jste klikli na „Ano“, mělo by se zobrazit vstupní pole (v pravém horním rohu obrazovky, abyste mohli pokračovat v tom, co chcete udělat) s výzvou k zadání zprávy. Jakmile je zadána zpráva a klikne na 'OK', pak by se na vašem panelu nástrojů mělo objevit okno cmd a poté zmizet, to byl dávkový soubor odesílající zprávu. Pokud má váš přítel (nebo nepřítel) na svém počítači nainstalován stejný program nebo je šikovný na NET send, měli byste dostat odpověď zpět!

Krok 4: Jedna poslední věc, než půjdete ČISTÉ odesílání všude

Jedna malá malá zpráva: TOTO NA VISTĚ NEFUNGUJE!

Příkaz NET send byl pro Vista z bezpečnostních důvodů zrušen, a proto bude předtím fungovat pouze na operačních systémech Windows. Ale jak si někteří z vás mohli všimnout, napsal jsem tento program na Vistu! Proto TO TEORII funguje. Vraťte se však se zpětnou vazbou, zda je úspěšná nebo ne. Díky TheKnight P. S. Pokud jste příliš líní na slova, soubor je níže. Uložte jej do své vlastní složky, aby mohl mít „~ msngr.bat“nějaký čas…