VBScripting ашиглан NETsend: 4 алхам

2024 Зохиолч: John Day | [email protected]. Хамгийн сүүлд өөрчлөгдсөн: 2024-01-30 11:06

За, энэ нь VBScripting -т огт хамаарахгүй, гэхдээ VBScripting InputBoxes болон Msgboxes нь cmd цонх оруулахаас илүү хэрэглэгчид илүү ээлтэй харагдаж байна гэж би бодож байна. Өө, btw, "ХАМГИЙН ХАМГИЙН АРГА …" гэж битгий бичээрэй. cmd -ийг нээгээд "Net send computername yourmessagehere" гэж бичээрэй. Энэ бол хэрэглэгчдэд илүү ээлтэй арга юм. Анхааруулга Энэ хөтөлбөрт ямар нэгэн зүйл буруу болсон эсвэл програмыг ямар нэгэн байдлаар буруугаар ашигласан тохиолдолд би хариуцлага хүлээхгүй. Одоо бид үүнийг шийдсэн, цаашаа явцгаая

Алхам 1: Эхлээд үзье

Нэгдүгээрт, би танд скриптийг үзүүлэх болно, дараагийн хуудсан дээр би бит тус бүр нь юу гэсэн үг болохыг тайлбарлах болно. QuitEnd IFdim beginbegin = MsgBox ("" & target & "-тэй яриа эхлүүлээрэй?", 36, "Carrier Pigeon v1.7") If begin = vbNo Дараа нь WScript. QuitEnd Ifdim messagemessage = "0" Do To message = "" message = InputBox ("Зурвас оруулна уу:" & vbcr & vbcr + _ "No утга нь хоосон мессеж илгээдэг" & vbcr + _ "Цонхыг хаахын тулд Cancel эсвэл Alt + F4 дарна уу", "" & Target, "", 13500, 100) Fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) ts = fs. OpenText -ийг тохируулна уу., 2, Үнэн) 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: Тиймээс тайлбарлая …

Өмнөх хуудсан дээрх кодыг зарим тайлбартай доор харуулав, хэрэв та үүнийг хуулж, үгээр буулгах юм бол өмнөх хуудсан дээр бичнэ үү. За, энэ эхний бит нь яриа эхлүүлэхийг хүсч буй компьютерийн нэрийг асуух хайрцгийг нээнэ. "Хэрэв зорилтот" хэсэг нь хэрэглэгч цуцлах эсвэл оролтын талбарыг хоосон орхивол програмыг дуусгахыг компьютерт хэлнэ. dim TargetTarget = InputBox ("Зорилтот компьютерт нэвтрэх:", "Carrier Pigeon v1.7 (TheKnight)") Хэрэв Дараа нь WScript. QuitEnd IF Хэрэв энэ хоёр дахь бит нь хэрэглэгчийн өмнөх алхамд оруулсан оролтыг дамжуулдаг, жишээ нь хэрэглэгч оролт оруулсан бол "The_Pentagon" гэсэн зорилтот компьютер: дараа нь "The_Pentagon -тай яриа эхлүүлэх үү?" Гэж бичдэг. Дээрхтэй ижил гэрээ, хэрэв хэрэглэгч "үгүй" гэж дарвал үйл ажиллагаа дуусна. dim beginbegin = MsgBox ("" & target & "?", 36, "Carrier Pigeon v1.7" -тэй яриагаа эхлүүлээрэй) If begin = vbNo Дараа нь WScript. QuitEnd бол Дараагийн хэсэг нь намайг бичихэд УРТАЙ зарцуулсан хэсэг юм. Энэ нь үндсэндээ багц файл үүсгэдэг бөгөөд үүнийг "~ msngr.bat" гэж нэрлэдэг. Дараа нь NET илгээхийг эхлүүлэхийн тулд түүнд зөв тушаалуудыг бичдэг. dim messagemessage = "0" Do To Message = "" message = InputBox ("Зурвас оруулна уу:" & vbcr & vbcr + _ "Ямар ч утга хоосон мессеж илгээдэггүй" & vbcr + _ "Цонхыг хаахын тулд Cancel эсвэл Alt + F4 дарна уу. "," "& Target," ", 13500, 100) fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = тохируулна уу. fs. GetAbsolutePathName (strFileName) ts = fs. OpenTextFile (strFileName, 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & message ts. WriteLine "set & Target ts. WriteLine" -г тохируулна уу. %Зорилтот%%мессеж%"ts. Close Энэ нь дараа нь багцын файлыг ажиллуулдаг бөгөөд" 2 "нь жижигрүүлсэн цонхонд ажиллаж, дараа нь хаагдах болно. Энэ нь арай илүү мэргэжлийн харагдаж байна. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Командын сүүлийн хоёр догол мөр Looped байна. Энэ нь хэрэглэгч зурвасын цонхыг нээлттэй байлгаж, хэрэглэгч цуцлах товчийг дарж хаах хүртэл олон мессеж илгээх боломжийг олгодог. хөтөлбөр.

Алхам 3: Надтай хамт байгаарай

За, энэ бол маш их зүйлийг хийх ёстой зүйл гэдгийг би мэдэж байна. Гэхдээ би хангалттай олон хүмүүс VBScripting хийх, мөн илүү дэвшилтэт VBScripting хийх талаар хэдэн шинэ зааварчилгаа оруулах гэж байгаа байх.

Тиймээс одоо файлыг хадгалах болно! хадгалах товчлуурыг дарж, ".vbs" файлын өргөтгөл хийхээ мартуузай. Үүнийг авах нь маш их байсан гэдгийг би мэднэ, гэхдээ хэрэв файлыг зөв ашиглавал юу болохыг тайлбарлах болно: Нэгдүгээрт, танд зорилтот компьютерийг асуух сануулга ирэх болно. Та энэ компьютертэй яриа эхлүүлэхийг хүсч байгаа эсэхийг баталгаажуулах мессеж байх болно. Хэрэв та 'Тийм' дээр дарсан бол мессеж оруулахыг хүссэн оролтын хайрцаг гарч ирэх ёстой (таны дэлгэцийн баруун дээд хэсэгт, та хүссэн зүйлээ үргэлжлүүлж болно). Зурвас оруулаад 'OK' товчлуур дарагдсаны дараа cmd цонх таны хэрэгслийн самбар дээр гарч ирэн алга болох бөгөөд энэ нь мессеж илгээж буй багц файл юм. Хэрэв таны найз (эсвэл дайсан) ижил програмыг компьютер дээрээ суулгасан эсвэл NET илгээхэд тохиромжгүй байвал хариуг нь буцааж авах ёстой!

Алхам 4: NET явахаасаа өмнө хийх ёстой хамгийн сүүлийн зүйл бол хаа сайгүй илгээдэг

Сүүлчийн бяцхан зурвас: ЭНЭ ВИСТА дээр ажиллахгүй!

Vista -ийн аюулгүй байдлын үүднээс NET илгээх тушаалыг хүчингүй болгосон тул үүнээс өмнө зөвхөн Windows үйлдлийн систем дээр ажиллах болно. Гэхдээ та нарын зарим нь анзаарсан байх, би энэ програмыг Vista дээр бичсэн! Тиймээс ОНОЛД энэ нь ажилладаг. Гэсэн хэдий ч амжилттай болсон эсэх талаар санал хүсэлтээ хэлээрэй. Баярлалаа TheKnight P. S. Хэтэрхий залхуутай байгаа бол файл доор байгаа бөгөөд үүнийг өөрийн фолдерт хадгалаарай, ингэснээр "~ msngr.bat" нь ганцаараа байх болно …