Úvod do skriptu VB: Průvodce pro začátečníky: Část 2: Práce se soubory: 13 kroků

2024 Autor: John Day | [email protected]. Naposledy změněno: 2024-01-30 08:25

V mém posledním pokynu pro VBScript jsem přešel na to, jak vytvořit skript pro vypnutí internetu pro hraní Xbox360. Dnes mám jiný problém. Můj počítač se náhodně vypíná a chci se přihlásit pokaždé, když se počítač restartuje do souboru. Mám pocit, že problémem je grafická karta, ale chci se ujistit. Nechávám počítač stále zapnutý, ale nemohu jej sledovat 24/7, takže mým nejjednodušším řešením je napsat časové razítko do souboru při každém restartu. Protože mi to dává BSOD pokaždé, přihlášení, když se vypne, bude těžké, takže ho musím získat, až se znovu zapne. To je snadná část. Protože je to jen dočasné, dokud nezjistím, co je s počítačem v nepořádku, nechystám se zapisovat do registru ani z něj dělat službu, takže se spustí při spuštění. A aby se restartoval pokaždé, když se vypne, budu muset upravit bios.

Krok 1: Úprava biosu, aby se restartoval při výpadku napájení

Nejsem si jistý, zda je můj problém se selháním napájení nebo s mojí grafickou kartou nebo co to je. Ale vím, že se počítač restartuje tak často. Abych se ujistil, že se restartuje po výpadku napájení (IE: napájení zhasne), chci upravit bios. Vzhledem k tomu, že existuje tolik různých výrobců bios, bylo by příliš obtížné vyjmenovat všechny různé způsoby, jak to udělat, na všech různých obrazovkách biosu, takže vám poskytnu pouze základy a nechám vás zjistit V podstatě, abyste se dostali do svého biosu, budete muset při spuštění stisknout tlačítko. Obvykle to řekne něco jako „stiskněte Del pro vstup do nastavení“nebo „F2“. Různí výrobci vám nabízejí různé způsoby, ale obvykle jde o klíč „F2“nebo „Del“. V každém případě si na to dejte pozor a stiskněte klíč, který vám řekne, abyste zasáhli. Nyní se dostanete na obrazovku, která je obvykle buď šedá nebo modrá, ale opět záleží na vaší bios produkci. Budete hledat možnost nastavení napájení. Buď to bude na okně úplně jako v záběru obrazovky AMIBIOS (vypůjčené od hardwarového průvodce toms), nebo v některých může být v okně pokročilých funkcí biosu. Každopádně hledáte nastavení „obnovit při ztrátě AC/napájení“. Může se to jmenovat jinak, ale bude tomu blízko. Jen to hledej. Obvykle bude mít tři možnosti (poslední stav, zapnuto po ztrátě napájení, vypnuto po ztrátě napájení). Chcete jej zapnout po výpadku napájení. Ujistěte se, že jste uložili svá nastavení a ukončili bios. Nyní, když selže napájení nebo odpojíte počítač, restartuje se, jakmile se znovu připojí k napájení. Jééééééé !!!!!!!!!!!!!!!!

Krok 2: Psaní skriptu Část 1: Tvorba plánu

První věc, kterou chceme udělat, je vytvořit plán. Co přesně chceme, aby skript dělal A.) Když dojde k výpadku napájení nebo nastane BSOD, chceme jej restartovat. (Postaráno v kroku 1 Úprava BiosB.) Jakmile se restartuje, chceme do souboru zapsat přesné datum a čas jeho restartu. C.) Chceme mít možnost tento soubor změnit. Pokud se restartuje více než jednou, nikdy bychom to nevěděli. vyskočí zpráva, která říká, že se restartuje. F.) Chceme, aby se otevřel soubor, do kterého jsme napsali, abychom viděli seznam všech restartů, když klikneme na ok na vyskakovacím okně zprávy.

Krok 3: Psaní skriptu Část 2: Vytvoření skriptu a přiřazení proměnných

