VB Scriptке киришүү: Жаңы баштагандарга көрсөтмө: 11 кадам

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

*** (((ALERT: Кадамдар көп болсо да. Бул чындыгында абдан оңой. Мен жөн эле үйрөнчүктөр үчүн бардыгын майда -чүйдөсүнө чейин түшүндүрөм. Эгерде сиз жөн эле коддун акыркы кадамга өтүүсүн кааласаңыз, анда сиз толугу менен таба аласыз) код бар.)))) *** Мен Xboxту көп ойнойм жана ар дайым компьютеримдеги интернетти өчүрүүгө туура келет, анткени ал өткөрүү жөндөмдүүлүгүн чыңдайт. Негизинен, мен ар дайым нерселерди жүктөп же жүктөп жатам. Көйгөй аны өчүрүүдө эмес, бирок мен аны унутуп калганда кайра жүктөө/жүктөө убактысынын баарынан бошогон жерге айландырам. Ошентип, мен үчүн программа түзүүнү чечтим. Мен аны Vb.net сайтына жазайын деп жаткам, бирок жакында эле катуу дискти кууруп жаткан катуу шамалдын кесепетинен операциялык системамды компьютериме орнотууга туура келди, бирок VB.netти кайра орното элекмин, ошондуктан мен муну түшүндүм. мага vbscript менен ойноого себеп бер. Мен да иштеп жаткандыгын билүү үчүн фондо көрсөтүү үчүн боёк менен сүрөт жасадым.

1 -кадам: Эмне кылгыңыз келгенин аныктаңыз

Мен дайыма жасай турган биринчи нерсе - бул план түзүү. Мен программанын эмне кылышын каалайм? B) Мен фондо алп дисплейди көрсөтүшүн каалайм, андыктан интернет өчүрүлгөндө эч кандай ката жок, бул жол менен мен аны кайра күйгүзүүнү унутпайм. кайра жана жоопту күтө туруңуз. D.) Мен аны кайра күйгүзүп жатканымды текшергим келет, ошондуктан унута албайм. анан фонун жабат. F) Баарынан чыгуу.

2 -кадам: Мен колдонгон нерселер, бирок чындап эле керек эмес

Сизге чынында блокнот сыяктуу текст редактору гана керек. Калганынын баары милдеттүү эмес. Мен VB сценарийин жасаганда Notepad ++ колдоном, анткени ал vb.net түстөр менен мамиле кылгандай жана тилди билет. Бул каталарды болтурбоого жардам берет. Ошондой эле ката кодун алганда кандай көйгөй бар экенин диагностикалоо үчүн саптарды номерлейт. Бул жерден блокнот ++ алынышы мүмкүн

3 -кадам: Программалоону баштаңыз

Эң биринчи кылгыңыз келген нерсе - текст файлын түзүп, аны файлдын кеңейтүүсү менен аталышын каалаган нерсеге сактоо.vbsExample: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbsExample 2: games.vbs Мен муну адатта иш столунда жасайм, анткени мен аны иштеп жатканымда миллиондогон жолу ачам. Эми файлды оң баскыч менен чыкылдатыңыз жана блокнот ++ менен түзөтүү же түзөтүүнү басыңыз.

4 -кадам: 1 -кадам: Командалык терезени ачуу

