NETsend ar VBScripting: 4 soļi

2024 Autors: John Day | [email protected]. Pēdējoreiz modificēts: 2024-01-30 10:59

Labi, tāpēc tas nav pilnīgi ar VBScripting, bet es domāju, ka VBScripting InputBoxes un Msgboxes izskatās daudz lietotājam draudzīgāk nekā ievadīšana cmd logā. Ak un btw, lūdzu, nerakstiet "DAUDZ VIEGLĀKĀ VEIDA …", jo mēs visi zinām, ka jūs var atvērt cmd un ierakstīt "Net send computername yourmessagehere" Tas ir tikai lietotājam draudzīgāks veids, kā to izdarīt. Atruna Es neesmu pilnīgi atbildīgs, ja ar šo programmu kaut kas noiet greizi vai ja programma tiek izmantota jebkādā veidā. Tagad mums tas ir izdevies, ejam tālāk

1. darbība. Sāksim darbu

Pirmkārt, es jums parādīšu skriptu, un nākamajā lapā es paskaidrošu, ko katrs bits nozīmē. QuitEnd IFdim beginbegin = MsgBox ("Sākt sarunu ar" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Tad WScript. QuitEnd Ifdim messagemessage = "0" Do Before message = "" message = InputBox ("Ievadiet ziņojumu:" & vbcr & vbcr + _ "No Value nesūta tukšu ziņojumu" & vbcr + _ "Nospiediet Atcelt vai Alt + F4, lai aizvērtu logu", "" & Target, "", 13500, 100) Iestatīt fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\" "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Iestatīt ts = fileFile, 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" net send send %Target % %message %"ts. Closedim shellset shell = createobject ("wscript.shell") shell. Run "~ msngr.bat", 2Loop

Otrais solis: paskaidrosim…

Iepriekšējās lapas kods ir parādīts zemāk ar dažām piezīmēm. Ja kopējat un ielīmējat to vārdā, lūdzu, dariet to iepriekšējā lapā. Labi, šis pirmais bits atver lodziņu, kurā tiek prasīts tā datora nosaukums, ar kuru vēlaties sākt sarunu. Daļa "Ja mērķis" liek datoram pārtraukt programmu, ja lietotājs nospiež 'atcelt vai atstāj ievades lauku tukšu. dim TargetTarget = InputBox ("Ievadiet mērķa datoru:", "Carrier Pigeon v1.7 (TheKnight)") Ja Tad mērķa dators kā “The_Pentagon”, tad šis ziņojums pārraida ziņojumu, kurā teikts: “Sākt sarunu ar The_Pentagon?”. Tāds pats darījums kā iepriekš, ja lietotājs nospiež “nē”, darbība tiks pārtraukta. dim beginbegin = MsgBox ("Sākt sarunu ar" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Tad WScript. QuitEnd If Šis nākamais bits ir tā daļa, kuras rakstīšana man prasīja ILGU. Tas būtībā izveido sērijveida failu un sauc to par "~ msngr.bat". Pēc tam tā uzraksta pareizās komandas, lai tā varētu sākt NET sūtīšanu. dim messagemessage = "0" Do Before message = "" message = InputBox ("Ievadiet ziņojumu:" & vbcr & vbcr + _ "No Value sūta tukšu ziņojumu" & vbcr + _ "Lai aizvērtu logu, nospiediet Atcelt vai Alt + F4 "," "& Mērķis," ", 13500, 100) Set fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Iestatīt ts = fs. OpenTextFile (strFileName, 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" neto sūtīt %Target%%message%"ts. Close Pēc tam tiek palaists sērijveida fails," 2 "pārliecinoties, ka tas darbojas minimizētā logā un pēc tam tiek aizvērts. Tādējādi tas izskatās mazliet profesionālāk. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Pēdējās divas komandu rindkopas ir cilpas. Tas ļauj lietotājam paturēt ziņojumu logu atvērtu un nosūtīt vairākus ziņojumus, līdz lietotājs nospiež" Atcelt "un nolemj aizvērt programma.

3. solis: izturieties ar mani

Labi, es zinu, ka tas bija daudz, kas jāņem vērā. Bet es, iespējams, gatavojas iesniegt vietnei dažas jaunas pamācības, lai tās varētu vienkārši VBScripting un uzlabotas VBScripting, ja to komentē pietiekami daudz cilvēku.

Tāpēc tagad, lai saglabātu failu! nospiediet saglabāt, pārliecinieties, vai faila paplašinājums ir ".vbs". Tā būs īsziņa, kurā pārliecināsities, ka vēlaties sākt sarunu ar šo datoru. Ja noklikšķinājāt uz “Jā”, ekrāna augšējā labajā stūrī vajadzētu parādīties ievades lodziņam, lai jūs varētu ievadīt ziņojumu. Tiklīdz tiek ievadīts ziņojums un noklikšķināts uz “Labi”, gar rīkjoslu vajadzētu iznirst cmd logs un pēc tam pazust, tas bija partijas fails, kas nosūtīja ziņojumu. Ja jūsu draugam (vai ienaidniekam) ir instalēta šī pati programma datorā vai ja viņš ir labs ar NET send, tad jums vajadzētu saņemt atbildi!

4. darbība. Pēdējā lieta, pirms dodaties, NET sūta visur

Pēdējais mazais ziņojums: ŠIS NEDERĪS VISTA!

Komanda NET send tika atcelta Vista drošības apsvērumu dēļ, tāpēc pirms tam tā darbosies tikai Windows operētājsistēmās. Bet, kā daži no jums, iespējams, pamanīja, es esmu uzrakstījis šo programmu Vista! Tāpēc teorijā tas darbojas. Tomēr, lūdzu, atgriezieties, sniedzot atsauksmes par to, vai tas ir izdevies vai nē. Paldies TheKnight P. S. Ja esat pārāk slinks vārdiem, fails atrodas zemāk. Saglabājiet to savā mapē, lai tas un "~ msngr.bat" varētu pavadīt laiku vienatnē …