VB сценарийіне кіріспе: жаңадан бастаушыларға арналған нұсқаулық: 11 қадам

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

*** (((ALERT: қадамдар көп болса да, бұл өте оңай. Мен жаңадан бастаушыларға бәрін егжей -тегжейлі түсіндіремін. Егер сіз кодты соңғы қадамға ауыстырғыңыз келсе, сіз толық нұсқаны таба аласыз) онда код бар.)))) *** Мен Xbox -ті көп ойнаймын және әрқашан компьютерде интернетті өшіруге тура келеді, себебі ол өткізу қабілеттілігін төмендетеді. Негізінен мен үнемі жүктеп немесе жүктеп отырамын. Мәселе оны өшірмейді, бірақ мен оны ұмытып кетемін, оны жүктеу/жүктеу уақытын жоғалтып аламын, сондықтан мен оны жасау үшін бағдарлама құруды шештім. Мен оны Vb.net сайтында жазатын болдым, бірақ мен жақында қатты дискіні қуырған қатты дауылдың салдарынан операциялық жүйені компьютерге енгізуге мәжбүр болдым. маған vbscript -пен ойнауға себеп беріңіз. Мен сондай -ақ фонда көрсету үшін бояумен сурет жасадым, сондықтан мен оның жұмыс істеп тұрғанын білдім.

1 -қадам: Не істегіңіз келетінін анықтаңыз

Мен әрқашан бірінші кезекте жоспар құрамын. Бағдарлама не істегенін қалаймын? B) Мен оның үлкен дисплейді фонда көрсеткенін қалаймын, сондықтан интернет өшірілгенде қате жоқ, осылайша мен оны қайта қосуды ұмытпаймын. C) Мен оны қосуға таңдау бергім келеді қайта қосыңыз, содан кейін жауапты күтіңіз. D) Мен оны қайта қосатыныма көз жеткізгім келеді, сондықтан мен оны ұмытпаймын. содан кейін фонды жабады. F) Бәрінен бас тарту.

2 -қадам: Мен қолданатын, бірақ қажет емес заттар

Сізге тек блокнот сияқты мәтіндік редактор қажет. Мен VB сценарийін жасаған кезде Notepad ++ қолданамын, себебі ол оны vb.net түстермен өңдейді және тілді біледі. Бұл қателіктерден аулақ болуға көмектеседі. Ол сондай -ақ жолдарды нөмірлейді, сондықтан сіз қате кодын алған кезде қандай мәселе бар екенін анықтай аласыз. Бұл жерден блокнот ++ алуға болады.

3 -қадам: Бағдарламалауды бастаңыз

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

4 -қадам: 1 -қадам: Пәрмен шақыру терезесін ашу

Мен өзім қалаған нәрсені орындау үшін компьютерде сақталған бағдарламаларды қолданатын жұмыстың көп бөлігін жасауға шешім қабылдадым. Аз кодтау және жүктеу жоқ… Woohoo. Easyest - бұл пәрмен жолы, сондықтан біз пәрмен шақыру терезесін ашқымыз келеді, сондықтан біз объектіні құрғымыз келеді, осылайша тереміз: set shellobj = CreateObject («WScript. Shell») Ол не істейді: Shellobj данасын w сценарий қабығы объектісін жасауға тең етіп орнатыңыз. Бізге жаңа команда қажет болған сайын CreateObject («WScript. Shell») орнына shellobj теру керек, енді біз объект құрдық, біз объектке командалық терезені ашуды нұсқаймыз. shellobj.run «cmd» Ол не істейді: Бұл бастапқы мәзірдегі іске қосу жолағына CMD терудің баламасы болар еді. Егер біз shellobject айнымалысын орнатпаған болсақ, онда теруіміз керек еді: CreateObject («WScript. Shell»). «Cmd» іске қосыңыз … қазір қаншалықты оңай екенін көріңіз. Қателіктерге орын аз. Файлды басыңыз … содан кейін Сақтау … содан кейін жұмыс үстеліне өтіп, іске қосылған vbs файлын екі рет нұқыңыз, егер бәрі дұрыс болса, сізде Windows пәрмен жолын көрсету керек …..яаааааа !!! егер тексерілмесе Сіздің кодтауда әзірше мыналар болуы керек: set shellobj = CreateObject («WScript. Shell») shellobj.run «cmd» Сіз сценарийге түсініктемелерді қоса аласыз, осылайша жолдың алдына үтір қою арқылы не істегеніңізді еске түсіресіз. бұл: 'бұл пәрмен жолын ашу. Мен көп рет кодтаған кезде мен мұны істеймін, сондықтан мен оны қараған кезде не істегенімді есімде сақтаймын. Сценарий бұл жолды елемейді және әрі қарай жүреді. Егер сіз оларды көрсеңіз, сіз де солай жасай аласыз.

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

