NETsend su VBScripting: 4 žingsniai

2024 Autorius: John Day | [email protected]. Paskutinį kartą keistas: 2024-01-30 10:50

Gerai, kad tai nėra visiškai su „VBScripting“, bet manau, kad „VBScripting InputBoxes“ir „Msgboxes“atrodo daug patogesni vartotojui nei įvedimas į cmd langą. O ir btw, prašome nerašyti „DAUG LENGVESNIO BŪDO …“, nes taip, mes visi žinome, kad jūs gali atidaryti cmd ir įvesti „Net send computputername yourmessagehere“. Tai tik patogesnis būdas tai padaryti. Atsakomybės atsisakymas Aš visiškai nesu atsakingas, jei su šia programa kažkas negerai, arba jei programa buvo naudojama bet kokiu būdu. Dabar mums tai pavyko, eikime toliau

1 žingsnis: pradėkime

Pirmiausia parodysiu scenarijų, o kitame puslapyje paaiškinsiu, ką reiškia kiekvienas bitas. Dim TargetTarget = InputBox ("Įveskite tikslinį kompiuterį:", "Carrier Pigeon v1.7 (TheKnight)") Jei tada WScript. QuitEnd IFdim beginbegin = MsgBox ("Pradėti pokalbį su" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Tada WScript. QuitEnd Ifdim messagemessage = "0" Do Iki message = "" message = „InputBox“(„Įveskite pranešimą:“& vbcr & vbcr + _ „Nėra reikšmės siunčia tuščią pranešimą“& vbcr + _ “Paspauskite Atšaukti arba Alt + F4, kad uždarytumėte langą", "" & Tikslas, "", 13500, 100) Nustatyti fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\" "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Nustatyti ts = fileFilmas (, 2, Tiesa) 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

2 žingsnis: Taigi paaiškinkime…

Ankstesniame puslapyje esantis kodas yra parodytas žemiau su tam tikrais komentarais. Jei kopijuojate ir įklijuojate jį į žodį, atlikite tai ankstesniame puslapyje. Gerai, šis pirmasis bitas atveria langelį, kuriame prašoma nurodyti kompiuterio, su kuriuo norite pradėti pokalbį, pavadinimą. „If Target“dalis nurodo kompiuteriui nutraukti programą, jei vartotojas paspaudžia „atšaukti“arba įvesties lauką palieka tuščią. dim TargetTarget = InputBox ("Įveskite tikslinį kompiuterį:", "Carrier Pigeon v1.7 (TheKnight)") Jei Tada WScript. QuitEnd IF Šis antrasis bitas perduoda įvestį, kurią vartotojas atliko ankstesniame veiksme, pavyzdžiui, jei vartotojas įvedė tikslinį kompiuterį kaip „The_Pentagon“, tada šis pranešimas perduoda pranešimą, kuriame sakoma: „Pradėti pokalbį su The_Pentagon?“. Tas pats, kaip ir aukščiau, jei vartotojas paspaus „ne“, operacija bus nutraukta. dim beginbegin = MsgBox ("Pradėti pokalbį su" & target & "?", 36, "Carrier Pigeon v1.7") If begin = vbNo Tada WScript. QuitEnd If Šis kitas bitas yra ta dalis, kurią man užtruko ilgai rašyti. Iš esmės jis sukuria paketinį failą ir vadina jį „~ msngr.bat“. Tada jis įrašo teisingas komandas, kad galėtų inicijuoti NET siuntimą. dim messagemessage = "0" Do Iki message = "" message = InputBox ("Įveskite pranešimą:" & vbcr & vbcr + _ "No Value siunčia tuščią pranešimą" & vbcr + _ "Norėdami uždaryti langą, paspauskite Atšaukti arba Alt + F4 "," "& Tikslas," ", 13500, 100) Nustatykite fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = fs. GetAbsolutePathName (strFileName) Nustatykite 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 Tada paleidžiamas paketinis failas, o„ 2 “užtikrina, kad jis būtų rodomas sumažintame lange ir uždarytas. Dėl to jis atrodo šiek tiek profesionaliau. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Paskutinės dvi komandų pastraipos yra cikliškos. Tai leidžia vartotojui išlaikyti atidarytą pranešimų langą ir siųsti kelis pranešimus, kol vartotojas paspaus atšaukti ir nuspręs uždaryti programa.

3 žingsnis: Būkite su manimi

Gerai, aš žinau, kad tai buvo daug. Bet aš tikriausiai ketinu pateikti svetainei keletą naujų nurodymų, skirtų paprastam VBScripting ir pažangesniam VBScripting, jei to pakomentuoja pakankamai žmonių.

Taigi dabar išsaugokite failą! paspauskite įrašyti, įsitikinkite, kad failo plėtinys yra „.vbs“. Žinau, kad tai buvo daug, bet aš paaiškinsiu, kas atsitiks, jei failas bus naudojamas teisingai: pirmiausia gausite raginimą paprašyti tikslinio kompiuterio. Tai bus pranešimas, kuriuo įsitikinsite, kad norite pradėti pokalbį su šiuo kompiuteriu. Jei spustelėjote „Taip“, ekrano viršuje, dešinėje, kad galėtumėte tęsti tai, ką norite daryti, turėtų atsirasti įvesties laukelis, kuriame prašoma įvesti pranešimą. Įvedus pranešimą ir spustelėjus „Gerai“, jūsų įrankių juostoje turėtų pasirodyti cmd langas ir tada išnykti, tai buvo paketinis failas, siunčiantis pranešimą. Jei jūsų draugas (ar priešas) turi tą pačią programą savo kompiuteryje arba yra puikus su NET send, tuomet turėtumėte gauti atsakymą!

4 žingsnis: paskutinis dalykas prieš išvykstant NET siunčia visur

Paskutinė maža žinutė: tai neveiks „VISTA“!

„NET send“komanda „Vista“buvo panaikinta dėl saugumo priežasčių, todėl prieš tai veiks tik „Windows“operacinėse sistemose. Bet kaip kai kurie iš jūsų pastebėjo, aš parašiau šią programą „Vista“! Todėl teorijoje tai veikia. Tačiau grįžkite su atsiliepimais, ar tai pavyko, ar ne. Ačiū TheKnight P. S. Jei esate pernelyg tingus žodžiams, failas yra žemiau Išsaugokite jį savo aplanke, kad jis ir „~ msngr.bat“galėtų praleisti laiką vieni …