Ошентип, мен каалаганымды аткаруу үчүн компьютерде сакталган программаларды колдонууну чечтим. Азыраак коддоо жана жүктөөлөр жок… Woohoo. Easyest - бул командалык кеңеш. Ошондуктан биз буйрук сурамынын терезесин ачууну каалайбыз, ошон үчүн биз объектти кургубуз келет: set shellobj = CreateObject ("WScript. Shell") Ал эмне кылат: Shellobj мисалын w скрипт кабыгын түзүү үчүн барабар кылып коюңуз. Ошентип, биз жаңы команда керек болгондо CreateObject ("WScript. Shell") ордуна shellobj терүүбүз керек. Эми биз объектти жараткандан кийин, биз объектке командалык терезени ачууну көрсөтөбүз. shellobj.run "cmd" Ал эмне кылат: Бул баштоо менюсунда иштетүү кутусуна CMD терүүгө барабар болмок. Эгерде биз shellobject өзгөрмөсүн койбогондо, теришибиз керек болчу: CreateObject ("WScript. Shell"). Run "cmd" … азыр канчалык жеңил экенин көрүңүз. Каталар үчүн азыраак орун. Файлды чыкылдатыңыз … анан Сактоо… андан кийин рабочий столго өтүңүз жана сиз иштеген vbs файлын эки жолу чыкылдатыңыз, эгер баары ойдогудай болсо, сиз Windows көрсөтмөсүн көрсөтүшүңүз керек ……aaaaaaa !!! эгер текшербесе Сиздин коддооңуз буга чейин болушуңуз керек: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Сиз сценарийиңизге комментарийлерди кошо аласыз, ошондо саптын алдына үтүр коюу менен эмне кылганыңызды эстеп каласыз. бул: 'бул буйрук көрсөтмөсүн ачуу үчүн. Мен көп жолу кодировкалап жатканымда муну кылам, ошондо мен аны карап турганда кийин эмне кылганымды эстейм. Сценарий жөн эле бул сапты этибарга албайт жана андан ары жылат. Эгер сиз аларды көрсөңүз, сиз да ошону кыла аласыз.

5 -кадам: 2 -кадам: Таймерлерди орнотуу

Макул, азыр бизде жаңы терезе бар, биз аны буйруктар менен толтурушубуз керек, ошондуктан биз каалаганыбызды кыла алабыз. Көйгөй, кээ бир компьютерлер терезелерди ачууга башкаларга караганда көп убакытты талап кылат, андыктан биз скрипт бир аз күтөбүз баштоо үчүн бир аз. эгерде ал өтө эрте башталса, терезени ачканга чейин компьютер боштукту толтурат жана сиз жарым -жартылай буйрук аласыз же таптакыр жоксуз. Андыктан таймерди орнотушубуз керек. Бул үчүн биз теребиз: wscript.sleep 200 Эмне кылат: Бул скриптке кийинки буйрукту аткаруудан мурун X убакыт күтүүнү айтат. 1000 бир секундга барабар, ошондуктан меники секунданын бештен бирин күтүп жатат. Сиз компьютериңизге көбүрөөк же азыраак убакыт күтүүгө туура келиши мүмкүн. Эгерде сиз компьютерди көрүп жатсаңыз жана ал буйруктарды туура жазбаса, анда номерди 2000ге окшош чоң сандарга алмаштыруу 2 секунд болот жана, балким, көп убакыт. Файлды азыр сактаңыз, бул учурда сиздин кодуңуз мындай болушу керек: shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

6 -кадам: 3 -кадам: Сүрөт жасаңыз

Мен жаңы эле боёкту ачып, ага "Интернет ажыратылды" деп жаздым жана аны 800x600 кылып id.bmp катары сактап, түп каталогума сактап койдум, менин учурда k: / бирок сиздики c:

7 -кадам: 4 -кадам: Буйруктарды жөнөтүү, Сүрөттү ачуу

