VBScripting ilə NETsend: 4 addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:49

Tamam, bu tamamilə VBScripting ilə əlaqəli deyil, amma düşünürəm ki, VBScripting InputBoxes və Msgboxes bir cmd pəncərəsinə daxil olmaqdan daha çox istifadəçi dostu görünür. Oh və btw, "ÇOX ASAN YOLU …" yazmayın. cmd aça və "Mesajınızı buraya Net göndərmə hesab adı" yaza bilərsiniz. Bu, daha istifadəçi dostu bir yoldur. İmtina Bu proqramla bir şey səhv olarsa və ya hər hansı bir şəkildə proqramdan sui -istifadə olunarsa, heç bir məsuliyyət daşımıram. İndi yolumuz var, davam edək

Addım 1: Başlayaq

Birincisi, sizə skript göstərəcəm və növbəti səhifədə hər bitin nə demək olduğunu izah edəcəyəm. TargetTarget = InputBox ("Hədəf Kompüterinə daxil olun:", "Carrier Pigeon v1.7 (TheKnight)") O halda WScript. QuitEnd IFdim beginbegin = MsgBox ("Söhbətə" & target & "ilə başla?", 36, "Taşıyıcı Göyərçin v1.7") Başla = vbNo Sonra WScript. QuitEnd Ifdim messagemessage = "0" Mesaja qədər et = "" mesaj = InputBox ("Mesaj daxil edin:" & vbcr & vbcr + _ "Heç bir dəyər boş bir mesaj göndərmir" & vbcr + _ "Pəncərəni bağlamaq üçün İptal və ya Alt + F4 düymələrinə basın", "" & Hədəf, "", 13500, 100) Fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Set ts = fs. OpenText, 2, True) ts. WriteLine "@echo off" ts. WriteLine "set message =" & ts. WriteLine message "set & Target ts. WriteLine" net send %Target % %message %"ts. Closedim shellset shell = createobject ("wscript.shell") shell. Run "~ msngr.bat", 2Loop

Addım 2: Gəlin izah edək …

Əvvəlki səhifədəki kod aşağıda bəzi şərhlərlə göstərilmişdir, əgər kopyalayıb sözə yapışdırırsınızsa, bunu əvvəlki səhifədə edin. Tamam, bu ilk bit, söhbətə başlamaq istədiyiniz kompüterin adını soruşan qutunu açır. "Hədəf" bölməsi, istifadəçinin "ləğv etmə" düyməsini basması və ya giriş sahəsini boş buraxması halında kompüterə proqramı dayandırmasını bildirir. dim TargetTarget = InputBox ("Hədəf Kompüterinə daxil olun:", "Carrier Pigeon v1.7 (TheKnight)") Əgər Əgər WScript. QuitEnd IF Bu ikinci bit istifadəçinin əvvəlki addımda etdiyi girişi ötürür, məsələn istifadəçi hədəf kompüter kimi: 'The_Pentagon' sonra bu mesaj "The_Pentagon ilə söhbətə başlasın?" yazan birini ötürür. İstifadəçi "yox" düyməsini basarsa, əməliyyat sona çatacaq. dim beginbegin = MsgBox ("Söhbətə" & hədəf & "?", 36, "Taşıyıcı Göyərçin v1.7" ilə başla)) begin = vbNo Sonra WScript. QuitEnd Əgər Bu sonrakı bit məni uzun müddət yazmağa məcbur edən hissədir. Əsasən bir toplu iş faylı yaradır və onu "~ msngr.bat" adlandırır. Daha sonra NET göndərilməsini başlatması üçün ona düzgün əmrləri yazır. dim messagemessage = "0" Mesajı qədər = = "" mesaj = InputBox ("Mesaj daxil edin:" & vbcr & vbcr + _ "Heç bir dəyər boş bir mesaj göndərmir" & vbcr + _ "Pəncərəni bağlamaq üçün İptal və ya Alt + F4 düymələrinə basın. "," "& Hədəf," ", 13500, 100) fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = seçin 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 %Hədəf%%mesaj%"ts. Close Bu, daha sonra" 2 "nin kiçildilmiş bir pəncərədə işlədiyini və sonra bağlanmasını təmin edərək toplu iş faylını işə salır. Bu, bir az daha peşəkar görünməsini təmin edir. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Komandaların son iki abzası Looped olunur. Bu istifadəçiyə mesaj pəncərəsini açıq saxlamağa və istifadəçi ləğv edənə qədər bağlamaq qərarına gələnə qədər birdən çox mesaj göndərməyə imkan verir. proqram.

Addım 3: Mənimlə Ayıq Ol

Tamam, bunu qəbul etmək üçün çox şey olduğunu bilirəm. Amma yəqin ki, kifayət qədər insan şərh istəsə sadə VBScripting və daha inkişaf etmiş VBScripting üçün bir neçə yeni təlimat təqdim edəcəm.

İndi faylı saxlamaq üçün! qənaət düyməsini basın, ".vbs" fayl uzantısını yaratdığınızdan əmin olun, qəbul etməyimin çox olduğunu bildim, ancaq fayl düzgün istifadə olunarsa nə olacağını izah edəcəyəm: Əvvəlcə hədəf kompüter üçün bir sorğu alacaqsınız Sonrakı Bu kompüterlə söhbətə başlamaq istədiyinizə əmin olan bir mesaj olacaq. 'Bəli' düyməsini tıklamısınızsa, mesajı daxil etməyinizi xahiş edən bir giriş qutusu görünməlidir (ekranınızın sağ üst hissəsində etmək istədiyinizə davam edə bilərsiniz). Mesaj daxil edildikdən və 'Tamam' tıklandıqdan sonra, alət çubuğu boyunca bir cmd pəncərəsi çıxmalı və sonra yox olmalıdır, bu mesajı göndərən toplu fayl idi. Əgər dostunuzun (və ya düşməninizin) kompüterində eyni proqram quraşdırılıbsa və ya NET göndərməklə yaraşıqlıdırsa, cavabını geri almalısınız!

Addım 4: NET -ə getməzdən əvvəl son bir şey hər yerə göndərilir

Son bir kiçik mesaj: BU VISTA İŞLƏMƏYƏCƏK!

NET göndərmə əmri Vista üçün təhlükəsizlik səbəbiylə ləğv edildi, buna görə yalnız bundan əvvəl Windows əməliyyat sistemlərində işləyəcək. Ancaq bəzilərinizin fərqinə vara biləcəyiniz kimi, bu proqramı Vista'da yazdım! Buna görə də NƏZƏRİDƏ işləyir. Ancaq müvəffəqiyyətli olub olmadığına dair rəy bildirin. Təşəkkürlər TheKnight P. S. Sözləriniz üçün çox tənbəl olduğunuz halda, fayl aşağıda yerləşir və öz qovluğunda saxlayın ki, "~ msngr.bat" ilə tək vaxt keçirə biləsiniz …