Въведение в VB Script: Ръководство за начинаещи: 11 стъпки

2024 Автор: John Day | [email protected]. Последно модифициран: 2024-01-30 07:55

*** (((ALERT: Въпреки че има много стъпки. Това всъщност е доста лесно. Просто обяснявам всичко подробно за начинаещите. Ако просто искате кодът да премине към последната стъпка и ще намерите пълната код там.)))) *** Играя на много Xbox на живо и винаги трябва да деактивирам интернет на компютъра си, защото той свива честотната лента. Най -вече защото непрекъснато изтеглям или качвам неща. Проблемът не е в изключването му, а в това, че го забравям, като го върна отново, като стигна до мястото, където губя цялото това време за качване/изтегляне. Затова реших да създам програма, която да го направи вместо мен. Щях да го напиша във Vb.net, но наскоро трябваше да ядря и да проправя операционната си система на компютъра си поради лоша буря, която пържеше твърдия ми диск, и все още не съм преинсталирал VB.net, така че просто реших, че това ще дайте ми причина да играя с vbscript. Направих и изображение в боя, което да се показва на заден план, така че знаех, че работи.

Стъпка 1: Разберете какво искате да направите

Първото нещо, което винаги правя, е да направя план. Какво искам да прави програмата? А) Искам да мога да отворя скрипта и той автоматично ще прекъсне връзката. Б) Искам да показва гигантски дисплей на заден план, така че няма грешка, че интернет е изключен, по този начин не забравям да го включа отново. В) Искам да ми даде избор да го включа отново и след това изчакайте отговор. D) Искам да се уверя, че го включвам отново, за да не забравя. E) След това, след като наистина кажа „да“, за да го включа отново, скриптът го включва отново и след това затваря фона. F) Излезте от всичко.

Стъпка 2: Неща, които използвам, но не са наистина необходими

Всичко, от което наистина се нуждаете, е текстов редактор като бележник. Всичко останало е по избор. Използвам Notepad ++, когато правя VB скрипт, защото го третира като vb.net с цветове и знае езика. Помага да се избегнат грешки. Той също така номерира редовете, за да можете да диагностицирате какъв е проблемът, когато получите код за грешка. Може да се получи от тук notepad ++

Стъпка 3: Започнете програмирането

Е, първото нещо, което искате да направите, е да създадете текстов файл и да го запишете в каквото искате да бъде кръстен с разширението на файла.vbs Пример: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbs Пример 2: games.vbs.vbs Обикновено правя това на работния плот, защото го отварям около милион пъти, докато работя върху него. Сега просто щракнете с десния бутон върху файла и натиснете редактиране или редактиране с бележник ++

Стъпка 4: Стъпка 1: Отваряне на прозорец на командния ред

Затова реших да свърша по -голямата част от работата, просто използвах вече съхранени на компютъра програми, за да правя каквото искам. По -малко кодиране и без изтегляния … Woohoo. Най -лесното е командния ред. Затова искаме да отворим прозорец на командния ред, за да направим това, искаме да изградим обект, който да направим, така че въвеждаме: set shellobj = CreateObject ("WScript. Shell") Какво прави: Задайте екземпляр на shellobj да бъде равен, за да създадете обект с скриптова обвивка. По този начин всичко, което трябва да направим, е да въвеждаме shellobj вместо CreateObject ("WScript. Shell") всеки път, когато се нуждаем от нова команда. Сега, когато сме създали обект, ние инструктираме обекта да отвори прозорец на командния ред. За да напишем това: shellobj.run "cmd" Какво прави: Това би било еквивалент на въвеждане на CMD в полето за изпълнение в менюто "Старт". Ако не бяхме задали променливата shellobject, би трябвало да въведем: CreateObject ("WScript. Shell"), изпълнете "cmd" … вижте колко по -лесно е сега. По -малко място за грешки. Щракнете върху файл … след това Запазете … след това отидете на работния плот и щракнете двукратно върху vbsfile, който сте направили, той трябва да работи Ако всичко върви както трябва, трябва да получите командния ред на 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: Направете снимка

Току -що отворих боя и въведох „Internet Disconected“в нея и я направих 800x600 и я запазих като id.bmp и я запазих в моята основна директория, в моя случай k: / но твоята вероятно ще бъде c:

Стъпка 7: Стъпка 4: Изпращане на команди, Отваряне на картината