Dobře, nejprve věci, vytvořte textový dokument a přejmenujte jej na any_name.vbs. Použil jsem shutdown_catcher.vbs, ale můžete použít cokoli. Nyní stačí kliknout pravým tlačítkem na soubor VBS a kliknout na Upravit. Pokud používáte Poznámkový blok ++, nyní by bylo vhodné jej otevřít, pokud ne, ale plánujete provést libovolné množství kódování měli bychom se na to podívat. Dobře, první věc, kterou chceme udělat, je vytvořit proměnné. Proměnné jsou v podstatě jen držáky místa, takže nemusíme mnohokrát psát spoustu věcí. příklad: máme větu, která říká „rychlá hnědá liška přeskočí líné psy zpět“. ale je to v našem kódu 20krát. můžeme buď 20krát napsat celou větu, nebo vytvořit proměnnou a přiřadit větu k této proměnné. V tomto příkladu tedy vytvoříme proměnnou strSentence a poté této proměnné přiřadíme „rychlá hnědá liška skáče přes líné psy zpět“. Nyní musíme pouze zadat strSentence pokaždé, když potřebujeme větu, a ví, že zadáme „rychlá hnědá liška skočí přes líné psy zpět“, jak to uděláme: Pokud máme více proměnných stejného typu, můžeme je zadat je na stejném řádku a oddělte proměnné čárkami. K vytvoření proměnné musíme udělat to, čemu se říká dimenzování proměnné. Za tímto účelem před proměnnou napíšeme Dim a poté do proměnné vložíme předponu, abychom věděli, co proměnná představuje. Příklady jsou str pro řetězcovou proměnnou obj pro objektovou proměnnou const pro konstantu …. Seznam pokračuje dál a dál. to jsou ty, které použijeme v tomto skriptu, takže je trochu vysvětlím. řetězec je obvykle text jako věta. Objekt je obvykle něco fyzického, jako je soubor nebo program. a konstanta je něco, co bude mít v celém skriptu vždy stejný význam. UPOZORNĚNÍ: KDYKOLI ŘADA MÁ JEDINÉ, NEŽ ŘADA BUDE IGNOROVÁNA PÍSMEM. TI SE ŘÍKÁ OZNAČENÍ A PROGRAMÁTOR JE ZVLÁŠTĚ VLOŽEN MOHOU SI PAMATOVAT, CO DĚLALI POZDĚJI PŘI PŘEZKUMU KÓDU. POUŽIJI JE K VYJÁDŘENÍ KOMENTÁŘŮ KE KÓDU, ABYSTE MOHLI VĚDĚT, PROČ JSEM UDĚLALA ZPŮSOB, JAK JSEM UDĚLALA. A BUDOU NAD ŘADOU, O KTERÝCH KOMENTUJÍ. Skutečné použití: „tento řádek vás nutí definovat všechny proměnné. Bez něj bude jakákoli nedefinovaná proměnná považována za objekt Volba Explicit'Nyní vytvoříme 5 proměnných pro složky a soubory, které budeme potřebovat 'pojmenovat je, jak chcete, ale konvence je preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'now potřebujeme k vytvoření řetězcových proměnných pro název adresáře, souboru a souboru textový dokument a jak se jmenuje máme tři možnosti, v tomto kódu budeme používat pouze připojování objekt, abychom jej mohli nazvat později, když ho potřebujeme Nastavit objFiS yOb = CreateObject ("Scripting. FileSystemObject")

Krok 4: Vysvětlení mezi tím