Жарайт, бизде буйрук терезеси бар, буйруктарды күтүп жатабыз, биз буйрутмаларды терезеге терүү болуп саналат. Биз sendkeys буйругун колдонгондо, бул терүүгө окшош, бирок ал биз каалагандай терет. Биз жаза турган нерселердин бардыгын биз жөнөтө алабыз, анын ичинде программаларды ишке ашыруу үчүн керектүү баскычтарды киргизебиз, эми ачкычтарды кантип жөнөтүүнү билебиз, биз жаңы эле жасаган сүрөтүбүздү ачып, анан башка таймердин арткы сөзүн коюп, сүрөттү жүктөөгө убакыт берет. Бул үчүн биз теребиз: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200 Эмне кылат: Бул иштетүү кутучасына k: / id.bmp терүү менен бирдей. Бул сиздин сүрөтүңүздү bmp үчүн демейки сүрөт көрүүчүдө ачышы керек … менин учурда бул терезе сүрөтү жана факс көрүүчү, бирок көпчүлүк муну рыноктук программалардан кийин орнотушат, андыктан сиздики эмнени ачаарын ким билет. аны иштетүү. Сиз калкып чыгуу үчүн буйрук сабын жана сүрөттү алышыңыз керек. ушунчалык жакшы !!! сиздин кодуңуз азырынча мындай болушу керек: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. уктоо 200

8 -кадам: 5 -кадам: Командаларды жөнөтүү, Интернетти өчүрүү

Бул учурда, эгер сиз муну кыла элек болсоңуз, аягында pdf файлын жүктөп алыңыз, эгер сиз аны бузуп койсоңуз, аны кантип оңдоонун инструкциясы жүктөлөт. Эми бул жерде көңүл ачуу башталат. Макул, ошондуктан биз IP дарегибизди бошотуу үчүн ipconfig колдонобуз. IP дареги жок болсо, биз эч кандай интернет трафигин ала албайбыз, анткени роутер аны компьютерге кайда жиберерин билбейт. Бул үчүн биз теребиз: shellobj.sendkeys "ipconfig /release {enter}" Ал эмне кылат: Бул IPCONFIG программасына IP дарегин бошотууну көрсөтөт. {enter} компьютерге сиз киргизүү баскычын басканыңызды билдирет. бул иштетүү терезесине ipconfig /release жазуу жана enter басуу сыяктуу болот. Адатта, муну кылгандан кийин, эгер сиз ipconfig иштетсеңиз, анда сиздин IP дарегиңиз 0.0.0.0 Бул биз каалаган нерсе. IP дареги жок роутер биздин бул жерде экенибизди билбейт жана эч кандай программалар мындайча айтканда "чала албайт". Эми биз ийгиликтүү IP жабууну бүтүрдүк, биз терезени жабууну каалайбыз. Эми биз башка сапты жаза алабыз: shellobj.sendkeys "exit {enter}" Бирок жогорудагы сапты оңдоп, аягына чейин кошуу оңой болмок, сизде: shellobj.sendkeys "ipconfig /release {enter} exit {enter} "Эми аны сактаңыз, бирок иштетпеңиз, анткени сиз интернет байланышыңызды өчүрөсүз. Эгер сиз аны иштетсеңиз жана интернетиңиз өчүп калса, жөн гана ipconfig /releaseден ipconfig /updateге которуштургучту алмаштырыңыз, ал кайра иштейт жана ал кайра күйгүзүлүшү керек. Эгерде башкалары кайра жүктөлбөсө жана сиз жакшы болушуңуз керек болсо, анда сиздин кодуңуз азырынча мындай болушу керек: shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} exit {enter}"

9 -кадам: 6 -кадам: Билдирүү кутусун түзүү жана жоопту күтүү

