VBScripting bilan NETsend: 4 qadam

2024 Muallif: John Day | [email protected]. Oxirgi o'zgartirilgan: 2024-01-30 13:29

OK, bu VBScripting bilan umuman bog'liq emas, lekin menimcha, VBScripting InputBoxes va Msgboxes cmd oynasiga kirishdan ko'ra ancha qulayroq ko'rinadi. Oh va btw, iltimos "KO'PROQ YO'LLI YO'L …" deb yozmang, chunki biz hammamiz sizni bilamiz cmd -ni ochib, "Hisob -xabaringizni bu erga yuboring" deb yozishingiz mumkin, bu foydalanuvchilar uchun qulayroq usul. Ogohlantirishlar, agar bu dasturda biror narsa noto'g'ri ketsa yoki biron -bir tarzda noto'g'ri ishlatilsa, men javobgar emasman. Endi biz buni aniqladik, davom etamiz

1 -qadam: Boshlaylik

Birinchidan, men sizga skriptni ko'rsataman va keyingi sahifada men har bir bit nimani anglatishini tushuntiraman.dim TargetTarget = InputBox ("Maqsadli kompyuterga kiring:", "Carrier Pigeon v1.7 (TheKnight)") Agar WScript bo'lsa. QuitEnd IFdim beginbegin = MsgBox ("Suhbatni" & target & "bilan boshlang?", 36, "Carrier kabutari v1.7")) begin = vbNo Keyin WScript. QuitEnd Ifdim messagemessage = "0" Xabargacha bo'lsin = "" xabar = InputBox ("Xabarni kiriting:" & vbcr & vbcr + _ "Hech qanday qiymat bo'sh xabar yubormaydi" & vbcr + _ "Oynani yopish uchun Bekor qilish yoki Alt + F4 tugmalarini bosing", "" & Maqsad, "", 13500, 100) Fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) ni o'rnating ts = fs. OpenTextFame, 2, To'g'ri) 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 -qadam: Keling, tushuntiraylik …

Oldingi sahifadagi kod quyida ba'zi izohlar bilan ko'rsatilgan, agar uni nusxalash va so'zga joylashtirish bo'lsa, iltimos, uni oldingi sahifada bajaring. OK, bu birinchi bit suhbatni boshlamoqchi bo'lgan kompyuter nomini so'raydigan oynani ochadi. "Agar maqsad" bo'limi, agar foydalanuvchi "bekor qilish" tugmasini bossa yoki kirish maydonini bo'sh qoldirsa, kompyuterni dasturni tugatishi haqida aytadi. dim TargetTarget = InputBox ("Maqsadli kompyuterga kiring:", "Carrier Pigeon v1.7 (TheKnight)")) Agar bo'lsa WScript. QuitEnd IF Agar bu ikkinchi bit foydalanuvchi oldingi qadamda kiritgan ma'lumotni o'z ichiga oladi, masalan, foydalanuvchi kiritgan bo'lsa maqsadli kompyuter: "The_Pentagon", keyin bu xabar "The_Pentagon bilan suhbatni boshlasinmi?" Degan xabarni o'z ichiga oladi. Yuqoridagi kabi bir xil shartnoma, agar foydalanuvchi "Yo'q" tugmasini bossa, operatsiya to'xtatiladi. dim beginbegin = MsgBox ("Suhbatni" & target & "?", 36, "Carrier Pigeon v1.7" bilan boshlang)) begin = vbNo Keyin WScript. QuitEnd Agar bu keyingi bit meni yozishim uchun uzoq vaqt kerak bo'lgan qism. U asosan ommaviy ish faylini yaratadi va uni "~ msngr.bat" deb ataydi. Keyin unga NET yuborishni boshlash uchun to'g'ri buyruqlar yoziladi. dim messagemessage = "0" Xabargacha "=" "xabar = InputBox (" Xabarni kiriting: "& vbcr & vbcr + _" Hech qanday qiymat bo'sh xabar yubormaydi "& vbcr + _" Oynani yopish uchun Bekor qilish yoki Alt + F4 tugmalarini bosing). "," "& Target," ", 13500, 100) fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = ni belgilang. 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. %Maqsad%%xabar%"ts. Close Bu keyin" 2 "kichik oynada ishlashiga ishonch hosil qilib, yopiq faylni ishga tushiradi. Bu esa uni yanada professional ko'rinishga olib keladi. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Buyruqlarning oxirgi ikkita paragrafi Looped. Bu foydalanuvchiga xabar oynasini ochiq ushlab turish va foydalanuvchi bekor qilish tugmachasini bosmaguncha va yopishga qaror qilmaguncha bir nechta xabar yuborish imkonini beradi. dastur.

3 -qadam: Men bilan birga bo'ling

Yaxshi, men bilaman, bu juda ko'p narsa edi. Lekin, ehtimol, VBScripting va VBScripting -ni yanada ilg'or qilish uchun bir nechta yangi ko'rsatmalarni saytga yuboraman.

Endi faylni saqlash uchun! saqlash tugmachasini bosing, ".vbs" fayl kengaytmasini yaratganingizga ishonch hosil qiling, men buni juda ko'p qabul qilganimni bilaman, lekin agar fayl to'g'ri ishlatilsa nima bo'lishini tushuntiraman: Birinchidan siz maqsadli kompyuterni so'rashni olasiz. Bu kompyuter bilan suhbatni boshlamoqchi bo'lganingizga ishonch hosil qiladigan xabar bo'ladi. Agar siz "Ha" tugmasini bosgan bo'lsangiz, xabarni kiritishingizni so'raydigan kirish qutisi paydo bo'lishi kerak (ekranning o'ng yuqori qismida, siz xohlagan narsani davom ettirishingiz mumkin). Xabar kiritilgandan va "OK" tugmachasi bosilgandan so'ng, asboblar paneli bo'ylab cmd oynasi chiqib, keyin yo'qoladi, bu xabarni yuboradigan ommaviy fayl. Agar sizning do'stingiz (yoki dushmaningiz) xuddi shu dasturni o'z kompyuterida o'rnatgan bo'lsa yoki NET yuborish bilan yaxshi bo'lsa, sizga javob qaytarilishi kerak!

4 -qadam: NET -ga kirishdan oldin oxirgi narsa hamma joyga yuboriladi

Oxirgi kichik xabar: BU VISTADA ISHLAMAYDI!

NET yuborish buyrug'i xavfsizlik nuqtai nazaridan Vista uchun bekor qilingan, shuning uchun bundan oldin faqat Windows operatsion tizimlarida ishlaydi. Lekin ba'zilaringiz payqaganingizdek, men bu dasturni Vista -da yozganman! Shuning uchun nazariyada u ishlaydi. Biroq, bu muvaffaqiyatli yoki yo'qligi haqida fikr -mulohazalar bilan qayting. Rahmat TheKnight P. S. Siz juda dangasa so'zlarsiz, fayl quyida joylashganki, uni o'z papkasida saqlang, shunda u va "~ msngr.bat" yolg'iz vaqt o'tkazishi mumkin …