Жақсы, енді бізде жаңа терезе болғандықтан, біз оны командалармен толтыруымыз керек, сонда біз қалаған нәрсені жасай аламыз. Мәселе мынада, кейбір компьютерлер терезелерді ашуға басқаларға қарағанда көп уақыт алады, сондықтан біз сценарийді сәл күтуді қалаймыз. бастау үшін біраз. егер ол тым тез басталса, терезені ашпас бұрын, компьютер бос орынды толтырады және сіз ішінара пәрменді аласыз немесе мүлде алмайсыз, сондықтан бізге таймерді орнату қажет. Ол үшін біз мынаны тереміз: wscript.sleep 200Ол не істейді: ол келесі пәрменді орындамас бұрын сценарийге X уақыт күтуді айтады. 1000 секундқа тең, сондықтан мен секундтың бестен бір бөлігін күтемін. Сіз компьютерді көп немесе аз күтуіңіз керек деп ойлайсыз. Егер сіз компьютерді қарап отырсаңыз және ол командаларды дұрыс термесе, нөмірді 2000 сияқты жоғары санға ауыстыру 2 секунд болар еді және, мүмкін, көп уақыт. Файлды қазір сақтаңыз, бұл кезде сіздің кодыңыз: set shellobj = CreateObject («WScript. Shell») shellobj.run «cmd» wscript.sleep 200

6 -қадам: 3 -қадам: Сурет жасаңыз

Мен жаңа ғана бояуды ашып, оған «Интернет ажыратылды» деп жаздым және оны 800x600 етіп жасадым және id.bmp ретінде сақтап, оны түпкі каталогымда сақтадым, менің жағдайда k: / бірақ сіздікі с:

7 -қадам: 4 -қадам: Командаларды жіберу, суретті ашу

Жарайды, енді бізде командалар күтілетін командалық терезе болса, жіберу пәрменін пайдаланып терезеге пәрмендерді теру керек. Sendkeys пәрменін қолданған кезде бұл теру сияқты, бірақ ол біз жазғысы келетін нәрсені тереді. Біз тере алатын кез келген нәрсені жібере аламыз, соның ішінде бағдарламаларды орындау үшін қажет енгізу кілттері, енді біз кілттерді қалай жіберу керектігін білеміз, бұл біз жасаған суретті ашуға мүмкіндік береді, содан кейін басқа уақыт таймерін енгізіп, суретті жүктеуге уақыт береді. Мұны істеу үшін біз: shellobj.sendkeys «k: / id.bmp {enter}» wscript.sleep 200 тереміз Ол не істейді: Бұл іске қосу жолағына k: / id.bmp теру сияқты. Ол сіздің суретіңізді bmp үшін әдепкі суретті қарау құралында ашуы керек … менің жағдайда бұл - windows суреті мен факсты қарау құралы, бірақ көптеген адамдар мұны нарық бағдарламаларынан кейін орнатады, сондықтан сіздікі не ашылатынын кім біледі. оны іске қосыңыз. Пәрмен жолы мен қалқымалы суретті алуыңыз керек. әзірге сіздің кодыңыз келесідей болуы керек: 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} шығу {enter} «

9 -қадам: 6 -қадам: Хабарлама терезесін құру және жауапты күту

