Uvod u VB Script: vodič za početnike: 11 koraka

2024 Autor: John Day | [email protected]. Zadnja promjena: 2024-01-30 09:38

*** ((((Upozorenje: Iako postoji mnogo koraka. Ovo je zapravo prilično jednostavno. Za početnike samo detaljno objašnjavam sve. Ako samo želite da kôd skoči na posljednji korak i pronaći ćete cijeli Kod tamo.)))) *** Puno igram Xbox uživo i uvijek moram onemogućiti internet na računalu jer sputava propusnost. Uglavnom zato što stalno preuzimam ili učitavam stvari. Problem nije u tome što ga isključujem, već ga vraćam na ono što sam zaboravio, pa sam tamo izgubio svo to vrijeme za prijenos/preuzimanje. Stoga sam odlučio stvoriti program koji će to učiniti umjesto mene. Htio sam to napisati na Vb.net, ali tek sam nedavno morao nukleariti i asfaltirati svoj operacijski sustav na računalu zbog loše oluje koja mi je ispržila tvrdi disk, a još nisam ponovno instalirao VB.net pa sam zaključio da će to biti daj mi razlog da se igram s vbscript. Napravio sam i sliku u boji za prikaz u pozadini pa sam znao da radi.

Korak 1: Shvatite što želite učiniti

Prvo što uvijek napravim je napraviti plan. Što želim da program radi? A) Želim moći otvoriti skriptu i ona će automatski prekinuti vezu. B) Želim da prikazuje veliki zaslon u pozadini, tako da nema greške što je internet isključen, na ovaj način ga ne zaboravljam ponovno uključiti. C) Želim da mi omogući izbor uključivanja ponovno uključite, a zatim pričekajte odgovor. D) Želim da se pobrinem da ga ponovno uključim kako ne bih zaboravila. E) Onda kad jednom zaista kažem da da ga ponovno uključim, skripta ga ponovo uključuje a zatim zatvara pozadinu. F) Izađite iz svega.

Korak 2: Stvari koje koristim, ali zapravo nisu potrebne

Sve što vam zaista treba je uređivač teksta poput bilježnice. Sve ostalo je neobavezno. Ja koristim Notepad ++ kada radim VB skriptu, jer se prema njoj ponaša kao što vb.net radi s bojama i zna jezik. Pomaže u izbjegavanju pogrešaka. Također broji retke tako da možete dijagnosticirati u čemu je problem kada dobijete kôd pogreške. Odavde se može dobiti notepad ++

Korak 3: Pokrenite programiranje

Pa, prvo što želite učiniti je stvoriti tekstualnu datoteku i spremiti je u sve što želite da se imenuje s nastavkom datoteke.vbsPrimjer: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbsPrimjer 2: games.vbsSamo je važno da datoteku imenujete..vbs Obično to radim na radnoj površini jer je otvaram oko milijun puta dok radim na njoj. Sada samo desnom tipkom miša kliknite datoteku i pritisnite uređivanje ili uređivanje pomoću bilježnice ++

Korak 4: Korak 1: Otvaranje prozora naredbenog retka

Stoga sam odlučio obaviti većinu posla, samo bih koristio programe koji su već pohranjeni na računalu kako bih radio ono što želim. Manje kodiranja i bez preuzimanja … Woohoo. Najjednostavniji je naredbeni redak. Pa želimo otvoriti prozor naredbenog retka da bismo to učinili, želimo izgraditi objekt koji ćemo učiniti pa upisujemo: set shellobj = CreateObject ("WScript. Shell") Što radi: Postavite instancu shellobj na jednaku da biste stvorili objekt w ljuske skripte. Na ovaj način sve što moramo učiniti je upisati shellobj umjesto CreateObject ("WScript. Shell") svaki put kad nam zatreba nova naredba. Sada kada smo stvorili objekt, dajemo mu nalog da otvori prozor naredbenog retka. Da bismo to učinili, upisujemo: shellobj.run "cmd" Što radi: To bi bilo ekvivalent tipkanju CMD -a u okvir za pokretanje na izborniku Start. Da nismo postavili varijablu shellobject, morali bismo upisati: CreateObject ("WScript. Shell"), pokrenuti "cmd" … vidjeti koliko je sada lakše. Manje mjesta za pogreške. Kliknite datoteku … zatim Spremi … zatim idite na radnu površinu i dvaput kliknite na vbsfileu koju ste napravili da bi se trebala pokrenuti Ako sve ide kako treba, trebali biste se pojaviti Windows naredbeni redak …..yaaaaaa !!! ako ne provjerite vaše kodiranje, dosad ste trebali imati: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Možete dodati komentare u svoju skriptu kako biste zapamtili ono što ste kasnije učinili stavljajući zarez ispred retka poput ovo: 'Ovo je za otvaranje naredbenog retka. Kad kodiram mnogo puta, učinit ću to, tako da se sjećam onoga što sam kasnije učinio kad sam to tražio. Skripta jednostavno zanemaruje tu liniju i ide dalje. Ako ih vidite, možete učiniti isto.

