Introducere în VB Script: un ghid pentru începători: 11 pași

2024 Autor: John Day | [email protected]. Modificat ultima dată: 2024-01-30 11:47

*** ((((ALERTĂ: Deși există o mulțime de pași. Acest lucru este de fapt destul de ușor. Vă explic totul în detaliu pentru începători. Dacă doriți doar să treceți codul la ultimul pas și veți găsi întregul cod acolo.)))) *** Juc o mulțime de Xbox live și trebuie întotdeauna să dezactivez internetul de pe computerul meu, deoarece captează lățimea de bandă. În principal pentru că descarc sau încarc lucruri tot timpul. Problema nu-l oprește, ci îl readuce pe care îl uit, ajungând acolo unde pierd toate acele timpuri de încărcare / descărcare. Așa că am decis să creez un program care să-l facă pentru mine. Aveam de gând să-l scriu în Vb.net, dar tocmai de curând a trebuit să-mi scot și să-mi pavez sistemul de operare pe computer din cauza unei furtuni nefaste care mi-a prăjit hard disk-ul și nu am reinstalat încă VB.net, așa că m-am gândit că acest lucru ar fi dă-mi un motiv să mă joc cu vbscript. Am făcut și o imagine în vopsea pentru a o afișa în fundal, așa că știam că rulează.

Pasul 1: Descoperă ce vrei să faci

Primul lucru pe care îl fac întotdeauna este să fac un plan. Ce vreau să facă programul? A) Vreau să pot deschide scriptul și acesta va opri automat conexiunea. B) Vreau să afișeze un afișaj uriaș în fundal, astfel încât să nu existe nicio greșeală că internetul este oprit, astfel nu uit să îl reactivez. din nou și apoi aștept un răspuns. D) Vreau să se asigure că îl repornesc, ca să nu uit. și apoi închide fundalul. F) Ieșiți din toate.

Pasul 2: Lucruri pe care le folosesc, dar nu sunt chiar necesare

Tot ce aveți nevoie este un editor de text, cum ar fi blocnotesul. Toate celelalte sunt opționale. Folosesc Notepad ++ când fac script VB, deoarece îl tratează așa cum face vb.net cu culori și cunoaște limba. Ajută la evitarea greșelilor. De asemenea, numerotează liniile, astfel încât să puteți diagnostica care este problema atunci când primiți un cod de eroare. Poate fi obținut de aici notepad ++

Pasul 3: Porniți programarea

Primul lucru pe care doriți să-l faceți este să creați un fișier text și să îl salvați în orice doriți să fie denumit cu extensia de fișier.vbsExemplu: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbs.vbs De obicei, fac acest lucru pe desktop, pentru că îl deschid de câteva miliarde de ori în timp ce lucrez la el.

Pasul 4: Pasul 1: Deschiderea unei ferestre de linie de comandă

Așa că am decis să fac cea mai mare parte a muncii, aș folosi doar programe deja stocate pe computer pentru a face ceea ce aș vrea. Mai puțină codificare și fără descărcări … Woohoo. Easiest este promptul de comandă, așa că vrem să deschidem o fereastră de comandă pentru a face acest lucru, dorim să construim un obiect pentru a face acest lucru, tastăm: set shellobj = CreateObject ("WScript. Shell") Ce face: Setați o instanță de shellobj să fie egală pentru a crea obiectul shell de script w. În acest fel, tot ce trebuie să facem este să tastați shellobj în loc de CreateObject ("WScript. Shell") de fiecare dată când avem nevoie de o comandă nouă. Acum, că am creat un obiect, instruim obiectul să deschidă o fereastră de prompt de comandă. shellobj.run "cmd" Ce face: Acesta ar fi echivalentul tastării CMD în caseta de rulare din meniul de pornire. Dacă nu am fi setat variabila shellobject, ar fi trebuit să introducem: CreateObject ("WScript. Shell"). Rulați "cmd" … vedeți cât de ușor este acum. Mai puțin spațiu pentru greșeli. Faceți clic pe fișier … apoi Salvați … apoi accesați desktopul și faceți dublu clic pe fișierul vbs pe care l-ați creat, ar trebui să ruleze. codarea dvs., până acum ar trebui să aveți: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Puteți adăuga comentarii în scriptul dvs., astfel încât să vă amintiți ce ați făcut mai târziu, punând o virgulă în fața liniei ca this: 'this is to open a command prompt Când codific de multe ori voi face acest lucru, așa că îmi amintesc ce am făcut mai târziu când îl privesc. Scriptul doar ignoră acea linie și continuă. Dacă le vezi poți face la fel.

