Úvod do skriptu VB: Príručka pre začiatočníkov: Časť 2: Práca so súbormi: 13 krokov

2024 Autor: John Day | [email protected]. Naposledy zmenené: 2024-01-30 12:02

V mojom poslednom návode na použitie VBScript som sa zaoberal tým, ako vytvoriť skript na vypnutie internetu pri hraní Xbox360. Dnes mám iný problém. Môj počítač sa náhodne vypínal a chcem sa prihlásiť vždy, keď sa počítač reštartuje do súboru. Mám pocit, že problémom je grafická karta, ale chcem sa uistiť. Počítač nechávam vždy zapnutý, ale nemôžem ho monitorovať 24/7, takže mojim najľahším riešením je napísať časovú pečiatku do súboru pri každom reštarte. Pretože mi to zakaždým poskytne BSOD, prihlásenie sa pri vypnutí bude ťažké, takže ho musím získať, keď sa znova zapne. To je tá ľahká časť. Pretože to je len dočasné, kým nezistím, čo je s počítačom v poriadku, nejdem zapisovať do registra ani z neho robiť službu, takže sa spustí pri štarte. A aby som ho mohol reštartovať zakaždým, keď sa vypne, budem musieť upraviť bios.

Krok 1: Úprava Bios, aby sa mohol reštartovať pri výpadku napájania

Nie som si istý, či je môj problém v zlyhaní napájania alebo v grafickej karte alebo v čom spočíva. Ale viem, že počítač sa reštartuje tak často. Aby som sa ubezpečil, že sa reštartuje po výpadku napájania (IE: napájanie zhasne), chcem upraviť bios. Vzhľadom na to, že existuje toľko rôznych výrobcov bios, bolo by príliš ťažké vymenovať všetky rôzne spôsoby, ako to urobiť, na všetkých rôznych obrazovkách biosu, takže vám poskytnem iba základy a dovoľte vám zistiť, špecifiká sami. Na to, aby ste sa dostali do svojho biosu, budete v zásade musieť stlačiť tlačidlo pri štarte. Obvykle to bude znamenať niečo ako „stlačením klávesu Del vstúpite do nastavenia“alebo „F2“. Rôzni výrobcovia vám ponúkajú rôzne spôsoby, ale zvyčajne ide o kľúč „F2“alebo „Del“. V každom prípade si to dajte pozor a stlačte kláves, ktorý vám povie, aby ste trafili. Teraz sa dostanete na obrazovku, ktorá je zvyčajne buď sivá alebo modrá, ale opäť to závisí od značky vášho biosu. Budete hľadať možnosť nastavenia napájania. Buď to bude na vlastnom okne, ako na obrázku obrazovky AMIBIOS (požičané od hardvérového sprievodcu toms), alebo v niektorých to môže byť v okne pokročilých funkcií biosu. V každom prípade hľadáte nastavenie „Obnoviť pri strate AC/napájania“. Možno sa to bude volať aj inak, ale bude tomu blízko. Len to hľadaj. Obvykle bude mať tri možnosti (posledný stav, zapnuté po strate napájania, vypnuté po strate napájania). Chcete ho zapnúť po strate napájania. Uistite sa, že ste uložili svoje nastavenia a ukončili bios. Teraz, keď dôjde k výpadku napájania alebo odpojíte zariadenie, reštartuje sa ihneď po obnovení napájania. Jéééééé !!!!!!!!!!!!!!!!

Krok 2: Písanie scenára Časť 1: Vytvorenie plánu

Prvá vec, ktorú musíme urobiť, je vytvoriť plán. Čo presne chceme, aby skript robil. A.) Keď dôjde k výpadku napájania alebo príde BSOD, chceme, aby sa reštartoval. (Postarané v kroku 1 Úprava BiosB.) Hneď ako sa reštartuje, chceme zapísať do súboru presný dátum a čas reštartu. C.) Chceme mať možnosť zmeniť tento súbor. Ak sa reštartuje viac ako raz, nikdy by sme to nevedeli. vyskočí správa, ktorá hovorí, že sa reštartuje. F.) Chceme, aby sa otvoril súbor, do ktorého sme napísali, aby sme videli zoznam všetkých reštartov po kliknutí na tlačidlo ok v rozbaľovacom okne správy.

Krok 3: Písanie skriptu Časť 2: Vytvorenie skriptu a priradenie premenných

