VB -skriptin esittely: aloittelijan opas: 11 vaihetta

2024 Kirjoittaja: John Day | [email protected]. Viimeksi muokattu: 2024-01-30 09:04

***** koodi).)))) *** Pelaan paljon Xbox Livea ja minun on aina poistettava Internet käytöstä tietokoneellani, koska se nostaa kaistanleveyttä. Lähinnä siksi, että lataan tai lataan asioita jatkuvasti. Ongelma ei ole sammuttaa sitä, mutta se kääntää sen takaisin päälle, jonka unohdan, joten pääsen sinne, missä menetän kaiken lataus-/latausajan, joten päätin luoda ohjelman, joka tekee sen minulle. Aioin kirjoittaa sen Vb.net -verkkoon, mutta minun piti äskettäin nukea ja tasoittaa käyttöjärjestelmä tietokoneellani kovan myrskyn takia, joka paistoi kiintolevyä, enkä ole asentanut VB.net -verkkoa uudelleen, joten ajattelin vain, että tämä Anna minulle syy leikkiä vbscriptillä.

Vaihe 1: Selvitä, mitä haluat tehdä

Ensimmäinen asia, jonka teen, on aina tehdä suunnitelma. Mitä haluan ohjelman tekevän? A) Haluan pystyä avaamaan komentosarjan ja se katkaisee yhteyden automaattisesti. B) Haluan, että se näyttää jättimäisen näytön taustalla, joten Internet -yhteys on pois päältä, joten en unohda käynnistää sitä uudelleen. C) Haluan, että se antaa minulle mahdollisuuden kääntää takaisin päälle ja odota sitten vastausta. D) Haluan sen varmistavan, että käynnistän sen uudelleen, jotta en unohda sitä. ja sulkee sitten taustan. F) Lopeta kaikki.

Vaihe 2: Asioita, joita käytän, mutta joita ei todella tarvita

Tarvitset vain tekstieditorin, kuten muistikirjan. Kaikki muu on valinnaista. Käytän Notepad ++ -ohjelmaa, kun teen VB -skriptiä, koska se kohtelee sitä kuten vb.net väreillä ja osaa kielen. Se auttaa välttämään virheitä. Se numeroi myös rivit, jotta voit diagnosoida ongelman, kun saat virhekoodin.

Vaihe 3: Aloita ohjelmointi

Ensimmäinen asia, jonka haluat tehdä, on luoda tekstitiedosto ja tallentaa se mihin tahansa sen nimeen tiedostotunnisteella.vbsExample: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbs Esimerkki 2: games.vbs Kaikki tärkeät tiedostopäätteet.vbsTämän teen yleensä työpöydällä, koska avaan sen noin zillion kertaa työskennellessäni sen kanssa. Napsauta nyt tiedostoa hiiren kakkospainikkeella ja paina Muokkaa tai Muokkaa muistikirjalla ++

Vaihe 4: Vaihe 1: Komentorivi -ikkunan avaaminen

Joten päätin tehdä suurimman osan työstäni vain käyttämällä tietokoneeseen jo tallennettuja ohjelmia tehdäkseni haluamani. Vähemmän koodausta eikä latauksia… Woohoo. Easiest on komentokehote. Joten haluamme avata komentokehoteikkunan tehdäksemme niin, että haluamme rakentaa objektin, jotta teemme niin kirjoitamme: set shellobj = CreateObject ("WScript. Shell") Mitä se tekee: Aseta shellobj -ilmentymä yhtä suureksi objektin w komentosarjan kuoren luomiseksi. Tällä tavalla meidän tarvitsee vain kirjoittaa shellobj CreateObjectin ("WScript. Shell") sijaan aina, kun tarvitsemme uutta komentoa. Nyt kun olemme luoneet objektin, kehotamme objektia avaamaan komentokehoteikkunan. shellobj.run "cmd" Toiminta: Tämä vastaisi CMD: n kirjoittamista aloitusvalikon suoritusruutuun. Jos emme olisi asettaneet muuttujaa shellobject, meidän olisi pitänyt kirjoittaa: CreateObject ("WScript. Shell"). Aja "cmd" … katso kuinka paljon helpompaa se on nyt. Vähemmän tilaa virheille. Napsauta tiedostoa … sitten Tallenna … siirry sitten työpöydälle ja kaksoisnapsauta tekemääsi vbsfile -tiedostoa. koodauksesi, toistaiseksi sinulla pitäisi olla: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Voit lisätä kommentteja komentosarjaasi, jotta muistat tekemäsi myöhemmin asettamalla pilkun rivin eteen, kuten tämä: 'tämä on avata komentokehote Kun koodaan monta kertaa, teen tämän, jotta muistan mitä tein myöhemmin, kun tarkastelen sitä. Käsikirjoitus jättää tämän rivin huomiotta ja jatkaa eteenpäin. Jos näet ne, voit tehdä saman.