Korak 5: Korak 2: Postavljanje mjerača vremena

U redu sada kada imamo šiljati novi prozor, moramo ga napuniti naredbama kako bismo ga natjerali da radi ono što želimo. Problem je u tome što nekim računalima treba duže od drugih da otvore prozore pa želimo da skripta malo pričeka malo za početak. ako se pokrene prerano, računalo će popuniti prazno mjesto prije nego što otvorite prozor i dobit ćete djelomičnu naredbu ili je uopće nećete dobiti. Dakle, moramo postaviti mjerač vremena. Da bismo to učinili, upisujemo: wscript.sleep 200Što radi: On govori skripti da pričeka X vrijeme prije izvršavanja sljedeće naredbe. 1000 je jedna sekunda pa moja čeka petinu sekunde. Možda ćete otkriti da vaše računalo mora čekati više ili manje vremena. Ako gledate računalo i ono ne upisuje naredbe ispravno, promijenite broj na veći broj, na primjer 2000 bi bilo 2 sekunde i vjerojatno dosta vremena. Spremite datoteku sada vaš kôd u ovom trenutku trebao bi biti: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

Korak 6: Korak 3: Napravite sliku

Upravo sam otvorio paint i upisao "Internet Disconected" u njega te ga napravio 800x600 i spremio kao id.bmp i spremio u svoj korijenski direktorij, u mom slučaju k: / ali vaš će vjerojatno biti c:

Korak 7: Korak 4: Slanje naredbi, otvaranje slike

U redu sada kada imamo naredbeni prozor koji čeka naredbe, sve što moramo učiniti je upisati naredbe u prozor pomoću naredbe sendkeys. Kad koristimo naredbu sendkeys, to je kao tipkanje, ali će upisati sve što želimo. Sve što možemo upisati možemo poslati, uključujući tipke za unos potrebne za izvršavanje programa. Sada kada znamo kako poslati ključeve, možemo otvoriti našu sliku koju smo upravo napravili, a zatim staviti drugi vremenski pogovor tako da se slici da vrijeme za učitavanje. Da bismo to učinili, upisujemo: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200 Što radi: Ovo je isto što i upisivanje k: / id.bmp u okvir za pokretanje. Trebao bi otvoriti vašu sliku u zadanom pregledniku slika za bmp … u mom slučaju to je preglednik slika za Windows i faks, ali većina ljudi instalira i programe na tržištu koji to rade, pa tko zna što će se otvoriti u vama. Sada spremite datoteku i pokrenite ga. Trebali biste dobiti naredbeni redak i sliku za skok. za sada je dobro !!! vaš kôd bi do sada trebao biti: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. spava 200

Korak 8: Korak 5: Slanje naredbi, isključite internet

