NETsend VBScript- ով ՝ 4 քայլ

2024 Հեղինակ: John Day | [email protected]. Վերջին փոփոխված: 2024-01-30 09:52

Լավ է, VBScripting- ի հետ կապված չէ, բայց ես կարծում եմ, որ VBScripting InputBoxes- ը և Msgboxes- ը շատ ավելի բարեկամական տեսք ունեն, քան cmd պատուհանի մեջ մուտքագրելը: Օ and և btw, խնդրում եմ մի՛ գրեք «ՇԱՏ ՀԵՌԱՆԿԱՐ …», որովհետև այո, մենք բոլորս գիտենք, որ դուք կարող է բացել cmd և մուտքագրել «sendուտ ուղարկիր քո հաղորդագրությունը այստեղ» Մերժում Ես լիովին պատասխանատվություն չեմ կրում, եթե այս ծրագրում ինչ -որ բան սխալ է տեղի ունենում, կամ եթե ծրագիրը չարաշահվում է որևէ կերպ: Այժմ մենք դա պարզել ենք, եկեք շարունակենք

Քայլ 1: Եկեք սկսենք

Նախ, ես ձեզ ցույց կտամ սցենարը, իսկ հաջորդ էջում ես կբացատրեմ, թե ինչ է նշանակում յուրաքանչյուր բիթ: dim TargetTarget = InputBox («Մուտքագրեք նպատակային համակարգիչ», «Carrier Pigeon v1.7 (TheKnight)») Եթե այնուհետև WScript: QuitEnd IFdim beginbegin = MsgBox («Սկսել խոսակցությունը" & target & "?, 36," Carrier Pigeon v1.7 ") Եթե սկսել = vb Ոչ Հետո WScript. QuitEnd Ifdim messagemessage =" 0 "Do Մինչև հաղորդագրություն =" "message = InputBox ("Մուտքագրեք հաղորդագրություն." & Vbcr & vbcr + _ "Ոչ մի արժեք դատարկ հաղորդագրություն չի ուղարկում" & vbcr + _ "Սեղմեք Չեղարկել կամ Alt + F4 ՝ պատուհանը փակելու համար", "" & Թիրախ, "", 13500, 100) Սահմանել fs = CreateObject ("Scripting. FileSystemObject") strFileName = fs. BuildPath (Wscript. ScriptFullName & "\..", "~ msngr.bat") strFileName = fs. GetAbsolutePathName (strFileName) Set ts = fs. OpenT, 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)") If Then WScript. QuitEnd IF Այս երկրորդ բիթը փոխանցում է նախորդ քայլին օգտագործողի կատարած մուտքը, օրինակ, եթե օգտագործողի մուտքագրումը թիրախային համակարգիչը ՝ «The_Pentagon», այնուհետև այս հաղորդագրությունը փոխանցում է այն, որն ասում է «Սկսե՞լ զրույցը Պենտագոնի հետ»: Նույն գործարքը, ինչպես վերևում, եթե օգտագործողը սեղմում է «ոչ», ապա գործողությունը կավարտվի: dim beginbegin = MsgBox («Սկսել խոսակցությունը« & target & » - ի հետ, 36,« Փոխադրող աղավնի v1.7 ») Եթե սկսվի = 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: Կանգնիր ինձ հետ:

Լավ, ես գիտեմ, որ դա շատ բան պետք էր ընդունել: Բայց ես, հավանաբար, մի քանի նոր հրահանգներ կներկայացնեմ կայքէջին `պարզ VBScript- ի համար, և ավելի առաջադեմ VBScript- ի համար, եթե բավարար մարդիկ մեկնաբանեն դա խնդրելով:

Այսպիսով, այժմ ֆայլը պահելու համար: սեղմեք պահպանել, համոզվեք, որ ֆայլի ընդլայնումը կատարեք «.vbs»: Ես գիտեմ, որ այն շատ բան էր վերցնելու համար, բայց ես կբացատրեմ, թե ինչ կլինի, եթե ֆայլը ճիշտ օգտագործվի. Դա կլինի հաղորդագրություն ՝ համոզվելով, որ ցանկանում եք զրույց սկսել այս համակարգչի հետ: Եթե կտտացրել եք «Այո», ապա պետք է հայտնվի մուտքի տուփ (էկրանի վերևի աջ մասում, որպեսզի կարողանաք շարունակել այն, ինչ ցանկանում եք անել) ՝ խնդրելով մուտքագրել հաղորդագրությունը: Երբ հաղորդագրությունը մուտքագրվի և կտտացվի «OK», ապա ձեր գործիքագոտու երկայնքով պետք է դուրս գա cmd պատուհան, այնուհետև անհետանա, սա հաղորդագրություն ուղարկող խմբաքանակի ֆայլն էր: Եթե ձեր ընկերը (կամ թշնամին) տեղադրել է այս նույն ծրագիրը իրենց համակարգչում, կամ NET send- ով հիանալի է, ապա դուք պետք է պատասխան ստանաք:

Քայլ 4: Մի վերջին բան, նախքան գնալը NET ուղարկելը ամենուր:

Մի վերջին փոքրիկ հաղորդագրություն. Սա չի աշխատի վիզայի վրա:

NET ուղարկելու հրամանը չեղարկվել է Vista- ի համար ՝ անվտանգության նկատառումներից ելնելով, ուստի մինչ այդ աշխատելու է միայն Windows օպերացիոն համակարգերի վրա: Բայց ինչպես ձեզանից ոմանք կարող են նկատել, ես այս ծրագիրը գրել եմ Vista- ով: Հետևաբար, տեսության մեջ այն գործում է: Այնուամենայնիվ, խնդրում ենք վերադառնալ հետադարձ կապի վերաբերյալ, թե դա հաջողակ է, թե ոչ: Շնորհակալություն TheKnight P. S. Ներառեք ձեր չափազանց ծույլ բառերի համար, ֆայլը ներքևում է Պահեք այն ձեր սեփական թղթապանակում, որպեսզի այն և «~ msngr.bat» - ը կարողանան միայնակ ժամանակ ունենալ…