Dobre, najskôr si vytvorte textový dokument a premenujte ho na any_name.vbs. Použil som shutdown_catcher.vbs, ale môžeš použiť čokoľvek. Teraz stačí kliknúť pravým tlačidlom myši na súbor vbs a kliknúť na položku Upraviť. Ak používate poznámkový blok ++, teraz by bolo vhodné ho otvoriť, ak nie, ale plánujete vykonať akékoľvek kódovanie. mali by sme sa na to pozrieť. Ok, teraz prvá vec, ktorú chceme urobiť, je vytvoriť premenné. Premenné sú v podstate iba držiakom miesta, takže nemusíme veľa krát písať veľa vecí. príklad: máme vetu, ktorá hovorí „rýchla hnedá líška skáče cez lenivé psy späť“. ale je to v našom kóde 20 -krát. môžeme buď 20 -krát napísať celú vetu, alebo vytvoriť premennú a priradiť vetu tejto premennej. V tomto prípade teda vytvoríme premennú strSentence a potom tejto premennej priradíme „rýchla hnedá líška skáče cez lenivé psy späť“. Teraz už len musíme zadať str ich na rovnakom riadku a premenné oddeľte čiarkami. Na vytvorenie premennej musíme urobiť to, čo sa nazýva dimenzovanie premennej. Za týmto účelom napíšeme Dim pred premennú a potom do premennej vložíme predponu, aby sme vedeli, čo premenná predstavuje. Príklady sú str pre reťazcovú premennú obj pre objektovú premennú const pre konštantu …. Zoznam pokračuje ďalej a ďalej. to sú tie, ktoré použijeme v tomto skripte, takže ich trochu vysvetlím. reťazec je zvyčajne text ako veta. Objekt je zvyčajne niečo fyzické ako súbor alebo program. a konštanta je niečo, čo bude mať v celom skripte vždy rovnaký význam. UPOZORNENIE: KEDYKOĽVEK RIADOK MÁ JEDNOTNÚ PRED TÝM, ČIERNA BUDE IGNOROVANÁ PÍSMOM. OBSAHUJÚ SA OZNAČENIA A PROGRAMÁTORI BÝVA ZVLÁŠŤ MÔŽU SI PAMATOVAŤ, ČO ROBILI NÍŽE PRI PRESKÚMANÍ KÓDU. POUŽIJEM ICH NA KOMENTÁRE KÓDU, ABY STE MOHLI VIDIEŤ, PREČO SOM UROBILA SPÔSOB, KTORÝM SOM ROBIL. A BUDÚ NAD RIADKOM, O KTORÝCH KOMENTUJÚ. Skutočné použitie: „tento riadok vás núti definovať všetky premenné. Bez neho bude akákoľvek nedefinovaná premenná považovaná za objekt. Voľba Explicit 'Teraz vytvoríme 5 premenných pre priečinky a súbory, ktoré budeme potrebovať' pomenujte ich, ako chcete, ale konvencia je preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile 'teraz potrebujeme na vytvorenie reťazcových premenných pre názov adresára, súboru a súboruDim strDir, strFile, strFileName'teraz priraďte hodnoty premenným'strDir je náš adresár chceme priečinok v strDir = "C: / Catcher" 'strFile je tam, kde chceme textový dokument a jeho názov Súbor má tri možnosti. V tomto kóde budeme používať iba prípony, ale je dobré ich všetky poznať. Na rozdiel od ReadReading = 1, forWriting = 2, ForAppending = 8'Práve musíme nastaviť premennú do systému súborov. objekt, aby sme ho mohli neskôr nazvať, keď ho potrebujemeSet objFiS yOb = CreateObject ("Scripting. FileSystemObject")

Krok 4: Vysvetlenia medzi tým

Teraz, keď máme premenné dimenzované, musíme si túto konkrétnu premennú vždy pripomenúť. Toto nielenže znižuje množstvo písania, ktoré robíme, ale tiež vytvára menej chýb kvôli preklepom. Teraz technicky všetko, čo musíme urobiť, je napísať nasledujúci kód a máme hotovo. „Nastavte súbor pre appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'napíšte nový riadok do súboru fileobjTextFile. WriteLine („Vypnite počítač“a dátum & „o“a čase) „zatvorte súbor počítač Vypnúť "& date &" v "& time) 'otvoriť súbor v IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Problém je v tom, že nebude vykonávať žiadnu opravu chýb a všetky jednoduché chyby, ako napríklad neexistujúci súbor alebo už priradená premenná, skript poškodia.

Krok 5: Písanie scenára Časť 3: Ak potom vyhlásenia ako oprava chýb