Pasul 5: Pasul 2: Configurarea cronometrelor

Bine, acum, când avem o fereastră nouă, trebuie să o populăm cu comenzi, astfel încât să putem face ceea ce dorim. Problema este că unele computere durează mai mult decât altele pentru a deschide ferestrele, așa că dorim ca scriptul să aștepte puțin pic pentru a începe. dacă pornește prea devreme, computerul va completa spațiul gol înainte să deschideți fereastra și veți primi fie o comandă parțială, fie deloc. Deci, trebuie să configurăm un cronometru. Pentru a face acest lucru, tastați: wscript.sleep 200 Ce face: Acesta spune scriptului să aștepte un timp X înainte de a executa următoarea comandă. 1000 este egal cu o secundă, așa că a mea așteaptă o cincime de secundă. Este posibil să descoperiți că computerul dvs. trebuie să aștepte mai mult timp sau mai puțin. Dacă urmăriți computerul și acesta nu tastează corect comenzile, schimbați numărul într-un număr mai mare ca 2000 ar fi de 2 secunde și probabil mult timp. Salvați fișierul acum codul dvs. în acest moment ar trebui să fie: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

Pasul 6: Pasul 3: Faceți o imagine

Tocmai am deschis vopseaua și am tastat „Internet Disconected” în el și l-am făcut 800x600 și l-am salvat ca id.bmp și l-am salvat în directorul meu rădăcină, în cazul meu k: \, dar al tău va fi probabil c:

Pasul 7: Pasul 4: Trimiterea comenzilor, deschiderea imaginii

Ok, acum că avem o fereastră de comandă care așteaptă comenzile, tot ce trebuie să facem este să tastăm comenzile în fereastră folosind comanda sendkeys. Când folosim comanda sendkeys, este ca și când tastați, dar va tasta orice vrem să tastați. Orice lucru pe care îl putem scrie îl putem trimite, inclusiv tastele de introducere necesare pentru a executa programe. Pentru a face acest lucru, tastați: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200 Ce face: Este la fel ca tastarea k: / id.bmp în caseta de rulare. Ar trebui să vă deschidă imaginea în vizualizatorul de imagini implicit pentru un BMP … în cazul meu, este vizualizatorul de imagini și fax Windows, dar majoritatea oamenilor instalează programe după piață care fac acest lucru, așa că cine știe în ce se va deschide al dvs. acum salvați fișierul și rulați-l. Ar trebui să primiți un prompt de comandă și o imagine pentru a apărea. până acum atât de bine !!! codul dvs. de până acum ar trebui să fie: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. dorm 200

Pasul 8: Pasul 5: Trimiterea comenzilor, Opriți internetul