Макул, азыр биз интернеттин ийгиликтүү өчүрүлүшүнө жана буйрук терезесин жапкандан кийин, биз интернеттин кайра күйгүзүлүшүн сурайбыз деген билдирүү кутусунун ачылышын каалайбыз. ооба, бирок эгер жок деп чыкылдатсак, анын кетишин каалабайбыз, андыктан биз муну үчүн while билдирүүсүн колдонобуз. Биринчиден, биз messgebox үчүн өзгөрмөнү өлчөмдөшүбүз керек, андыктан биз ага сандык өзгөрмөлөрдү дайындай алабыз. Билем, бул түшүнүксүз угулат, бирок чынында андай эмес. Биз муну бир эле жолу линия менен кылганбыз: set shellobj = CreateObject ("WScript. Shell"), муну жөндөө оңой, биз жөн эле теребиз: Dim MyVar Эмне кылат: Эми биз MyVarW деген өзгөрмөнү өлчөмдөп алдык /жок "билдирүү кутусу экраныңызда пайда болот жана сиз ар бир баскычка маани берген баскычтарды басасыз, бул учурда" ооба "1 жана" жок "2. Биз өзгөрмөнүн" жок "менен башталышын каалайбыз биз ага демейки боюнча 2 санын дайындайбыз, ушундай жол менен ал баскыч басылганга чейин тыныгат Муну терүү үчүн биз жазабыз: myvar = 2 Ал эмне кылат: азыр MyVar 2ге барабар, бул жол менен кийинки сапта ал токтоп, киргизүүнү күтөт. Эми биз жөн гана ошол жерде отуруп, интернетти кайра күйгүзүүгө даяр болгончо күтө турууну каалайбыз. Бул үчүн биз теребиз: myvar = 2 Ал эмне кылат: Муну кылуу менен биз скриптке myvarдин маанисин айттык = 2 анда биз 2ден башка мааниге ээ болгонго чейин, билдирүү кутусуна циклди улантыңыз, бул учурда 1 гана болушу мүмкүн Кийинки, биз чындыгында кабар кутучасын ооба/жок баскычтары менен калкып чыгаргысы келет. муну биз жазабыз: MyVar = MsgBox ("Интернетке туташууну күйгүзүү", 65, "Интернетке туташууну күйгүзүү") Ал эмне кылат: Эми MyVar өзгөрмөсүнө билдирүү кутучасына басылган баскычка кандай маани ыйгарылса, ошондой ыйгарылат. цитаталардын биринчи бөлүгү - бул билдирүү кутусу чынында эмне дейт. 65 аны Ооба/Жок билдирүү кутусу катары белгилейт. жана тырмакчалардын акыркы бөлүгү messagebox.able болуп саналат, эгерде сиз ооба же жок бассаңыз, ал кандай мааниге ээ экенин текшериңиз, сиз msgbox (myVar) деп жазылган сапка кошо аласыз жана ал myvarга дайындалган маанини басып чыгарат билдирүү кутусу.эми бизде билдирүү кутучасы бар экенин билдирүү учурунда жабуу керек. Учурдагы билдирменин ачык менен жабылышынын ортосундагы нерселердин баары жок дегенди баскан сайын ишке ашат, анткени эгер сиз жокту бассаңыз, ал дагы эле 2 мааниге ээ жана биринчи бөлүккө кайтып келет. кылат: Убакыт дегенге чекит койгондон кийин, ал аргумент аткарылбай калганга чейин цикл катары иштейт. Демек, эгер жок деп баса берсеңиз, ал цикл болот, бирок ооба басканыңызда, ал циклден бошонуп, сценарийди уланта берет. Файлды сактаңыз, бирок кийинки кадамга чейин иштетүүнү күтө туруңуз. Сиздин код азырынча мындай болушу керек: shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} exit {enter} "Dim MyVarmyvar = 2 while myvar = 2MyVar = MsgBox (" Интернет байланышын күйгүзүү ", 65," Интернет туташуусун күйгүзүү ")

10 -кадам: 7 -кадам: Интернетти кайра күйгүзүү