Opravu chýb je najľahšie vykonať pomocou príkazov if/then. V zásade príkaz if if hovorí, že ak sa niečo stane, urobte to inak, urobte to. Vnorením príkazov if/then môžete vytvoriť reťazec vecí, ktoré sa musia stať. Ak sa vyskytnú písmená a a b a c, urobte to inak. Urobte to. Príklad: chceme sa uistiť, že súbor, do ktorého chceme písať, je tam, ak ho nájdeme, chceme robiť nič, ak ho nenájdeme, chceme ho vytvoriť alebo chcete skontrolovať, či je priečinok tam, a ak nie, vytvorte ho a potom skontrolujte, či tam súbor je, akonáhle priečinok nájdeme, a ak ho nevytvoríme, prvý je príkladom príkazu if then, druhý je vnorený, ak potom. Ako robíme to: príkaz if if if/then elseend má štyri časti, ak je to v zásade, ak je to pravda, potom urobte to inak, urobte to tak, že ukončíte príkaz správne kódovaným príkazom if then: Ak niečo = niečo Potom urobte čo musíte urobiť Urobte niečo iné Koniec a Ak môžete použiť ľubovoľný argument, pokiaľ je pravdivý, bude nasledovať časť potom a ignorovať časť ostatné, ale ak je nepravdivá, preskočí potom a prejde na iné Potom, keď ukončíme príkaz if zadáme „end if“, ale ak sme vnorili príkazy if, musíme ukončiť každý príkaz if. Ukončí ich to od dieťaťa k rodičovi, takže prvým príkazom „end if“sa končí príkaz if vo vnútri rodiča, kde druhým sa skončí pôvodný príkaz (parent) if. Na vyskakovacie okno stačí napísať Wscript. Echo („čokoľvek chceme v správe povedať „), aby sme do nej pridali hodnotu premenných, umiestnime ju von alebo medzi dvojité úvodzovky pomocou znaku ampersand (&) ako oddeľovača, aby skript vedel, že ide o premennú a nie text.:) bla bla bla. Skutočné použitie: 'ak priečinok C; / existuje, ak objFiSyOb. FolderExists (strDir) Then'získať priečinok Nastaviť objSysFold = objFiSyOb. GetFolder (strDir)' elseElse'vytvoriť priečinok c; / catcher Nastaviť objSysFold = objFiSyOb. CreateFolder (strDir) 'a skontrolujte, či súbor a priečinok existuje. Ak objFiSyOb. FileExists (strDir & strFile) Potom, ak dostane priečinok c: / catcher Nastaviť ob jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse'vytvoriť textový dokument shutdown_catcher.txt Nastaviť objFile = objFiSyOb. CreateTextFile (strDir & strFile)', potom sa zobrazí správa, že ste ich vytvorili obaja Wscript. Echo („Vytvorili sme priečinok s názvom „& strDir &“a súbor s názvom „& strFilename &“a umiestnil ho do adresára „& strDir & strFile &". ") 'koniec vnorený if statementEnd If'end original if statementEnd If'now v prvom if príkaze už sme skontrolovali priečinok a našli sme ho, takže teraz skontrolujeme súborIf objFiSyOb. FileExists (strDir & strFile) Then'if found get folder Set objSysFold = objFiSyOb. GetFolder (strDir) 'else Else'create the text doc Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'vytvorte vyskakovacie okno s textom, že sme vytvorili textový dokument Wscript. Echo („V priečinku so súborom„ & strDir & “sme vytvorili súbor s názvom„ & strFileName & “.)) Koniec

Krok 6: Vysvetlenia medzi tým

Ak sa pozriete pozorne na kód z predchádzajúceho kroku, uvidíte vnorený aj vnorený príkaz if then. Prvý z nich je vnorený príkaz. Skontroluje priečinok a súbor a ak ich nenájde, vytvorí oboje. Druhý hľadá iba súbor a ak nenájde, vytvorí iba súbor. Niekto by mohol povedať, prečo obaja. Čo sa stane, ak je súbor odstránený, ale priečinok nie je. Prvý príkaz if by preskočil priamo nad vytváranie súboru, pretože našiel priečinok a nikdy neaktivoval inú časť príkazu. Keď ste teda išli do súboru zapisovať, chyba sa vyskytla, pretože súbor chýbal. Tým, že tam máte druhú, je tento problém vyriešený. Technicky by ste mohli vnorený príkaz odstrániť, pretože je takmer rovnaký ako príkaz druhý keby, ale potom by ste mali iba jedno vyskakovacie okno a nebolo by to také príťažlivé. Navyše mi to dalo šancu ukázať vám vnorené, na rozdiel od -vnorené vyhlásenia.