În acest moment, dacă nu ați făcut încă acest lucru, descărcați fișierul pdf la sfârșit, astfel încât, dacă vă descurcați, aveți o descărcare instructabilă despre cum să o remediați. Acum, aici începe distracția. Ok, deci vom folosi ipconfig pentru a ne elibera adresa IP. Fără o adresă IP nu putem obține trafic de internet, deoarece routerul nu știe unde să-l trimită la computer. Pentru a face acest lucru, tastați: shellobj.sendkeys "ipconfig / release {enter}" Ce face: Aceasta instruiește programul IPCONFIG să elibereze adresa IP. {enter} spune computerului că ați apăsat tasta Enter. acest lucru ar fi ca și când ai tasta ipconfig / release în fereastra de rulare și ai apăsa Enter. De obicei, după ce faceți acest lucru, dacă rulați ipconfig, acesta vă va spune că adresa dvs. IP este 0.0.0.0. Asta ne dorim. Fără o adresă IP, routerul nu știe că suntem aici și niciun program nu poate „apela”, ca să spunem așa. Acum, după ce am terminat cu succes închiderea IP, dorim să închidem fereastra. Acum am putea scrie o altă linie care spune: shellobj.sendkeys "exit {enter}" Dar ar fi mai ușor să editați linia de mai sus și să o atașați până la capăt, astfel încât să aveți: shellobj.sendkeys "ipconfig / release {enter} exit {enter} „Acum salvați-l, dar nu îl rulați, deoarece vă veți opri conexiunea la internet. Dacă îl rulați și internetul se oprește, schimbați doar comutatorul de la ipconfig / release la ipconfig / renew și rulați-l din nou și ar trebui să-l repornească. Și dacă toate celelalte nu reușesc reporniți și ar trebui să fiți bine. Codul dvs. până acum ar trebui să fie: 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}"

Pasul 9: Pasul 6: Crearea casetei de mesaj și așteptarea răspunsului

Ok, acum că am închis cu succes internetul și am închis fereastra promptului de comandă, dorim să apară o casetă de mesaje care să ne întrebe dacă dorim să repornim internetul. Dar aici devine dificil, vrem să aștepte pentru un da, dar dacă facem clic pe nu, nu vrem să dispară, așa că vom folosi o instrucțiune while pentru a face acest lucru. Știu că sună confuz, dar chiar nu este. am făcut-o deja o dată cu linia: set shellobj = CreateObject ("WScript. Shell") acesta este chiar mai ușor de configurat, doar tastăm: Dim MyVarCe face: Acum am dimensionat o variabilă numită MyVar Când primiți un "da" / nu "caseta de mesaj apare pe ecran și faceți clic pe butoanele pe care le atribuie o valoare fiecărui buton, în acest caz" da "este 1 și" nu "este 2. Vrem ca variabila să înceapă cu un" nu "Deci îi atribuim numărul 2 în mod implicit, în acest fel se întrerupe până când se face clic pe un buton Pentru a face acest lucru, tastăm: myvar = 2 Ce face: acum MyVar este egal cu 2, în acest fel în linia următoare se va opri și va aștepta introducerea. Acum vrem doar să stea acolo și să așteptăm până când suntem pregătiți să pornim internetul din nou. = 2 apoi continuați să buclați caseta de mesaje până când obținem orice altă valoare decât 2, care în acest caz ar putea fi doar 1 Următorul, de fapt, dorim să facem să apară o casetă de mesaje cu butoane da / nu. acest lucru îl tastăm: MyVar = MsgBox („Activați conexiunea la internet”, 65, „Activați conexiunea la Internet”) Ce face: acum variabilei MyVar i se va atribui orice valoare este atribuită butonului pe care se face clic pe caseta de mesaj. prima parte din ghilimele este ceea ce va spune de fapt caseta de mesaje. 65 îl desemnează ca o cutie de mesaje Da / Nu. iar ultima parte dintre ghilimele este meniul mesajului. Pentru a verifica ce valoare atribuie atunci când faceți clic pe da sau nu, puteți adăuga într-o linie care spune msgbox (myVar) și va imprima orice valoare este atribuită myvar în o casetă de mesaj. Acum că avem o casetă de mesaj, trebuie să închidem declarația while. Tot ceea ce se află între declarația de deschidere și închidere a instrucțiunii while va rula de fiecare dată când faceți clic pe nu, deoarece dacă faceți clic pe nu, este încă o valoare de 2 și revine la prima parte. face: Odată ce ați pus capăt unei instrucțiuni while, aceasta va acționa ca o buclă până când argumentul nu mai este îndeplinit. Deci, dacă continuați să apăsați nu, acesta se va bucla, dar după ce dați da, se va elibera de buclă și va continua cu scriptul. Salvați fișierul, dar așteptați să-l rulați până la pasul următor. Codul dvs. până acum ar trebui să fie: 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 (" Porniți conexiunea la internet ", 65," Porniți conexiunea la internet ") wend