Эми кимдир бирөө ооба дегенди чыкылдатып, ал эми бул билдирүүдөн өттү, биз интернетте урушубуз керек. Мен адатта ырастоону ачам, андыктан акыркы колдонуучу эмне болуп жатканын билет, бирок ал милдеттүү эмес. Ырастоо түрүн ачуу үчүн: msgbox ("Биз эми Интернет байланышын кайра күйгүзөбүз !!!") Ал эмне кылат: биз азыр Интернет туташуусун кайра күйгүзөбүз деген билдирүү кутучасын жөнөтөт !!! жана сизге басуу үчүн OK баскычын берет. Эми биз кылышыбыз керек болгон нерсе - интернеттин кайра күйгүзүлүшү жана бардыгын жабуу. Интернеттин кайра күйгүзүлүшү үчүн биз жөн гана таймерди орнотуп, андан кийин ipcionfigти колдонобуз. түрү: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig /update {enter}" Ал эмне кылат: мурунку өчүрүү буйругун жокко чыгарат жана IP дарегиңизди жаңыртат. IP дарегиңизди жаңырткандан кийин, азыр интернетке кайра кире аласыз. Эми биз ачык терезелерди тазалообуз керек. Дагы биз sendkeys командасын колдонсок болот, бирок мен тазалоону өткөрүү үчүн акыркы сапты кошомун. Бул учурда мен Taskkill программасын колдонуп, сүрөттү көрсөткөн программаны өлтүрөм. Бул учурда бул Windows сүрөтү жана факс көрүүчүсү жана тапшырма менеджеринин процесстер өтмөгүндө rundll32.exe катары көрсөтүлөт, ошондуктан биз өлтүрүшүбүз керек. Эгерде сиздин сүрөт irfanview же acdsee сыяктуу башка программаны колдонуу менен ачылса, ал процесстер өтмөгүнөн өтүүчү атын таап, rundll32.exe файлын өзүңүз тапкан ат менен алмаштырыңыз. Буйрук мындай болмок: taskkill /F /IM rundll32.exe кылат: taskkill - программанын аты /F которгуч аны өлтүрүүгө мажбурлайт жана /IM которгуч ага сүрөттүн атын айтат Эми биз муну акыркы сапка кошобуз, буйрукту аткаруу үчүн enterге кошобуз, анан чыгуу буйругу жана башка кирүү жана ал мындай көрүнөт: shellobj.sendkeys "ipconfig /update {enter} taskkill /F /IM rundll32.exe {enter} exit {enter}" Файлыңызды сактаңыз.

11 -кадам: даяр продукт

Эгерде баары ойдогудай болсо, даяр продуктуңуз мындай көрүнүшү керек: shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200shellobj.sendkeys "ipconfig /release {enter} exit {enter}" Dim MyVarmyvar = 2 while myvar = 2MyVar = MsgBox ("Интернет байланышын күйгүзүү", 65, "Интернет туташуусун күйгүзүү") wendmsgbox ("Эми биз Интернетти күйгүзөбүз") Байланыш кайра !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig /update {enter} taskkill /F /IM rundll32.exe {enter} exit {enter} "_end of script_Now Сиз программаны иштете аласыз. Эмне болушу керек: 1.) Сиз CMD терезесин абдан кыска убакытка калкып чыгыңыз, андан кийин жабыңыз2.) Сиздин интернет мындан ары иштебеши керек. бирок сиз муну көрбөйсүз. 3.) Сиздин сүрөтүңүз ачылышы керек. 4.) Сиз интернеттин кайра күйгүзүлүшүн каалайсызбы деген суроого калкып чыгыңыз. Сиз кайра интернетти кайра күйгүзүүнү каалайсызбы деп кайра сурап көрөсүз. 6.) Ооба баскандан кийин билдирүү кутусу жоголушу керек жана CMD терезеси кайра көрсөтүлүшү керек7.) IP дареги CMD терезеси менен сүрөттү жаңырткандан кийин жабылышы керек. Ал жерде сизде бар. Интернетти күйгүзүү жана өчүрүү үчүн абдан жеңил VBscript. Бул сизге жагат деп үмүттөнөм. Мен чындыгында DevCon деп аталган программанын жардамы менен тармак адаптерлерин өчүргөн дээрлик бирдей болгон башка скрипт түздүм, ал буйрук сабынын түзмөк менеджерине окшош. Чынында жакшы иштейт. Сценарий буга окшош, бирок анда DevCon үчүн буйруктары бар ipconfig комманддары бар.