Krok 7: Väčšia oprava chýb

Teraz, keď sme dokončili väčšinu opravy chýb, chceme zapísať do súboru a zobraziť kontextové okná. Problém je v tom, že dostaneme chyby povolení, ak neuvoľníme odkaz na predchádzajúci objekt uložený v premennej. Takže chceme vložiť malý útržok kódu, ktorý hovorí, že nastavte premenné na nič. Vyzerá takto: set objFile = nothingset objSysFold = nothing Takže pre tých z vás, ktorí doma sledujú váš kód, by malo byť toto (vzal som komentár out): Možnosť ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "Shutdown_catcher.txt" Const ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") If objFiSyOb. FolderExists (strDir) Then Set objSysFold = objFiSyOb. GetFirder (strDir) Else Set objSysFold = objFiSyOderCon Set objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Vytvorili sme priečinok s názvom" & strDir & "a súbor s názvom" & strFilename & "a vložili sme ho do adresár "& strDir & strFile &". ") Koniec I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Then Set objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("We have created a file" "& strDir &" priečinok so súborom. ") Ukončiť ifset objFile = nothingset objSysFold = nič

Krok 8: Písanie skriptu Časť 4: Nastavenie atribútov

Teraz musíme nastaviť atribúty súboru, aby sme ho mohli zmeniť. Predtým sme nastavili tri konštantné premenné: forReading = 1forWriting = 2 forAppending = 8 ak ho nastavíte na forReading, budete ho môcť čítať, ale nezapisovať doň. Ak ho nastavíte na hodnotu forWriting, existujúci súbor prepíšete pri každom spustení programu.. Ak ho nastavíte na: musíte pomenovať objekt, ktorému chcete nastaviť atribúty. Pretože sme už urobili väčšinu práce v predchádzajúcich krokoch, musíme si v tomto bode pripomenúť premenné. Potom ho nastavte na hodnotu true. Skutočné použitie: „objekt na nastavenie = filesystemobject.action (adresár+názov súboru, atribút, true alebo false) Nastaviť objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Krok 9: Písanie skriptu Časť 5: Zápis do súboru

Zápis do súboru je veľmi podobný písaniu vyskakovacieho okna. Jednoducho zadáte: objTextFile. WriteLine („Čokoľvek chcete povedať“a premenná na vloženie do riadka na zápis) Jediným rozdielom je prvá časť. V rozbaľovacom okne zadáte: Wscript.echoin riadok na zápis, ktorý vložíte: objTextFile. A v riadku na zápis musíte zavrieť riadok na zápis, aby vedel, že má prestať písať, a na to použite: objTextFile. CloseActual Usage: objTextFile. WriteLine („Váš počítač sa vypne“v „& date &“v „& time) objTextFile.close'now pridajte vyskakovacie okno, aby ste povedali, že ste do súboru zapísali, aby daná osoba vedela, že sa to stalo'a musí ho zatvoriť, aby sa otvoril súbor a zobrazil sa súbor Wscript. Echo ("Váš počítač sa vypol" & dátum & "v" & čas)

Krok 10: Písanie skriptu Časť 5: Otvorenie súboru na zobrazenie

Skript sa v tomto bode zastaví, kým niekto neklikne na vyskakovacie okno. Akonáhle sa dostanete cez pop up, môžete vložiť riadok, ktorý otvorí súbor. Použitie nejakej opravy chýb na ňom pomáha udržať program dobre spustený. Keď vytvoríte chybu vo formáte vbscript, pridá hodnotu do premennej „err.number“, ktorá je vopred definovanou premennou vo vbscripte. Nemusíte ho definovať a môžete ho používať rovnako ako všetky ostatné premenné, pokiaľ neporušujete jeho pravidlá. Hodnota priradená k premennej err.number je kód chyby, ku ktorej došlo. Teraz môžete buď skontrolovať každý chybový kód známy v databáze vbscript a uistiť sa, že sa nevyskytol. Alebo jednoduchšie je len skontrolovať, či je premenná err.číslo prázdna. ak je prázdny, nevyskytli sa žiadne chyby. Za týmto účelom skontrolujeme, či sa premenná rovná vbEmpty. V našom skripte teda chceme použiť iný príkaz if if. A skontrolujte, či sa vyskytla chyba a či súbor neotvoril na prezeranie, ale ak sa tak stalo, zobrazí sa správa s číslom chyby, aby sme mohli ladiť. Potom, keď sme so skriptom všetci hotoví, napíšte Wscript. Ukončiť. To hovorí skriptu, aby sa sám ukončil. Pomáha to obmedziť úniky pamäte a spustenie nechcených procesov. Ako sa používa: ak sa číslo err. rovná vbEmpty, vytvorte shell, potom spustite program z shellu, zobrazí sa hlásenie s chybou, ak. Skutočné použitie: errorsIf err.number = vbEmpty then'if none create a shell Set objShell = CreateObject ("WScript. Shell") 'then open the file from that shell using explorer. v skutočnosti sa otvorí v IE, hoci objShell.run („Explorer“& „“& strDir & „\ shutdown_catcher.txt“) ‘inak vyskočí správa s číslom chybyElse WScript.echo„ Chyba VBScript: “& err.numberEnd If 'end scriptWscript.quit

Krok 11: Spustenie skriptu pri spustení

V ponuke Štart sa nachádza priečinok so súbormi s názvom Spustenie. Čokoľvek umiestnené do tohto priečinka sa spustí ihneď po spustení počítača. Po vložení súboru skriptu do spúšťacieho priečinka sa spustí pri každom reštarte počítača, či už úmyselne alebo nie. Pretože to používam iba ako diagnostický nástroj, nemusí byť z neho spustená služba a na spustenie ho nemusím vkladať do registra, takže to bude v poriadku. Hneď ako opravím počítač, môžem odstrániť súbor zo spúšťacieho priečinka a nevyžaduje sa žiadne ďalšie čistenie.

Krok 12: Spustenie programu

Keď spustíte súbor vbscript, bude to teraz A.) Skontrolujte, či priečinok C: / Catcher existuje, a ak ho nevytvoríte. B:) Skontrolujte, či súbor Shutdown_catcher.txt existuje a ak nie, vytvorte ho. C:) Ak vytvoril priečinok alebo súbor alebo oboje, zobrazí sa správa, že ich vytvoril (Poznámka: malo by sa to urobiť iba pri prvom spustení, potom by to už malo byť, pokiaľ nie je odstránené, takže by ste túto správu mali vidieť iba raz). Možno by bolo vhodné spustiť tento skript raz pod kontrolovaným reštartom, aby ste mohli tieto vyskakovacie okná obísť, alebo do súboru nemôžete nič napísať, pretože to neobíde vyskakovacie okná vytvorené súborom.) D:) Napíšte riadok do textový dokument Shutdown_Catcher.txt, ktorý hovorí, že počítač sa v ten a taký dátum vypol v taký a taký čas. E:) Zobrazí sa správa, že došlo k reštartuF:) Otvorte súbor na zobrazenie. Ak sa pozriete v nasledujúcom kroku uvidíte kód ako je napísaný. Teraz mi zostáva len sedieť a čakať. Zakaždým, keď sa počítač reštartuje, budem mať o tom záznam. Potom môžem záznam skontrolovať a zistiť, či je v ňom nejaká konzistentnosť. Príkladom môže byť, že sa reštartuje každú pol hodinu alebo sa reštartuje vždy, keď je na hodinách prírastok alebo 45. Toto nie je jediný spôsob, akým kontrolujem počítač, aby ste vedeli. Mám spustený aj benchmarkingový program na kontrolu teplôt, aby som vedel, aké je horúce, keď sa vypne, napätie, aby som vedel, či nefunguje napájanie, a niekoľko ďalších užitočných vecí. Dúfam, že to bolo užitočné. Viem, že ma to baví, takže možno aj ostatní. Ak máte nejaké otázky kľudne sa pýtajte. Možno sa k nim nedostanem okamžite, ale chvíľu počkám a ja vám odpoviem. Záleží na tom, ako sa mi darí deň/týždeň.

Krok 13: Kód

Toto je kód, ako je napísaný, bez všetkých rád a poznámok_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileN Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") If objFiSyOb. FolderExists (strDir) Then Set objSysFold = objFiSyOb. GetFolder (strDir) Else objFiSyOb. FileExists (strDir & strFile) Potom nastavte objSysFold = objFiSyOb. GetFolder (strDir) Elea Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo („Vytvorili sme priečinok s názvom“& strDir &. strDir & strFile) Wscript. Echo („Máme vytvoril súbor s názvom „& strFileName &“v priečinku „& strDir &". ") End Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. WriteLine (" Your Vypnite "& date &" v "& time) objTextFile. CloseWscript. Echo (" Váš počítač sa vypne "& dátum &" v "& čas) Ak je err.number = vbEmpty, potom nastavte objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Else WScript.echo" Chyba VBScript: "& err.numberEnd IfWScript. Quit