Vaihe 5: Vaihe 2: Ajastimien asettaminen

Ok, kun meillä on uusi uusi ikkuna, meidän on täytettävä se komennoilla, jotta voimme saada sen tekemään mitä haluamme. vähän alkuun. Jos se käynnistyy liian aikaisin, tietokone täyttää tyhjän kohdan ennen ikkunan avaamista ja saat joko osittaisen komennon tai ei lainkaan. joten meidän on asetettava ajastin. Tätä varten kirjoitamme: wscript.sleep 200 Mitä se tekee: Se käskee komentosarjan odottamaan X -aikaa ennen seuraavan komennon suorittamista. 1000 vastaa yhtä sekuntia, joten minun odottaa viidesosa sekunnista. Tietokoneesi saattaa joutua odottamaan enemmän tai vähemmän aikaa. Jos katsot tietokonetta ja se ei kirjoita komentoja oikein, vaihda numero suuremmalle numerolle, kuten 2000, se olisi 2 sekuntia ja luultavasti paljon aikaa. Tallenna tiedosto nyt, koodisi tässä vaiheessa pitäisi olla: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

Vaihe 6: Vaihe 3: Tee kuva

Avasin juuri maalin ja kirjoitin siihen "Internet Disconected" ja tein siitä 800 x 600 ja tallensin sen id.bmp: ksi ja tallensin sen juurihakemistooni, tapauksessani k: / mutta sinun on todennäköisesti c:

Vaihe 7: Vaihe 4: Komentojen lähettäminen, kuvan avaaminen

Ok, kun meillä on komentoikkuna odottamassa komentoja, meidän tarvitsee vain kirjoittaa komennot ikkunaan sendkeys -komennolla. Kun käytämme sendkeys -komentoa, se on kuin kirjoittamista, mutta se kirjoittaa mitä haluamme sen kirjoittavan. Kaikki, mitä voimme kirjoittaa, voimme lähettää, mukaan lukien ohjelmien suorittamiseen tarvittavat enter -näppäimet. Nyt, että osaamme lähettää avaimia, voit avata juuri tekemämme kuvan ja laittaa sitten toisen ajastimen jälkipuheen, jotta se antaa kuvan lataamiselle aikaa. Tätä varten kirjoitamme: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200Mitä se tekee: Tämä on sama kuin kirjoittamalla k: / id.bmp suoritusruutuun. Sen pitäisi avata kuvasi oletuskuvan katseluohjelmassa bmp: tä varten. Minun tapauksessani se on Windows -kuvan- ja faksien katseluohjelma, mutta useimmat ihmiset asentavat jälkimarkkinaohjelmat, jotka tekevät myös tämän, joten kuka tietää, mitä omasi avautuu. Tallenna tiedosto ja Suorita se. Sinun pitäisi saada komentokehote ja kuva avautumaan. toistaiseksi niin hyvä! koodisi pitäisi olla: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. nukkua 200

Vaihe 8: Vaihe 5: Komentojen lähettäminen, Sammuta Internet