Nyní, když máme proměnné dimenzované, musíme si vždy tuto konkrétní proměnnou vybavit. To nejen snižuje množství psaní, které děláme, ale také vytváří méně chyb kvůli překlepům. Technicky vše, co musíme udělat, je zadat následující kód a jsme hotovi 'nastavit soubor pro appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'zapište nový řádek do fileobjTextFile. WriteLine („Vypněte počítač“a datum a „v“a čase)' zavřete souborobjTextFile. Close'make pop upWscript. Echo („Váš computer Shut down on "& date &" at "& time) 'open the file in IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Problém je v tom, že nebude mít žádnou opravu chyb a jakákoli jednoduchá chyba, jako je neexistující soubor nebo již přiřazená proměnná, skript poškodí.

Krok 5: Psaní skriptu Část 3: Pokud pak prohlášení jako oprava chyb

Nejjednodušší způsob, jak provést opravu chyb, je použít příkazy if/then. V zásadě příkaz if if říká, že se něco stane, udělejte to jinak, udělejte to. Vnořením příkazů if/then můžete vytvořit řetězec věcí, které se musí stát. Pokud se vyskytnou a a b a c, udělejte to jinak, udělejte to. Příklad: chceme se ujistit, že soubor, do kterého chceme zapisovat, existuje, pokud jej najdeme, chceme dělat nic, pokud jej nenajdeme, chceme jej vytvořit nebo chcete zkontrolovat, zda je složka tam, a pokud ne, vytvořte ji a poté zkontrolujte, zda je soubor tam, jakmile složku najdeme, a pokud ji nevytvoříme, první je příkladem příkazu if then, druhý je vnořený, pokud ano. děláme to: příkaz if if if/then elseend má čtyři části, pokud je to v zásadě, pokud je to pravda, pak to udělejte jinak, udělejte to a pak ukončete příkaz řádně kódovaným příkazem if if bude: If something = something Then do co potřebujete udělat Udělejte něco jiného Konec If Pokud můžete použít jakýkoli argument, pokud je pravdivý, bude následovat část then a ignorovat část else, ale pokud je nepravdivá, přeskočí pak a přejde na else Then, když ukončíme příkaz if zadáme „end if“, ale pokud jsme vnořili příkazy if, musíme ukončit příkaz if. Ukončí je od dítěte k rodiči, takže první „end if“ukončí příkaz if uvnitř rodiče, kde druhý ukončí původní (parent) if. Pro vyskakovací okno stačí zadat Wscript. Echo („cokoli“chceme ve zprávě říci „), abychom do ní přidali hodnotu proměnných, vložíme ji mimo nebo mezi dvojité uvozovky pomocí znaku ampersand (&) jako oddělovače, aby skript věděl, že jde o proměnnou a ne o text.: Wscript. Echo („Bla bla bla bla“& strDir & „bla bla bla bla“& strFilename & „bla bla bla bla.“) Výstupem by bylo vyskakovací okno, které říká Bla bla bla bla C: / Catcher bla bla bla bla shutdown_catcher.txt bla bla bla bla. Skutečné použití: 'pokud složka C; / existuje If objFiSyOb. FolderExists (strDir) Then'get složku Set objSysFold = objFiSyOb. GetFolder (strDir)' elseElse'create the folder c; / catcher Set objSysFold = objFiSyOb. CreateFolder (strDir) 'a zkontrolujte, zda soubor a složka existuje. jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse'create text document shutdown_catcher.txt Set objFile = objFiSyOb. CreateTextFile (strDir & strFile)' then pop up a message to say you created them both Wscript. Echo ("We have created a folder s názvem "& strDir &" a soubor s názvem "& strFilename &" a umístil jej do adresáře "& strDir & strFile &". ") 'konec vnořený if statementEnd If'end original if statementEnd If'now v prvním if příkazu již jsme zkontrolovali složku a našli ji, takže nyní kontrolujeme fileIf 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) 'vytvoří vyskakovací okno, které říká, že jsme vytvořili textový dokument Wscript. Echo („Vytvořili jsme soubor s názvem“& strFileName & “ve složce„ & strDir & “.)) End If

Krok 6: Vysvětlení mezi tím

Pokud se podíváte pozorně na kód z předchozího kroku, uvidíte vnořený i vnořený příkaz if then. První z nich je vnořené prohlášení. Zkontroluje složku a soubor a pokud je nenajde, vytvoří obojí. Druhý hledá pouze soubor a pokud jej nenajde, vytvoří pouze soubor. Dalo by se říci, proč obojí. Co se stane, když je soubor odstraněn, ale složka není. První příkaz if by přeskočil přímo při vytváření souboru, protože našel složku a nikdy by neaktivoval další část příkazu. Takže když jste šli zapisovat do souboru, došlo by k chybě, protože soubor by chyběl. Takže tím, že tam je druhý, tento problém řeší. Technicky byste mohli vyjmout vnořený příkaz, protože je téměř stejný jako druhý příkaz if if, ale pak byste měli pouze jedno vyskakovací okno a nebylo by to tak osobníPlus mi to dalo šanci ukázat vám vnořené na rozdíl od un -vnořené prohlášení.

Krok 7: Více oprav chyb