Жақсы, енді біз интернетті сәтті өшіріп, пәрмен жолының терезесін жаптық, біз интернетті қайта қосқымыз келетінін сұрайтын хабарлама терезесінің ашылуын қалаймыз. иә, бірақ егер біз «жоқ» түймесін басатын болсақ, біз оның кетуін қаламаймыз, сондықтан оны орындау үшін уақыт операторын қолданамыз. Алдымен біз хабарлама жәшігінің айнымалысын өлшеуіміз керек, сонда біз оған сандық айнымалыларды тағайындай аламыз. Мен бұл түсініксіз болып көрінетінін білемін, бірақ олай емес. біз мұны бір рет сызықпен жасадық: 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 оны «Иә/Жоқ» хабарлама жәшігі ретінде белгілейді. және тырнақшалардың соңғы бөлігі - бұл хабарлама жәшігі. «иә» немесе «жоқ» батырмасын басқанда, ол қандай мәнді тағайындайтынын тексеру үшін msgbox (myVar) деп аталатын жолды қосуға болады және ол myvar -ге тағайындалған кез келген мәнді басып шығарады. хабарлама терезесі. енді бізде хабарлама терезесі болса, while операторын жабу керек. Уақыт мәлімдемесінің ашылуы мен жабылуының арасындағы барлық нәрсе «жоқ» түймесін басқан сайын орындалады, себебі егер сіз «жоқ» түймесін бассаңыз, ол әлі де 2 мәні болып табылады және бірінші бөлімге оралады. While операторының түрі: wendWhat it жасайды: Егер сіз уақыт операторына нүкте қойсаңыз, ол аргумент жойылмайынша цикл ретінде әрекет етеді. Егер сіз «жоқ» дегенді басуды жалғастырсаңыз, ол айналады, бірақ «иә» батырмасын басқаннан кейін ол циклден босатылады және сценарийді жалғастырады. Файлды сақтаңыз, бірақ оны келесі қадамға дейін іске қосуды күтіңіз. Сіздің кодыңыз әзірге: 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 бағдарламасын қолданамын. Бұл жағдайда бұл терезе суреті мен факсты қарау құралы болып табылады және тапсырмалар менеджерінің процестер қойындысында rundll32.exe түрінде көрсетіледі, сондықтан біз өлтіруіміз керек. Егер сіздің сурет irfanview немесе acdsee сияқты басқа бағдарламаның көмегімен ашылса, процестер қойындысынан өтетін атауды табыңыз және rundll32.exe файлын өзіңіз тапқан атпен орналастырыңыз. Команда: taskkill /F /IM rundll32.exe Бұл не жасайды: taskkill - бұл /F қосқышы өлтіруге мәжбүр ететін бағдарламаның атауы, ал /IM қосқышы оған сурет атауын айтады Енді біз оны соңғы жолға қосамыз, пәрменді орындау үшін енгізуді енгіземіз, содан кейін шығу пәрмені және басқа енгізу және келесідей: shellobj.sendkeys «ipconfig /update {enter} taskkill /F /IM rundll32.exe {enter} шығу {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} шығу {enter} «_end of script_Now Сіз бағдарламаны іске қоса аласыз. Не болуы керек: 1.) Сіз CMD терезесін өте қысқа уақыт ішінде ашыңыз, содан кейін жабыңыз2.) Сіздің Интернет енді жұмыс істемеуі керек. Бірақ сіз мұны көрмейсіз. 3) Сіздің суретіңіз ашылуы керек. 4.) Сіз интернетті қайта қосқыңыз келетінін сұрайтын қалқымалы терезені алуыңыз керек. 5) Қанша рет бассаңыз да, хабарлама терезесі шықпауы керек. 6. Сіз интернетті қайта қосқыңыз келе ме, жоқ па деген сұрақты қайта ашасыз.) «Иә» түймесін басқаннан кейін хабарлама терезесі жоғалады және CMD терезесі резервтік көшірмесін көрсетеді. 7) IP мекенжайы жаңартылғаннан кейін CMD терезесі мен сурет Сізде бар. Интернетті қосу және өшіру үшін өте оңай VBscript. Сізге ұнайды деп үміттенемін. Мен іс жүзінде DevCon деп аталатын бағдарламаның көмегімен желілік адаптерлерді өшіретін, командалық жолдың құрылғы менеджеріне ұқсас басқа сценарий жасадым. Өте жақсы жұмыс істейді. Сценарий осыған ұқсас, бірақ онда DevCon үшін командалары бар ipconfig коммандары бар.