VBScripting менен NETsend: 4 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:43

Макул, бул VBScripting менен такыр эле эмес, бирок менимче, VBScripting InputBoxes жана Msgboxes cmd терезесине киргизүүдөн алда канча ыңгайлуу көрүнөт. Ох жана btw, "КӨП ОҢОЙ ЖОЛ …" деп жазбаңыз, анткени ооба, биз баарыбыз сизди билебиз cmd ачып, "Net your compessername your Messagehere" деп терсеңиз болот. Бул колдонуучунун достук жолу. Жоопкерчиликтен баш тартуу Бул программада бир нерсе туура эмес болуп калса, же кандайдыр бир жол менен туура эмес колдонулса, мен толугу менен жооп бербейм. Эми биз муну четке кактык, алдыга жылалы

1 -кадам: Келгиле, баштайлы

Биринчиден, мен сизге сценарийди көрсөтөм жана кийинки бетте мен ар бир бит эмнени билдирерин түшүндүрөм.dim TargetTarget = InputBox ("Максаттуу компьютерге кирүү:", "Carrier Pigeon v1.7 (TheKnight)") Эгерде анда WScript. QuitEnd IFdim beginbegin = MsgBox ("Сүйлөшүүнү" & target & "?" Менен баштаңыз, 36, "Carrier Pigeon v1.7") If begin = vbNo then WScript. QuitEnd Ifdim messagemessage = "0" Do To Do message = "" message = InputBox ("Кабарды киргизиңиз:" & vbcr & vbcr + _ "No Value бош билдирүү жөнөтөт" & vbcr + _ "Терезени жабуу үчүн Жокко чыгаруу же Alt + F4 баскычын басыңыз", "" & Максат, "", 13500, 100) Set 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 =" & 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" Кабарга чейин жаса = "" message = InputBox ("Билдирүүнү киргизиңиз:" & vbcr & vbcr + _ "Эч кандай маани бош билдирүү жөнөтпөйт" & vbcr + _ "Терезени жабуу үчүн Жокко чыгаруу же Alt + F4 баскычтарын басыңыз. "," "& Максат," ", 13500, 100) Set fs = CreateObject (" Scripting. FileSystemObject ") strFileName = fs. BuildPath (Wscript. ScriptFullName &" \.. "," ~ msngr.bat ") strFileName = 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 %Максат%%билдирүү%"ts. Close Бул кийинчерээк файлды иштетет," 2 "кичине терезеде иштээрин текшерип, анан жабылат. Бул аны бир аз профессионалдуу кылып көрсөтөт. Dim shellset shell = createobject (" wscript.shell ") shell. Run" ~ msngr.bat ", 2Loop Командалардын акыркы эки абзацы Looped. Бул колдонуучуга билдирүү терезесин ачык калтырууга жана колдонуучу" жокко чыгарууну "басып, жабууну чечкенге чейин бир нече билдирүүлөрдү жөнөтүүгө мүмкүндүк берет. программа.

3 -кадам: Мени менен бирге болгула

Макул, мен муну кабыл алышым керек экенин билем. Бирок мен, балким, жөнөкөй VBScripting жана дагы өнүккөн VBScripting үчүн бир нече жаңы көрсөтмөлөрдү берейин деп жатам, эгер жетиштүү адамдар суранышса.

Эми файлды сактоо үчүн! "Save" баскычын басыңыз, ".vbs" файл кеңейтүүсүн жасоону тактаңыз, мен аны кабыл алууну көп билчүмүн, бирок эгер файл туура колдонулса эмне болорун түшүндүрөм: Биринчиден, сиз максаттуу компьютерди сурай турган билдирүү аласыз Кийинки Бул компьютер менен сүйлөшүүнү баштоону каалаган билдирүү болот. Эгер сиз "Ооба" баскычын чыкылдатсаңыз, анда кирүү кутусу (экраныңыздын жогорку оң жагында, эмне кылгыңыз келсе, ошону уланта аласыз) пайда болушу керек. Билдирүү киргизилип, "ОК" чыкылдатылганда, анда cmd терезеси куралдар тилкесинен чыгып, анан жок болуп кетиши керек, бул билдирүүнү жөнөтүүчү пакеттик файл болчу. Эгерде сиздин досуңуздун (же душманыңыздын) компьютеринде ушул эле программа орнотулган болсо, же NET жөнөтүү тыкан болсо, анда сизге жооп кайтарылышы керек!

4 -кадам: NETке барардан мурун акыркы нерсе, бардык жакка жөнөтүү

Акыркы бир кичинекей билдирүү: Бул VISTAда иштебейт!

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