Innehållsförteckning:
- Steg 1: Låt oss komma igång
- Steg 2: Så låt oss förklara …
- Steg 3: Håll med mig
- Steg 4: En sista sak innan du går NET -sändning överallt
Video: NETsänd med VBScripting: 4 steg
2024 Författare: John Day | [email protected]. Senast ändrad: 2024-01-30 12:47
Ok så det är inte helt med VBScripting, men jag tycker att VBScripting InputBoxes och Msgboxes ser mycket mer användarvänligt ut än att mata in ett cmd -fönster. Åh och btw, snälla skriv inte "MYCKET LÄTTARE …" För ja vi vet alla att du kan öppna cmd och skriva "Net Send computername yourmessagehere" Detta är bara ett mer användarvänligt sätt att göra det. Ansvarsfriskrivning Jag är inte helt ansvarig om något går fel med det här programmet, eller om programmet missbrukas på något sätt. Nu har vi gjort det ur vägen, låt oss gå vidare
Steg 1: Låt oss komma igång
Först ska jag visa dig manuset och på nästa sida kommer jag att förklara vad varje bit betyder. Dim TargetTarget = InputBox ("Enter Target Computer:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IFdim beginbegin = MsgBox ("Börja konversation med" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Then WScript. QuitEnd Ifdim messagemessage = "0" Do until message = "" message = InputBox ("Ange meddelande:" & vbcr & vbcr + _ "Inget värde skickar ett tomt meddelande" & vbcr + _ "Tryck på Avbryt eller Alt + F4 för att stänga fönstret", "" & Target, "", 13500, 100) Ange fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Ange 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
Steg 2: Så låt oss förklara …
Koden på föregående sida visas nedan med några kommentarer, om du kopierar och klistrar in den i word, gör det på föregående sida. Ok, den här första biten öppnar rutan som frågar efter namnet på den dator du vill starta en konversation med. "Om mål" -delen uppmanar datorn att avsluta programmet om användaren trycker på 'avbryt eller lämnar inmatningsfältet tomt. dim TargetTarget = InputBox ("Ange måldator:", "Carrier Pigeon v1.7 (TheKnight)") If Then WScript. QuitEnd IF Denna andra bit vidarebefordrar ingången som användaren gjorde i föregående steg, till exempel om användaren matar in måldatorn som: 'The_Pentagon', då skickar detta meddelande ett meddelande som säger "Starta konversation med The_Pentagon?". Samma affär som ovan, om användaren trycker på "nej", avslutas operationen. dim beginbegin = MsgBox ("Börja konversationen 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. Den skapar i princip en batchfil och kallar den "~ msngr.bat". Den skriver sedan de rätta kommandona till den för att initiera NET -sändning. dim messagemessage = "0" Gör tills meddelande = "" meddelande = InputBox ("Ange meddelande:" & vbcr & vbcr + _ "Inget värde skickar ett tomt meddelande" & vbcr + _ "Tryck på Avbryt eller Alt + F4 för att stänga fönstret "," "& 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 Detta kör sedan batchfilen, där" 2 "ser till att den körs i ett minimerat fönster och sedan stängs. Detta får det att se lite mer professionellt ut. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop De två sista styckena med kommandon är loopade. Detta gör att användaren kan hålla meddelandefönstret öppet och skicka flera meddelanden tills användaren trycker på 'Avbryt' och beslutar att stänga programmet.
Steg 3: Håll med mig
Ok, jag vet att det var mycket att ta in. Men jag kommer förmodligen att skicka in några nya instruktioner till webbplatsen för enkel VBScripting och mer avancerad VBScripting om tillräckligt många kommenterar och ber om det.
Så nu för att spara filen! tryck på spara, se till att göra filtillägget ".vbs" Jag vet att det var mycket att ta in men jag ska förklara vad som händer om filen används korrekt: För det första får du en fråga som frågar efter måldatorn. kommer att vara ett meddelande som ser till att du vill starta en konversation med den här datorn. Om du klickade på "Ja" ska en inmatningsruta visas (längst upp till höger på skärmen så att du kan fortsätta med det du vill göra) och be dig att mata in meddelandet. När ett meddelande har matats in och "OK" klickats, ska ett cmd -fönster dyka upp längs verktygsfältet och sedan försvinna, det här var batchfilen som skickade meddelandet. Om din vän (eller fiende) har samma program installerat på sin dator, eller är duktig med NET -skicka, bör du få ett svar tillbaka!
Steg 4: En sista sak innan du går NET -sändning överallt
Ett sista litet meddelande: DETTA FUNGERAR INTE PÅ VISTA!
NET send -kommandot avskaffades av Vista på grund av säkerhetsskäl, och fungerar därför bara på Windows -operativsystem innan dess. Men som några av er kanske har märkt har jag skrivit det här programmet på Vista! Därför fungerar det i teori. Men vänligen återkom med feedback om det är framgångsrikt eller inte. Tack TheKnight P. S. Incase your too lat för ord, filen är nedan Spara den i sin egen mapp, så att den och "~ msngr.bat" kan ha lite ensam tid …
Rekommenderad:
Steg-för-steg-utbildning i robotik med ett kit: 6 steg
Steg-för-steg-utbildning i robotik med ett kit: Efter ganska många månader av att bygga min egen robot (se alla dessa), och efter att två gånger ha misslyckats med delar, bestämde jag mig för att ta ett steg tillbaka och tänka om min strategi och riktning. De flera månaders erfarenhet var ibland mycket givande och
Akustisk levitation med Arduino Uno Steg-för-steg (8-steg): 8 steg
Akustisk levitation med Arduino Uno Steg-för-steg (8-steg): ultraljudsgivare L298N Dc kvinnlig adapter strömförsörjning med en manlig DC-pin Arduino UNOBreadboardHur det fungerar: Först laddar du upp kod till Arduino Uno (det är en mikrokontroller utrustad med digital och analoga portar för att konvertera kod (C ++)
Hemmautomation Steg för steg Användning av Wemos D1 Mini med PCB -design: 4 steg
Hemmautomation Steg för steg Användning av Wemos D1 Mini Med PCB -design: Hemautomation Steg för steg med Wemos D1 Mini med PCB -design För några veckor sedan publicerade vi en självstudie “Hemmautomation med hallon Pi” på rootsaid.com som blev väl mottagen bland hobbyister och College studenter. Sedan kom en av våra medlemmar
RC -spårad robot med Arduino - Steg för steg: 3 steg
RC -spårad robot med Arduino - Steg för steg: Hej killar, jag är tillbaka med ett annat häftigt robotchassi från BangGood. Hoppas att du har gått igenom våra tidigare projekt - Spinel Crux V1 - Gesture Controlled Robot, Spinel Crux L2 - Arduino Pick and Place Robot med Robotic Arms och The Badland Braw
Trådlös fjärrkontroll med 2,4 GHz NRF24L01 -modul med Arduino - Nrf24l01 4 -kanals / 6 -kanals sändarmottagare för Quadcopter - Rc helikopter - RC -plan med Arduino: 5 steg (med bilder)
Trådlös fjärrkontroll med 2,4 GHz NRF24L01 -modul med Arduino | Nrf24l01 4 -kanals / 6 -kanals sändarmottagare för Quadcopter | Rc helikopter | Rc -plan med Arduino: Att driva en Rc -bil | Quadcopter | Drone | RC -plan | RC -båt, vi behöver alltid en mottagare och sändare, antag att för RC QUADCOPTER behöver vi en 6 -kanals sändare och mottagare och den typen av TX och RX är för dyr, så vi kommer att göra en på vår