NETsend met VBScripting: 4 stappen

2024 Auteur: John Day | [email protected]. Laatst gewijzigd: 2024-01-30 11:20

Ok dus het is niet helemaal met VBScripting, maar ik denk dat VBScripting InputBoxen en Msgboxes er veel gebruiksvriendelijker uitzien dan het invoeren in een cmd-venster. Oh en trouwens, schrijf alsjeblieft niet "VEEL GEMAKKELIJKER MANIER …" Want ja, we weten allemaal dat je kan cmd openen en "Net send computername yourmessagehere" typen. Dit is gewoon een gebruiksvriendelijkere manier om het te doen. Disclaimer Ik ben totaal niet verantwoordelijk als er iets mis gaat met dit programma, of als het programma op ENIGE manier wordt misbruikt. Nu hebben we dat uit de weg, laten we verder gaan

Stap 1: Laten we beginnen

Eerst zal ik je het script laten zien en op de volgende pagina zal ik uitleggen wat elk bit betekent.dim TargetTarget=InputBox("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)")If Then WScript. QuitEnd IFdim beginbegin=MsgBox ("Begin conversatie met " & target & "?", 36, "Carrier Pigeon v1.7")If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage="0"Do Until message=""message= InputBox("Voer bericht in: " & vbcr & vbcr + _"Geen waarde stuurt een leeg bericht" & vbcr + _"Druk op Annuleren of Alt+F4 om het venster te sluiten", "" & Doel, " ", 13500, 100) Set fs=CreateObject("Scripting. FileSystemObject") strFileName = fs. BuildPath(Wscript. ScriptFullName & "\..", "~msngr.bat") strFileName = fs. GetAbsolutePathName(strFileName) Set ts = fs. OpenTextNameFile(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. Run "~msngr.bat", 2Loop

Stap 2: Dus laten we het uitleggen…

De code op de vorige pagina wordt hieronder weergegeven met enkele annotaties, als u deze kopieert en plakt in Word, doe dit dan op de vorige pagina. Ok, dit eerste stukje opent het vak waarin wordt gevraagd naar de naam van de computer waarmee u een gesprek wilt beginnen. Het gedeelte "Als doel" vertelt de computer dat het programma moet worden beëindigd als de gebruiker op 'annuleren' drukt of het invoerveld leeg laat. dim TargetTarget=InputBox("Enter Target Computer: ", "Carrier Pigeon v1.7 (TheKnight)")If Then WScript. QuitEnd IF Deze tweede bit geeft de invoer door die de gebruiker in de vorige stap heeft gedaan, bijvoorbeeld als de gebruikersinvoer de doelcomputer als: 'The_Pentagon', dan geeft dit bericht er een door die zegt: "Start conversation with The_Pentagon?". Dezelfde deal als hierboven, als de gebruiker op 'nee' drukt, wordt de bewerking beëindigd. dim beginbegin=MsgBox ("Begin conversatie met " & target & "?", 36, "Carrier Pigeon v1.7")If begin = vbNo Then WScript. QuitEnd If Dit volgende stukje is het deel dat me LANG kostte om te schrijven. Het maakt in feite een batchbestand aan en noemt het "~msngr.bat". Vervolgens schrijft het de juiste opdrachten naar het om NET-verzending te starten. dim messagemessage="0"Do Until message=""message=InputBox("Enter Message: " & vbcr & vbcr + _"No Value stuurt een leeg bericht" & vbcr + _"Druk op Annuleren of Alt+F4 om het venster te sluiten ", "" & 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. Close Hiermee wordt vervolgens het batchbestand uitgevoerd, waarbij de "2" ervoor zorgt dat het in een geminimaliseerd venster wordt uitgevoerd en vervolgens wordt gesloten. Hierdoor ziet het er wat professioneler uit. dim shellset shell=createobject(" wscript.shell")shell. Run "~msngr.bat", 2Loop Die laatste twee alinea's van opdrachten zijn in een lus geplaatst. Hierdoor kan de gebruiker het berichtenvenster open houden en meerdere berichten verzenden totdat de gebruiker op 'Annuleren' drukt en besluit te sluiten het programma.

Stap 3: Draag met me mee

Ok, ik weet dat het veel was om in je op te nemen. Maar ik ga waarschijnlijk een paar nieuwe instructables naar de site sturen voor eenvoudige VBScripting, en meer geavanceerde VBScripting als genoeg mensen reageren die erom vragen.

Dus nu om het bestand op te slaan! druk op opslaan, zorg ervoor dat u de bestandsextensie ".vbs" maakt. Ik weet dat het veel was om in te nemen, maar ik zal uitleggen wat er gebeurt als het bestand correct wordt gebruikt: Ten eerste krijg je een prompt waarin om de doelcomputer wordt gevraagd. zal een bericht zijn om ervoor te zorgen dat u een gesprek met deze computer wilt starten. Als u op 'Ja' heeft geklikt, verschijnt er een invoervak (rechtsboven in uw scherm, zodat u verder kunt gaan met wat u wilt doen) waarin u wordt gevraagd het bericht in te voeren. Zodra een bericht is ingevoerd en er op 'OK' is geklikt, zou er een cmd-venster langs uw werkbalk moeten verschijnen en dan verdwijnen, dit was het batchbestand dat het bericht verzond. Als je vriend (of vijand) hetzelfde programma op zijn computer heeft geïnstalleerd, of handig is met NET send, dan zou je een antwoord terug moeten krijgen!

Stap 4: Nog een laatste ding voordat u NET overal naartoe verzendt

Nog een laatste berichtje: DIT WERKT NIET OP VISTA!

De opdracht NET send is vanwege veiligheidsredenen voor Vista afgeschaft en werkte daarvoor alleen op Windows-besturingssystemen. Maar zoals sommigen van jullie misschien hebben opgemerkt, heb ik dit programma op Vista geschreven! IN THEORIE werkt het dus. Maar kom alsjeblieft terug met feedback over of het gelukt is of niet. Bedankt TheKnight P. S. Als je te lui bent voor woorden, het bestand staat hieronder. Bewaar het in zijn eigen map, zodat het en "~msngr.bat" wat tijd voor jezelf kunnen hebben…