Pasul 10: Pasul 7: Pornirea Internetului din nou

Acum, când cineva a dat clic pe da și a trecut declarația while, trebuie să urnăm pe internet. De obicei, apar o confirmare, astfel încât utilizatorul final să știe ce se întâmplă, dar este pur opțional. Pentru a afișa un tip de confirmare: msgbox („Acum vom reactiva conexiunea la internet !!!”) Ce face: trimite o casetă de mesaj care spune că Acum vom reactiva conexiunea la internet !!! și vă oferă un buton ok pentru a face clic. Acum tot ce trebuie să facem este să pornim din nou internetul și să închidem totul. tastați: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig / renew {enter}" Ce face: inversează comanda de oprire dinainte și vă reînnoiește adresa IP. După ce ați reînnoit adresa IP, puteți obține din nou conexiuni la internet. Acum tot ce trebuie să facem este să curățăm ferestrele deschise. Din nou am putea folosi o comandă sendkeys, dar voi adăuga ultima linie pentru a menține și curățările. În acest caz, voi folosi programul taskkill pentru a ucide programul care afișează imaginea. În acest caz, este vizualizatorul de imagini și faxuri Windows și apare ca rundll32.exe în fila Procese din managerul de activități, astfel încât trebuie să ucidem. Dacă fotografia dvs. se deschide utilizând un alt program, cum ar fi irfanview sau acdsee, găsiți numele pe care îl trece în fila Procese și înlocuiți rundll32.exe cu numele pe care îl găsiți. Comanda ar fi: taskkill / F / IM rundll32.exe does: taskkill este numele programului, comutatorul / F îi spune să forțeze un kill și comutatorul / IM îi spune numele imaginii Deci, acum adăugăm că la ultima linie, adăugați o intrare pentru a executa comanda și apoi o comanda de ieșire și o altă intrare și arată astfel: shellobj.sendkeys "ipconfig / renew {enter} taskkill / F / IM rundll32.exe {enter} exit {enter}" Salvați fișierul.

Pasul 11: Produsul finit

Dacă totul a mers bine, produsul dvs. final ar trebui să arate cam așa: setați 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 ("Porniți conexiunea la internet", 65, "Porniți conexiunea la Internet") wendmsgbox ("Acum vom transforma Internetul Conexiune activată !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig / renew {enter} taskkill / F / IM rundll32.exe {enter} exit {enter} "_end of script_Now that the programming is gata, puteți rula programul. Ce ar trebui să se întâmple: 1.) Ar trebui să apară fereastra CMD pentru o perioadă foarte scurtă de timp, apoi să închideți 2.) Internetul dvs. nu ar trebui să mai funcționeze. dar nu veți vedea acest lucru 3.) Fotografia dvs. ar trebui să se deschidă 4.) Ar trebui să primiți o fereastră pop-up care vă întreabă dacă doriți să reporniți internetul. dar opriți din nou întrebând dacă doriți să reporniți internetul. 6.) După ce dați clic pe da, caseta de mesaj ar trebui să dispară și o fereastră CMD ar trebui să apară înapoi 7.) Odată ce adresa IP este reînnoită, fereastra CMD și imaginea ar trebui să se închidă. Acolo îl aveți. Un VBscript foarte ușor pentru a vă activa și dezactiva internetul. Sper că îți place. De fapt, am făcut un alt script care este aproape identic cu cel care oprește adaptoarele de rețea folosind un program numit DevCon, care este ca un manager de dispozitiv de linie de comandă. Funcționează foarte bine. Scriptul este identic cu acesta, cu excepția cazului în care în acesta are comenzi pentru ipconfig că unul are comenzi pentru DevCon.