Tässä vaiheessa, jos et ole vielä tehnyt niin, lataa pdf -tiedosto lopussa, joten jos pilaat, sinulla on ladattu Instructable sen korjaamiseen. Nyt tämä hauskuus alkaa. Ok, käytämme ipconfigia IP -osoitteemme vapauttamiseen. Ilman IP -osoitetta emme voi saada Internet -liikennettä, koska reititin ei tiedä minne lähettää sen tietokoneelle. Tätä varten kirjoitamme: shellobj.sendkeys "ipconfig /release {enter}" Mitä se tekee: Tämä kehottaa ohjelmaa IPCONFIG vapauttamaan IP -osoitteen. {enter} kertoo tietokoneelle, että painat enter -näppäintä. tämä olisi kuin kirjoittaisi ipconfig /release ajon ikkunaan ja painaisi enter. Yleensä tämän suorittamisen jälkeen, jos suoritat ipconfigin, se ilmoittaa, että IP -osoitteesi on 0.0.0.0 Tätä haluamme. Ilman IP -osoitetta reititin ei tiedä, että olemme täällä, eikä mikään ohjelma voi "soittaa" niin sanotusti. Nyt kun olemme onnistuneesti lopettaneet IP: n sulkemisen, haluamme sulkea ikkunan. Voisimme nyt kirjoittaa toisen rivin, joka sanoo: shellobj.sendkeys "exit {enter}" Mutta olisi helpompaa vain muokata yllä olevaa riviä ja liittää se loppuun niin, että sinulla on: shellobj.sendkeys "ipconfig /release {enter} exit {enter} "Tallenna se nyt, mutta älä käytä sitä, koska katkaiset Internet -yhteyden. Jos käytät sitä ja Internet sammuu, vaihda vain kytkin ipconfig /release -vaihtoehdosta ipconfig /atnauj -tilaan ja se suorittaa sen uudelleen, ja sen pitäisi kytkeä se takaisin päälle. Ja jos kaikki muu epäonnistuu, käynnistä uudelleen ja sinun pitäisi olla kunnossa. Koodisi pitäisi toistaiseksi olla: 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}"

Vaihe 9: Vaihe 6: Viestiruudun luominen ja vastauksen odottaminen

Ok, nyt kun olemme onnistuneesti sulkeneet Internetin ja sulkeneet komentokehotteen ikkunan, haluamme viesti -ruudun avautuvan, jossa kysytään, haluammeko kytkeä Internetin takaisin päälle, mutta tässä on vaikeaa, haluamme sen odottavan kyllä, mutta jos napsautamme ei, emme halua sen poistuvan, joten käytämme jonkin aikaa lausetta tähän. Tiedän, että se kuulostaa sekavalta, mutta se ei todellakaan ole sitä. me teimme sen jo kerran rivillä: set shellobj = CreateObject ("WScript. Shell") tämä on jopa helpompi asettaa se kirjoitamme vain: Dim MyVarMitä se tekee: Nyt olemme mitoitaneet muuttujan nimeltä MyVarWhen saat "kyllä" /ei "-viestiruutu tulee näyttöön ja napsautat painikkeita, jotka antavat arvon jokaiselle painikkeelle, tässä tapauksessa" kyllä "on 1 ja" ei "on 2. Haluamme muuttujan alkavan" ei "Joten annamme sille oletusarvoisesti numeron 2, tällä tavalla se pysähtyy, kunnes painiketta napsautetaan Tätä varten kirjoitamme: myvar = 2 Mitä se tekee: nyt MyVar on 2, tällä tavalla se pysähtyy ja odottaa syöttämistä seuraavalla rivillä. Nyt haluamme vain, että se istuu siellä ja odottaa, kunnes olemme valmiita kytkemään Internet takaisin päälle. Tätä varten kirjoitamme: while myvar = 2 Mitä se tekee: Tekemällä tämän olemme kertoneet skriptille, että niin kauan kuin myvarin arvo = 2 ja jatka sitten viestikentän silmukointia, kunnes saamme minkä tahansa muun arvon kuin 2, mikä tässä tapauksessa voi olla vain 1 tämä kirjoitamme: MyVar = MsgBox ("Käynnistä Internet -yhteys", 65, "Käynnistä Internet -yhteys") Toiminta: Nyt MyVar -muuttujalle määritetään mikä tahansa arvo, joka on määritetty viestiruudussa napsautetulle painikkeelle. lainausmerkkien ensimmäinen osa on se, mitä viestilaatikko todella sanoo. 65 merkitsee sen Kyllä/Ei -viestilaatikoksi. ja viimeinen osa lainausmerkeissä on viestilaatikon alaosa. tarkistaaksesi, mitä arvoa se antaa, kun napsautat kyllä tai ei, voit lisätä rivin, jossa lukee msgbox (myVar), ja se tulostaa minkä tahansa arvon, joka myvarille on määritetty viestilaatikko. nyt, että meillä on viestiruutu, meidän on suljettava while -lause. Kaikki while -avauksen ja sulkemisen välissä oleva lause suoritetaan joka kerta, kun napsautat ei, koska jos napsautat ei, se on edelleen arvo 2 ja palaa takaisin ensimmäiseen osaan. Lopettaa while -lauseen tyyppi: wendWhat tekee: Kun lopetat jonkin lauseen, se toimii silmukana, kunnes argumentti ei enää täyty. Joten jos jatkat lyöntiä ei, se silmukkaa, mutta kun osut kyllä, se irtoaa silmukasta ja jatkaa komentosarjaa. Tallenna tiedosto, mutta odota sen suorittamista seuraavaan vaiheeseen asti. Koodisi tulee toistaiseksi olla: 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 (" Käynnistä Internet -yhteys ", 65," Ota Internet -yhteys käyttöön ") wend