Nyní, když jsme dokončili většinu opravy chyb, chceme zapsat do souboru a zobrazit vyskakovací okna. Problém je, že dostaneme chyby oprávnění, pokud neuvolníme odkaz na předchozí objekt uložený v proměnné. Takže chceme vložit malý úryvek kódu, který říká, že nastavte proměnné na nic. Vypadá takto: set objFile = nothingset objSysFold = nothing Pro ty z vás, kteří doma sledují váš kód, by měl být (vzal jsem komentář out): Možnost ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "Shutdown_catcher.txt" pro ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") If objFiSyOb. FolderExists (strDir) Then Set objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSysFold = objFiSyOderCon Nastavit objSysFold = objFiSyOb. GetFolder (strDir) Jinak Nastavit objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Vytvořili jsme složku s názvem" & strDir & "a soubor s názvem" & strFilename & "a umístili jej do adresář "& strDir & strFile &". ") Konec 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 &" složka souboru. ") Konec Ifset objFile = nothingset objSysFold = nic

Krok 8: Psaní skriptu Část 4: Nastavení atributů

Nyní musíme nastavit atributy souboru, abychom jej mohli změnit. Dříve jsme nastavili tři konstantní proměnné: forReading = 1forWriting = 2 forAppending = 8 if you set it to forReading you will be able to read it but not write to it. If you set it for forWriting you will overwrite the existing file every time you run the program. Pokud ho nastavíte na forAppending, přidáte nový řádek pokaždé, když se skript spustí v dokumentu. Protože chceme protokol o každém restartu, chceme, aby byl připojen a aby nebyl přepsán, takže používáme forAppending.: musíte pojmenovat objekt, kterému chcete nastavit atributy. Protože jsme již v předchozích krocích udělali většinu práce, stačí si v tomto bodě vyvolat proměnné. Pak stačí nastavit true. Skutečné použití: 'objekt k nastavení = filesystemobject.action (adresář+název souboru, atribut, true nebo false) Set objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Krok 9: Zápis skriptu Část 5: Zápis do souboru

Zápis do souboru je hodně podobný psaní vyskakovacího okna. Stačí zadat: objTextFile. WriteLine („Whatever you want to say“& Variable to pull in to write line) Jediným rozdílem je první část. Ve vyskakovacím okně zadáte: Wscript.echoin řádek pro zápis, který vložíte: objTextFile. WriteLineA a v řádku pro zápis musíte zavřít řádek pro zápis, aby věděl, že přestane psát, a pro to použijete: objTextFile. CloseActual Usage: objTextFile. WriteLine („Váš počítač se vypne“na „& date &“v „& time) objTextFile.close'now přidejte vyskakovací okno, abyste řekli, že jste do souboru napsali, aby člověk věděl, že se to stalo'a musí to zavřít, aby soubor otevřel a viewWscript. Echo ("Váš počítač se vypnul" & date & "at" & čas)

Krok 10: Psaní skriptu Část 5: Otevření souboru pro prohlížení

Skript se v tomto okamžiku zastaví, dokud někdo neklikne na vyskakovací okno. Jakmile se dostanete přes vyskakovací okno, můžete do něj vložit řádek, který soubor otevře. Použití nějaké opravy chyb na to pomáhá zajistit dobrý chod programu. Když vytvoříte chybu ve vbscriptu, přidá hodnotu do proměnné „err.number“, což je předem definovaná proměnná ve vbscriptu. Nemusíte ji definovat a můžete ji používat stejně jako jakoukoli jinou proměnnou, pokud neporušíte její pravidla. Hodnota přiřazená proměnné err.number je kódem chyby, ke které došlo. Nyní můžete buď zkontrolovat každý chybový kód známý v databázi vbscript, a ujistit se, že k němu nedošlo. Nebo jednodušší je pouze zkontrolovat, zda je proměnná err.number prázdná. pokud je prázdný, nedošlo k žádným chybám. K tomu stačí zkontrolovat, zda se proměnná rovná vbEmpty. V našem skriptu tedy chceme použít jiný příkaz if if. A zkontrolujte, zda nedošlo k chybě a zda neotevřel soubor pro prohlížení, ale pokud se tak stalo, vyskočí zpráva s číslem chyby, abychom mohli ladit. Poté, když jsme všichni hotovi s naším skriptem, zadejte Wscript. Quit. To říká skriptu, aby se sám ukončil. To pomáhá omezit úniky paměti a spouštění nežádoucích procesů. Jak se používá: pokud se číslo err. rovná vbEmpty, vytvořte shell, poté spusťte program z shellu, zobrazí se zpráva, že došlo k chybě, pokud. Skutečné použití: errorsIf err.number = vbEmpty then'if none create a shell Set objShell = CreateObject ("WScript. Shell") 'then open the file from that shell using explorer. ve skutečnosti se otevře v IE ačkoli objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'jinak vyskočí zpráva s číslem chybyElse WScript.echo "Chyba VBScript:" & err.numberEnd If 'end scriptWscript.quit