U ovom trenutku, ako to još niste učinili, preuzmite pdf datoteku na kraju, pa ako zeznete, preuzmite Instructable kako to popraviti. Sada ovdje počinje zabava. U redu pa ćemo koristiti ipconfig za oslobađanje naše IP adrese. Bez IP adrese ne možemo dobiti internetski promet jer usmjerivač ne zna kamo ga poslati na računalo. Da bismo to učinili, upisujemo: shellobj.sendkeys "ipconfig /release {enter}" Što radi: Ovo upućuje program IPCONFIG da oslobodi IP adresu. {enter} govori računalu da ste pritisnuli tipku enter. ovo bi bilo kao da u prozor za pokretanje upišete ipconfig /release i pritisnete enter. Obično nakon što to učinite, ako pokrenete ipconfig, reći će vam da je vaša IP adresa 0.0.0.0 To je ono što želimo. Bez IP adrese usmjerivač ne zna da smo ovdje i nikakvi se programi ne mogu takozvano "pozvati". Sad kad smo uspješno završili isključivanje IP -a, želimo zatvoriti prozor. Sada bismo mogli napisati još jedan redak koji kaže: shellobj.sendkeys "exit {enter}" No, bilo bi lakše samo urediti gornji redak i dodati ga na kraj tako da imate: shellobj.sendkeys "ipconfig /release {enter} exit {enter} "Sada ga spremite, ali nemojte ga pokrenuti jer ćete prekinuti internetsku vezu. Ako ga ipak pokrenete, a internet vam se isključi, samo promijenite prekidač s ipconfig /release na ipconfig /renew i ponovno ga pokrenite i trebao bi ga ponovno uključiti. A ako sve drugo ne uspije, ponovno pokrenite sustav i trebali biste biti u redu. Vaš dosadašnji kôd trebao bi biti: 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}"

Korak 9: Korak 6: Kreiranje okvira za poruke i čekanje odgovora

U redu, sada kada smo uspješno isključili internet i zatvorili prozor naredbenog retka, želimo da se pojavi okvir s porukom s pitanjem želimo li ponovno uključiti internet. Ali ovdje postaje teško, želimo da pričeka za da, ali ako kliknemo ne, ne želimo da nestane pa ćemo upotrijebiti naredbu while za to. Prvo moramo dimenzionirati varijablu za okvir za poruke tako da joj možemo dodijeliti varijable broja. Znam da zvuči zbunjujuće, ali zapravo nije. već smo to učinili jednom s retkom: set shellobj = CreateObject ("WScript. Shell") ovaj je još lakši za postavljanje samo upisujemo: Dim MyVarŠto radi: Sada smo dimenzionirali varijablu pod imenom MyVarKad dobijete "da" /no "pojavit će se okvir s porukom na vašem zaslonu i kad pritisnete gumbe dodjeljuje vrijednost svakom gumbu, u ovom slučaju" da "je 1, a" ne "je 2. Želimo da varijabla počinje s" ne "Dakle prema zadanim postavkama dodjeljujemo mu broj 2, na ovaj način pauzira dok se ne pritisne gumbTo učinimo upisujemo: myvar = 2Što radi: sada je MyVar jednako 2, ovako će se u sljedećem retku zaustaviti i čekati na unos. Sada samo želimo da sjedne i čeka dok ne budemo spremni za ponovno uključivanje interneta. Da bismo to učinili, upisujemo: while myvar = 2Što radi: Time smo rekli skripti da je vrijednost myvara = 2, samo nastavite ponavljati okvir za poruke dok ne dobijemo bilo koju drugu vrijednost osim 2, koja bi u ovom slučaju mogla biti samo 1Sljedeće zapravo želimo učiniti da se okvir za poruke pojavi s gumbima da/ne. Da biste to učinili ovo upisujemo: MyVar = MsgBox ("Uključi internetsku vezu", 65, "Uključi internetsku vezu") Što radi: Sada će varijabli MyVar biti dodijeljena bilo koja vrijednost dodijeljena gumbu na koji se klikne u okvir s porukom. prvi dio u navodnicima je ono što će okvir za poruke zapravo reći. 65 ga označava kao Da/Ne okvir s porukama. a posljednji dio pod navodnicima je oznaka okvira za poruke. provjeriti da li se dodjeljuje vrijednost kada kliknete da ili ne, mogli biste dodati redak s porukom msgbox (myVar) i ispisat će bilo koju vrijednost dodijeljenu myvaru u okvir za poruku.sada kad imamo okvir za poruku moramo zatvoriti while naredbu. Sve što je između naredbe open i close of while izvodit će se svaki put kada pritisnete ne, jer ako kliknete ne, to je i dalje vrijednost 2 i petlja se natrag u prvi dio. Da biste završili tip naredbe while: wendWhat it does: Nakon što stavite točku na while naredbu, ona će djelovati kao petlja sve dok argument više nije zadovoljen. Dakle, ako nastavite pritisnuti ne, petlja će se pojaviti, ali nakon što pritisnete da, oslobodit će se petlje i nastaviti sa skriptom. Spremite datoteku, ali pričekajte da je pokrenete do sljedećeg koraka. Vaš dosadašnji kôd trebao bi biti: 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 (" Uključi internetsku vezu ", 65," Uključi internetsku vezu ") wend

