VBScripting көмегімен NETsend: 4 қадам

2024 Автор: John Day | [email protected]. Соңғы өзгертілген: 2024-01-30 10:28

Жақсы, бұл VBScripting -те мүлдем емес, бірақ менің ойымша, VBScripting InputBoxes және Msgboxes cmd терезесіне енгізуден гөрі пайдаланушыға ыңғайлы көрінеді. Ох және btw, «ӨТЕ ЖОЛДАН ЖОҚ …» деп жазбаңыз, себебі иә, біз бәріміз білеміз. cmd ашуға болады және «сіздің хабарламаңызды желіге жіберіңіз» деп теріңіз - бұл пайдаланушыға ыңғайлы әдіс. Жауапкершіліктен бас тарту Егер бұл бағдарламада бірдеңе дұрыс болмай қалса немесе бағдарлама кез келген түрде дұрыс пайдаланылмаса, мен мүлдем жауапты емеспін. Енді бізде бұл жоқ, әрі қарай жүрейік

1 -қадам: бастайық

Біріншіден, мен сізге сценарийді көрсетемін, ал келесі бетте әр бит нені білдіретінін түсіндіремін.dim TargetTarget = InputBox («Нысаналы компьютерге кіру:», «Тасымалдаушы көгершін v1.7 (TheKnight)») Егер WScript болса. QuitEnd IFdim beginbegin = MsgBox («Сөйлесуді» & target & «-мен бастаңыз?, 36,» Carrier Pigeon v1.7 «) If begin = vbNo Содан кейін WScript. QuitEnd Ifdim messagemessage =» 0 «Хабарға дейін жаса =» «хабарламасы = InputBox («Хабарды енгізіңіз:» & vbcr & vbcr + _ «Мән бос хабар жібермейді» & vbcr + _ «Терезені жабу үшін Болдырмау немесе Alt + F4 пернелерін басыңыз», «» & Нысана, «», 13500, 100) Fs = CreateObject («Scripting. FileSystemObject») strFileName = fs. BuildPath (Wscript. ScriptFullName & «\..», «~ msngr.bat») strFileName = fs. GetAbsolutePathName (strFileName) орнатыңыз ts = fs. OpenTextName, 2, True) 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» Хабарламаға дейін «=» «хабарламасы = InputBox (» Хабарды енгізіңіз: «& vbcr & vbcr + _» Мән бос хабар жібермейді «& vbcr + _» Терезені жабу үшін Болдырмау немесе 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» net send %Мақсат%%хабарлама%«ts. Close Бұл содан кейін пакеттік файлды іске қосады, ал» 2 «оның кішірейтілген терезеде жұмыс істейтініне көз жеткізеді, содан кейін жабылады. Бұл оны әлдеқайда кәсіби етеді. Dim shellset shell = createobject (» wscript.shell «) shell. Run» ~ msngr.bat «, 2Loop Пәрмендердің соңғы екі абзацы Looped. Бұл пайдаланушыға хабарлама терезесін ашық ұстауға және пайдаланушы» бас тарту «түймесін басып, жабуды шешкенше бірнеше хабарлама жіберуге мүмкіндік береді. бағдарлама.

3 -қадам: Менімен бірге бол

Жақсы, мен мұны қабылдауға болатынын білемін. Бірақ мен VBScripting және VBScripting -ті жетілдіруге арналған бірнеше жаңа нұсқауларды сайтқа жіберетін шығармын.

Енді файлды сақтау үшін! сақтау түймесін басыңыз, «.vbs» файл кеңейтімін жасағаныңызға көз жеткізіңіз, мен оны қабылдауға болатынын білемін, бірақ егер файл дұрыс қолданылса не болатынын түсіндіремін: Алдымен сіз мақсатты компьютерді сұрайтын хабар аласыз. Бұл компьютермен сөйлесуді бастағыңыз келетіні туралы хабарлама болады. Егер сіз «Иә» түймесін бассаңыз, онда хабарлама енгізуді сұрайтын енгізу терезесі пайда болуы керек (экранның оң жақ жоғарғы жағында, сіз не істеу керектігін жалғастыра аласыз). Хабар енгізіліп, 'OK' түймесі басылғаннан кейін, cmd терезесі құралдар тақтасы бойымен шығып, содан кейін жоғалады, бұл хабарламаны жіберетін пакеттік файл. Егер сіздің досыңызда (немесе дұшпанда) дәл осындай бағдарлама компьютерде орнатылған болса немесе NET жіберуге ыңғайлы болса, сізге жауап қайтарылуы керек!

4 -қадам: NET -ке бармас бұрын соңғы нәрсе барлық жерде жіберіледі

Соңғы бір соңғы хабарлама: бұл визада жұмыс істемейді!

NET жіберу пәрмені қауіпсіздік мақсатында Vista үшін жойылды, сондықтан оған дейін Windows операциялық жүйелерінде ғана жұмыс істейтін болады. Бірақ кейбіреулеріңіз байқаған боларсыздар, мен бұл бағдарламаны Vista -да жаздым! Сондықтан ТЕОРИЯДА ол жұмыс істейді. Дегенмен, оның сәтті немесе сәтсіз екендігі туралы кері байланыспен оралыңыз. Рахмет TheKnight P. S. Сөзге тым жалқау болсаңыз, файл төменде орналасқан, оны өз қалтасында сақтаңыз, осылайша ол мен «~ msngr.bat» арасында біраз уақыт болуы мүмкін …