Krok 11: Spuštění skriptu při spuštění

V nabídce Start se nachází složka s názvem Startup. Cokoli umístěné do této složky se spustí hned po spuštění počítače. Umístěním souboru skriptu do spouštěcí složky se spustí při každém restartu počítače, ať už úmyslně nebo ne. Vzhledem k tomu, že to používám pouze jako diagnostický nástroj, nemusí to být spuštěno ve službě a pro spuštění to nemusím vkládat do registru, takže to bude v pořádku. Jakmile počítač opravím, mohu soubor odstranit ze spouštěcí složky a není třeba žádné další vyčištění.

Krok 12: Spuštění programu

Když spustíte soubor vbscript, bude nyní A.) Zkontrolujte, zda složka C: / Catcher existuje, a pokud ji nevytvořte. B:) Zkontrolujte, zda soubor Shutdown_catcher.txt existuje a pokud není vytvořen. C:) Pokud vytvoří složku nebo soubor nebo obojí, zobrazí se zpráva, že je vytvořil (Poznámka: mělo by to být provedeno pouze při prvním spuštění, poté by to již mělo být, pokud není odstraněno, takže byste měli tuto zprávu vidět pouze jednou. Mohlo by být dobré spustit tento skript jednou pod kontrolovaným restartem, abyste mohli tato vyskakovací okna obejít, nebo do souboru nemusíte nic zapisovat, protože to neobejde vyskakovací okna vytvořená souborem.) D:) Napište řádek do textový dokument Shutdown_Catcher.txt, který říká, že se počítač v takové a takové datum v takový a takový čas vypnul. E:) Zobrazí se zpráva, že došlo k restartu F:) Otevřete soubor pro prohlížení. Pokud se podíváte v dalším kroku uvidíte kód jako napsaný. Teď už jen musím sedět a čekat. Pokaždé, když se počítač restartuje, budu mít o tom záznam. Poté mohu záznam zkontrolovat a zjistit, zda je v něm nějaká konzistence. Příkladem může být, že se restartuje každou půlhodinu nebo se restartuje kdykoli je přírůstek nebo 45 hodin. To není v žádném případě jediný způsob, jak kontroluji počítač, abyste věděli. Mám také spuštěný srovnávací program pro kontrolu teplot, takže vím, jak je horko, když se vypne, napětí, takže vím, jestli selhává napájení, a několik dalších užitečných věcí. Doufám, že to bylo užitečné. Vím, že mě to baví, takže možná to budou dělat i ostatní. Pokud máte nějaké dotazy, klidně se ptejte. Možná se k nim nedostanu okamžitě, ale chvíli přestanu a já vám odpovím. Záleží na tom, jak se má můj den/týden.

Krok 13: Kód

Toto je kód, jak je napsán, bez všech rad a poznámek_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) Jinak Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo („Vytvořili jsme složku s názvem“& strDir & "& strFilename &" a umístil jej do adresáře "& strDir & strFile &". ") Konec IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Pak nastavte objSysFold = objFiSyOb. GetFolder (strDir) Jiný Set objFile = objFiSyOe strDir & strFile) Wscript. Echo („Máme vytvořil soubor s názvem „& strFileName &“ve složce „& strDir &". ") End Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. WriteLine (" Vypnout "& date &" v "& time) objTextFile. CloseWscript. Echo (" Váš počítač se vypne "& date &" v "& čas) If err.number = vbEmpty then Set objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Jiný WScript.echo" Chyba VBScript: "& err.numberEnd IfWScript. Quit