NETsend med VBScripting: 4 trin

2024 Forfatter: John Day | [email protected]. Sidst ændret: 2024-01-30 08:31

Ok, så det er ikke helt med VBScripting, men jeg synes, at VBScripting InputBoxes og Msgboxes ser meget mere brugervenligt ud end at indtaste et cmd -vindue. Åh og btw, Vær venlig ikke at skrive "MEGET lettere måde …" For ja vi ved alle, at du kan åbne cmd og skrive "Net send computernavn dit besked her" Dette er bare en mere brugervenlig måde at gøre det på. Ansvarsfraskrivelse Jeg er totalt ikke ansvarlig, hvis noget går galt med dette program, eller hvis programmet misbruges på en eller anden måde. Nu har vi fået det af vejen, lad os gå videre

Trin 1: Lad os komme i gang

For det første viser jeg dig scriptet, og på den næste side forklarer jeg, hvad hver bit betyder. Dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("Begynd samtale med" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage = "0" Do until message = "" message = InputBox ("Indtast meddelelse:" & vbcr & vbcr + _ "Ingen værdi sender en tom meddelelse" & vbcr + _ "Tryk på Annuller eller Alt + F4 for at lukke vinduet", "" & Target, "", 13500, 100) Indstil fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Indstil 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. Closedim shellset shell = createobject ("wscript.shell") shell. Run "~ msngr.bat", 2Loop

Trin 2: Så lad os forklare …

Koden på den forrige side er vist herunder med nogle kommentarer, hvis du kopierer og indsætter det i word, skal du gøre det på den forrige side. Ok, Denne første bit åbner boksen, der beder om navnet på den computer, du vil starte en samtale med. "Hvis mål" -delen fortæller computeren at afslutte programmet, hvis brugeren trykker på 'annuller eller efterlader indtastningsfeltet tomt. dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF Denne anden bit videresender input, som brugeren gjorde i det forrige trin, f.eks. hvis brugeren indtastede målcomputeren som: 'The_Pentagon', så videresender denne meddelelse en, der siger "Start samtale med The_Pentagon?". Samme aftale som ovenfor, hvis brugeren trykker på 'nej', afsluttes handlingen. dim beginbegin = MsgBox ("Begynd samtale med" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd If This next bit is the part that took me LONG to write. Det opretter dybest set en batchfil og kalder den "~ msngr.bat". Det skriver derefter de korrekte kommandoer til det for at starte NET -send. dim messagemessage = "0" Gør indtil meddelelse = "" meddelelse = InputBox ("Indtast meddelelse:" & vbcr & vbcr + _ "Ingen værdi sender en tom besked" & vbcr + _ "Tryk på Annuller eller Alt + F4 for at lukke vinduet "," "& 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 Dette kører derefter batchfilen, hvor" 2 "sikrer, at den kører i et minimeret vindue og derefter lukker. Dette får den til at se lidt mere professionel ud. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop De sidste to afsnit af kommandoer er Looped. Dette giver brugeren mulighed for at holde meddelelsesvinduet åbent og sende flere meddelelser, indtil brugeren trykker på 'annuller og beslutter at lukke programmet.

Trin 3: Bær med mig

Ok, jeg ved, at det var meget at tage ind. Men jeg vil sandsynligvis indsende et par nye instruktører til webstedet for enkel VBScripting og mere avanceret VBScripting, hvis nok folk kommenterer og beder om det.

Så nu for at gemme filen! tryk på gem, sørg for at lave filtypenavnet ".vbs" Jeg ved, at det var meget at tage ind, men jeg vil forklare, hvad der sker, hvis filen bruges korrekt: For det første får du en prompt, der beder om målcomputeren. vil være en besked, der sikrer, at du vil starte en samtale med denne computer. Hvis du klikker på 'Ja', skal der vises en inputboks (øverst til højre på skærmen, så du kan fortsætte med det, du vil gøre) og bede dig om at indtaste meddelelsen. Når en meddelelse er indtastet, og der er klikket på 'OK', skal et cmd -vindue springe ud langs din værktøjslinje og derefter forsvinde, det var batchfilen, der sendte meddelelsen. Hvis din ven (eller fjende) har det samme program installeret på deres computer, eller er smart med NET send, skal du få et svar tilbage!

Trin 4: En sidste ting, før du går NET Sending overalt

En sidste lille besked: DETTE ARBEJDER IKKE PÅ VISTA!

NET send -kommandoen blev afskaffet af Vista på grund af sikkerhedsmæssige årsager, og fungerer derfor kun på Windows -operativsystemer før det. Men som nogle af jer måske har bemærket, har jeg skrevet dette program på Vista! Derfor virker det i teori. Men venligst vende tilbage med feedback om, hvorvidt det er vellykket eller ej. Tak TheKnight P. S. Hvis du er for doven til ord, filen er under Gem den i sin egen mappe, så den og "~ msngr.bat" kan have lidt alene tid …