Vaihe 10: Vaihe 7: Internetin kytkeminen takaisin päälle

Nyt kun joku vihdoin napsautti kyllä ja se on ohittanut jonkin aikaa, meidän on siirryttävä Internetiin. Annan yleensä vahvistuksen, jotta loppukäyttäjä tietää, mitä tapahtuu, mutta se on täysin valinnainen. Vahvistustyypin avaaminen: msgbox ("Otamme nyt Internet -yhteyden uudelleen käyttöön !!!") Mitä se tekee: se lähettää viestiruudun, jossa lukee Nyt otamme Internet -yhteyden uudelleen käyttöön !!! Nyt meidän on vain kytkettävä internet päälle ja suljettava kaikki. kytkeäksesi Internetin takaisin päälle, avaamme vain komentokehotteen, joka asettaa ajastimen ja käytä sitten ipcionfigia uudelleen. tyyppi: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig /uuenda {enter}" Mitä se tekee: se peruuttaa aiemman sammutuskomennon ja uudistaa IP -osoitteesi. Kun olet uusinut IP -osoitteesi, voit nyt saada Internet -yhteydet uudelleen. Nyt meidän on vain puhdistettava avoimet ikkunat. Voisimme taas käyttää sendkeys -komentoa, mutta lisään vain viimeisen rivin myös puhdistusten pitämiseksi. Tässä tapauksessa aion käyttää Taskkill -ohjelmaa tappamaan kuvan näyttävän ohjelman. Tässä tapauksessa se on Windows -kuvan ja faksin katseluohjelma ja näkyy rundll32.exe -tiedostona tehtävienhallinnan prosessit -välilehdessä, joten meidän on tapettava. Jos kuva avautuu toisella ohjelmalla, kuten irfanview tai acdsee, etsi sen käyttämä nimi prosessit -välilehdestä ja korvaa rundll32.exe etsimäsi nimen kanssa. Komento olisi: taskkill /F /IM rundll32.exe tekee: Taskkill on ohjelman nimi, jonka /F -kytkin käskee pakottamaan tappamisen ja /IM -kytkin kertoo kuvan nimen. exit -komento ja toinen enter, ja se näyttää tältä: shellobj.sendkeys "ipconfig /uuenda {enter} taskkill /F /IM rundll32.exe {enter} exit {enter}" Tallenna tiedosto.

Vaihe 11: Valmis tuote

Jos kaikki meni oikein, lopputuotteen pitäisi näyttää tältä: 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 ("Käynnistä Internet -yhteys", 65, "Käynnistä Internet -yhteys") wendmsgbox ("Käännämme nyt Internetin Yhteys takaisin päälle! Kun olet valmis, voit suorittaa ohjelman. 3.) Kuvasi pitäisi avata. 4.) Sinun pitäisi saada ponnahdusikkuna, jossa kysytään, haluatko kytkeä Internetin takaisin päälle. 6.)) Kun napsautat kyllä, viestiruudun pitäisi kadota ja CMD -ikkunan pitäisi näkyä takaisin ylös 7.) Kun IP -osoite on uusittu, CMD -ikkuna ja kuva siellä on se. Erittäin helppo VBscript Internetin kytkemiseksi päälle ja pois. Toivottavasti pidät siitä. Tein itse asiassa toisen skriptin, joka on lähes identtinen tämän kanssa, joka sammuttaa verkkosovittimet käyttämällä DevCon -nimistä ohjelmaa, joka on kuin komentorivin laitehallinta. Toimii oikein hyvin. Skripti on identtinen tämän skriptin kanssa, paitsi jos tässä on commadns for ipconfig, jolla on komennot DevConille.