NETsend med VBScripting: 4 trinn

2024 Forfatter: John Day | [email protected]. Sist endret: 2024-01-30 11:26

Ok, så det er ikke helt med VBScripting, men jeg tror at VBScripting InputBoxes og Msgboxes ser mye mer brukervennlig ut enn å skrive inn et cmd -vindu. Åh og btw, vær så snill å ikke skrive "MYE ENKLERE MÅTE …" Fordi ja vi vet alle at du kan åpne cmd og skrive "Net send computername yourmessagehere" Dette er bare en mer brukervennlig måte å gjøre det på. Ansvarsfraskrivelse Jeg er ikke ansvarlig hvis noe går galt med dette programmet, eller hvis programmet blir misbrukt på noen måte. Nå har vi fjernet det, la oss gå videre

Trinn 1: La oss komme i gang

For det første skal jeg vise deg skriptet, og på neste side vil jeg forklare hva hver bit betyr. Dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("Start samtale med" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage = "0" Do until message = "" melding = InputBox ("Skriv inn melding:" & vbcr & vbcr + _ "Ingen verdi sender en tom melding" & vbcr + _ "Trykk på Avbryt eller Alt + F4 for å lukke vinduet", "" & Target, "", 13500, 100) Sett fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Sett 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

Trinn 2: Så la oss forklare …

Koden på forrige side vises nedenfor med noen merknader. Hvis du kopierer og limer den inn i ord, kan du gjøre det på forrige side. Ok, Denne første biten åpner boksen som ber om navnet på datamaskinen du vil starte en samtale med. "If Target" -delen ber datamaskinen om å avslutte programmet hvis brukeren trykker på 'Avbryt eller lar inndatafeltet stå tomt. dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF This second bit relays the input that the user did in the previous step, for example if the user input måldatamaskinen som: 'The_Pentagon', så videresender denne meldingen en som sier "Start samtale med The_Pentagon?". Samme avtale som ovenfor, hvis brukeren trykker "nei", avsluttes operasjonen. dim beginbegin = MsgBox ("Start samtale med" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd If This next bit is the part that tok me LONG to write. Den oppretter i utgangspunktet en batchfil og kaller den "~ msngr.bat". Den skriver deretter de riktige kommandoene til den for å starte NET -sending. dim messagemessage = "0" Gjør inntil melding = "" melding = InputBox ("Skriv inn melding:" & vbcr & vbcr + _ "Ingen verdi sender en tom melding" & vbcr + _ "Trykk Avbryt eller Alt + F4 for å lukke vinduet "," "& Target," ", 13500, 100) Sett fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Sett ts = fs. OpenTextFile (strFileName, 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & melding ts. WriteLine "set & Target ts. WriteLine" net send %Target%%message%"ts. Close Dette kjører deretter batchfilen, med" 2 "som sørger for at den kjøres i et minimert vindu og deretter lukkes. Dette får den til å se litt mer profesjonell ut. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop De to siste avsnittene i kommandoene er Looped. Dette lar brukeren holde meldingsvinduet åpent og sende flere meldinger til brukeren trykker på" Avbryt og bestemmer seg for å lukke " programmet.

Trinn 3: Bær med meg

Ok, jeg vet at det var mye å ta i. Men jeg kommer nok til å sende inn noen nye instrukser til nettstedet for enkel VBScripting og mer avansert VBScripting hvis nok folk kommenterer og ber om det.

Så nå for å lagre filen! Trykk på lagre, sørg for å lage filtypen ".vbs" Jeg vet at det var mye å ta inn, men jeg skal forklare hva som skjer hvis filen brukes riktig: For det første får du en melding som ber om måldatamaskinen. vil være en melding om at du vil starte en samtale med denne datamaskinen. Hvis du klikket "Ja", skal det vises en inndataboks (øverst til høyre på skjermen, slik at du kan fortsette med det du vil gjøre) og be deg om å legge inn meldingen. Når en melding er lagt inn og "OK" er klikket, skal et cmd -vindu dukke opp langs verktøylinjen og deretter forsvinne, dette var batchfilen som sender meldingen. Hvis din venn (eller fiende) har det samme programmet installert på datamaskinen sin, eller er flink med NET send, bør du få svar tilbake!

Trinn 4: En siste ting før du går NET Sending overalt

En siste liten melding: DETTE KOMMER IKKE PÅ VISTA!

NET send -kommandoen ble avskaffet av Vista på grunn av sikkerhetshensyn, og vil derfor bare fungere på Windows -operativsystemer før det. Men som noen av dere kanskje har lagt merke til, har jeg skrevet dette programmet på Vista! Derfor virker det i teori. Men vær så snill å komme tilbake med tilbakemelding om det er vellykket eller ikke. Takk TheKnight P. S. Hvis du er for lat for ord, er filen under Lagre den i sin egen mappe, slik at den og "~ msngr.bat" kan ha litt tid alene …