Добре, след като имаме команден прозорец, който чака команди, всичко, което трябва да направим, е да въведем командите в прозореца, като използваме командата sendkeys. Когато използваме командата 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 файла в края, така че ако прецакате, имате изтеглено Instructable за това как да го поправите. Сега тук започва забавлението. Добре, така че ще използваме ipconfig, за да освободим нашия IP адрес. Без IP адрес не можем да получим интернет трафик, защото рутерът не знае къде да го изпрати на компютъра. За да направите това, въвеждаме: shellobj.sendkeys "ipconfig /release {enter}" Какво прави: Това инструктира програмата IPCONFIG да освободи IP адреса. {enter} казва на компютъра, че сте натиснали клавиша 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 /renew и той ще го стартира отново и трябва да го включи отново. И ако всичко друго се провали, рестартирайте и трябва да сте добре. Кодът ви досега трябва да бъде: set 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, за да направим това. Първо трябва да оразмерим променлива за съобщението, за да можем да й присвоим променливи с номер. Знам, че звучи объркващо, но всъщност не е така. вече го направихме веднъж с реда: set shellobj = CreateObject ("WScript. Shell") това е още по -лесно да го настроим, просто въвеждаме: Dim MyVar Какво прави: Сега сме оразмерили променлива с име MyVar Когато получите "да" /не "изскача кутия за съобщения на екрана ви и щракнете върху бутоните, тя приписва стойност на всеки бутон, в този случай" да "е 1 и" не "е 2. Искаме променливата да започва с" не "Така че ние му присвояваме номер 2 по подразбиране, по този начин той спира, докато не се натисне бутон. Сега просто искаме той да седи там и да чакаме, докато сме готови да включим отново интернет. За да направим това, ние въвеждаме: while myvar = 2 Какво прави: По този начин сме казали на скрипта, че стига стойността на myvar = 2 след това просто продължете да циклирате кутията за съобщения, докато не получим друга стойност, различна от 2, която в този случай може да бъде само 1 След това всъщност искаме да направим поле за съобщения да се появи с бутони да/не. това въвеждаме: MyVar = MsgBox ("Включване на интернет връзка", 65, "Включване на интернет връзка") Какво прави: Сега на променливата MyVar ще бъде присвоена каквато и да е стойност, присвоена на бутона, върху който е щракнато в полето за съобщения. първата част в кавичките е това, което кутията със съобщения всъщност ще каже. 65 го обозначава като кутия за съобщения Да/Не. и последната част в кавички е етикетът на messagebox.to да проверите каква стойност приписва, когато щракнете върху да или не, можете да добавите в ред, който казва msgbox (myVar) и той ще отпечата каквато и да е стойност, присвоена на myvar в кутия за съобщение. сега, когато имаме поле за съобщение, трябва да затворим оператора while. Всичко, което е между отварянето и затварянето на оператора while, ще се изпълнява всеки път, когато щракнете върху „не“, защото ако щракнете върху „не“, това все още е стойност 2 и се завърта обратно към първата част. За прекратяване на типа оператор while: wend прави: След като сложите край на оператор while, той ще действа като цикъл, докато аргументът вече не бъде изпълнен. Така че, ако продължите да натискате не, той ще се завърти, но след като натиснете да, той ще се освободи от цикъла и ще продължи със скрипта. Запазете файла, но изчакайте да го стартирате до следващата стъпка. Кодът ви досега трябва да бъде: set 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," Включване на интернет връзка ") wend

Стъпка 10: Стъпка 7: Включване на интернет отново

Сега, след като някой най -накрая е щракнал с „да“и той е преминал изявлението while, трябва да урним в интернет. Обикновено извеждам потвърждение, така че крайният потребител да знае какво се случва, но е чисто по избор. За да се покаже тип за потвърждение: msgbox ("Сега отново ще включим интернет връзката !!!") Какво прави: изпраща кутия със съобщение, в която се казва, че сега отново ще включим интернет връзката !!! и ви дава бутон OK, за да щракнете. Сега остава само да включим отново интернет и да затворим всичко. За да включим отново интернет, просто отваряме командния ред, задаваме таймера, след което използваме ipcionfig отново. за да направите това type: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig /renew {enter}" Какво прави: обръща командата за изключване от преди и подновява вашия IP адрес. След като подновите своя IP адрес, вече можете отново да получите интернет връзки. Сега остава само да почистим отворените прозорци. Отново бихме могли да използваме команда sendkeys, но просто ще добавя последния ред, за да задържа и почистванията. В този случай ще използвам taskkill програма, за да убия програмата, показваща картината. В този случай това е прозорец за преглед на картини и факсове на Windows и се показва като rundll32.exe в раздела процеси на диспечера на задачите, така че това е, което трябва да убием. Ако снимката ви се отвори с помощта на друга програма, като irfanview или acdsee, намерете името, с което тя преминава, в раздела процеси и поставете rundll32.exe с името, което намерите. Командата ще бъде: taskkill /F /IM rundll32.exe Какво е това прави: taskkill е името на програмата, превключвателят /F му казва да принуди убиване и /IM ключът му казва името на изображението, така че сега го добавяме към последния ред, добавяме enter за изпълнение на командата и след това команда за изход и друго въвеждане и изглежда така: shellobj.sendkeys "ipconfig /renew {enter} taskkill /F /IM rundll32.exe {enter} exit {enter}" Запазване на файла.

Стъпка 11: Готов продукт

Ако всичко е наред, готовият ви продукт трябва да изглежда така: set 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 ("Сега ще включим интернет Връзката отново е включена! ") готово можете да стартирате програмата. Какво трябва да се случи: 1.) Трябва да получите изскачащ прозорец CMD за много кратко време, след което да затворите2.) Вашият интернет не трябва да работи повече. но няма да виждате това. вие се отваряте отново с въпрос дали искате да включите отново интернет. 6.) След като щракнете върху да, полето за съобщение трябва да изчезне и CMD прозорецът трябва да се покаже отново нагоре.) След като IP адресът бъде подновен, CMD прозорецът и картината трябва да се затвори. Ето го. Много лесен VBscript за включване и изключване на интернет. Надявам се да ви хареса. Всъщност направих друг скрипт, който е почти идентичен с този, който изключва мрежовите адаптери, използвайки програма, наречена DevCon, която е като мениджър на устройства от командния ред. Работи много добре за. Скриптът е идентичен с този, освен в този, в който има команди за ipconfig, че има команди за DevCon.