Korak 10: Korak 7: Ponovno uključivanje interneta

Sada kada je netko konačno kliknuo da i prošlo je time izjavu, moramo urnirati na internetu. Obično pojavim potvrdu kako bi krajnji korisnik znao što se događa, ali to je potpuno neobavezno. Za pojavljivanje vrste potvrde: msgbox ("Sada ćemo ponovo uključiti internetsku vezu !!!") Što radi: šalje okvir s porukom da ćemo sada ponovo uključiti internetsku vezu !!! i daje vam gumb ok da kliknete. Sada sve što trebamo učiniti je ponovno uključiti internet i zatvoriti sve. Za ponovno uključivanje interneta samo otvaramo naredbeni redak, postavljamo odbrojavanje, a zatim ponovno koristimo ipcionfig. type: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig /renew {enter}" Što radi: poništava naredbu za isključivanje od ranije i obnavlja vašu IP adresu. Nakon što ste obnovili svoju IP adresu, sada možete ponovno uspostaviti internetsku vezu. Sada nam preostaje samo očistiti otvorene prozore. Opet bismo mogli upotrijebiti naredbu sendkeys, ali samo ću dodati posljednji redak da zadržim i čišćenje. U ovom slučaju ću koristiti taskkill program da ubijem program koji prikazuje sliku. U ovom slučaju to je preglednik slika i faksa sustava Windows i prikazuje se kao rundll32.exe na kartici procesi upravitelja zadataka, pa to trebamo ubiti. Ako se vaša slika otvori pomoću drugog programa, poput irfanview -a ili acdsee -a, na kartici "Procesi" pronađite njeno ime i postavite rundll32.exe bez imena koje ćete pronaći. Naredba bi bila: taskkill /F /IM rundll32.exe does: taskkill je naziv programa koji mu /F prekidač kaže da prisili ubijanje, a /IM prekidač mu kaže naziv slike. Sada to dodamo u zadnji redak, dodamo enter za izvršavanje naredbe, a zatim naredba exit i još jedan enter i izgleda ovako: shellobj.sendkeys "ipconfig /renew {enter} taskkill /F /IM rundll32.exe {enter} exit {enter}" Spremite datoteku.

Korak 11: Gotov proizvod

Ako je sve prošlo kako treba, vaš bi gotov proizvod trebao izgledati otprilike ovako: postavite 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 ("Uključi internetsku vezu", 65, "Uključi internetsku vezu") wendmsgbox ("Sada ćemo uključiti Internet Ponovo je uspostavljena veza !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig /renew {enter} taskkill /F /IM rundll32.exe {enter} exit {enter} "_kraj skripte_Sada je programiranje Gotovo možete pokrenuti program. Što bi se trebalo dogoditi: 1.) Trebali biste otvoriti prozor CMD -a za vrlo kratko vrijeme, a zatim ga zatvoriti. 2) Vaš internet više ne bi trebao raditi. ali ovo nećete vidjeti3.) Vaša bi se slika trebala otvoriti.4.) Trebali biste dobiti skočni prozor koji će vas pitati želite li ponovno uključiti internet.5.) Bez obzira koliko puta kliknuli, okvir za poruku ne bi trebao zvučati ponovno ste se otvorili s pitanjem želite li ponovo uključiti internet.6.) Nakon što kliknete da, okvir za poruku bi trebao nestati i CMD prozor bi se trebao ponovno pojaviti. 7) Nakon što se IP adresa obnovi, CMD prozor i slika trebao zatvoriti. Evo ga. Vrlo jednostavan VBscript za uključivanje i isključivanje interneta. Nadam se da ti se sviđa. Zapravo sam napravio još jednu skriptu koja je gotovo identična ovoj koja isključuje mrežne adaptere pomoću programa pod nazivom DevCon, koji je poput upravitelja uređaja iz naredbenog retka. Radi jako dobro za. Skripta je identična ovoj, osim gdje u ovoj ima naredbe za ipconfig da jedna ima naredbe za DevCon.