Bevezetés a VB szkriptbe: a kezdőknek szóló útmutató: 2. rész: Fájlok kezelése: 13 lépés

2024 Szerző: John Day | [email protected]. Utoljára módosítva: 2024-01-30 09:44

Nos, a legutóbbi VBScript utasításomban átnéztem, hogyan készítsek szkriptet az internet leállításához az Xbox360 lejátszásához. Ma más problémám van. A számítógépem véletlenszerűen leállt, és minden alkalommal naplózni akarok, amikor a számítógép újraindul egy fájlba. Van egy olyan érzésem, hogy a probléma a videokártya, de szeretnék meggyőződni róla. A számítógépet mindig bekapcsolt állapotban hagyom, de nem tudom a nap 24 órájában figyelni, így a legegyszerűbb megoldás az, ha minden újraindításkor időbélyeget írok egy fájlba. Mivel minden alkalommal BSOD -t ad, a leálláskor történő naplózás nehéz lesz, ezért meg kell szereznem, amikor újra bekapcsol. Ez a könnyű rész. Az a tény, hogy ez csak ideiglenes, amíg rájövök, mi a baj a számítógéppel, nem fogok írni a rendszerleíró adatbázisba, vagy szolgáltatássá tenni, így a rendszerindításkor indul el. És ahhoz, hogy minden leálláskor újrainduljon, szerkesztenem kell a bios -t.

1. lépés: A BIOS szerkesztése, hogy újrainduljon áramkimaradás esetén

Nem vagyok biztos abban, hogy a problémám az áramellátás meghibásodásával, vagy a videokártyámmal van, vagy mi az. De tudom, hogy a számítógép oly gyakran újraindul. Tehát annak biztosítása érdekében, hogy áramkimaradás után újrainduljon (IE: a tápegység barnul), szerkeszteni akarom a bios -t. Annak a ténynek köszönhetően, hogy nagyon sok különböző bios készítő létezik, túl nehéz lenne felsorolni ennek különböző módjait a különböző bios képernyőkön, ezért csak az alapokat adom meg, és kitalálom a sajátosságait. Alapvetően ahhoz, hogy belépjen a bios -ba, meg kell nyomnia egy gombot a rendszerindításkor. Általában valami ilyesmit mond: "nyomja meg a Del gombot a beállításhoz" vagy "F2". A különböző gyártók különböző módszereket kínálnak, de általában "F2" vagy "Del" billentyű. Akárhogy is, figyeljen rá, és nyomja meg azt a gombot, amely azt mondja, hogy üssön. Most egy olyan képernyőhöz érkezik, amely általában szürke vagy kék, de ismét a bios gyártmányától függ. Keresni fog egy energiabeállítási lehetőséget. Ez vagy egy ablakban lesz, mint az AMIBIOS képernyőképen (a toms hardver útmutatójából kölcsönözve), vagy egyes esetekben egy speciális bioszolgáltatások ablakban. Mindenesetre "visszaállítás az AC/áramkimaradás" beállítást keres. Lehet, hogy másnak is nevezik, de közel lesz ehhez. Csak keress rá. Általában három lehetősége van (utolsó állapot, bekapcsolás áramkimaradás után, kikapcsolás áramkimaradás után). Be akarja kapcsolni áramkimaradás után. Feltétlenül mentse el a beállításokat, és lépjen ki a bios -ból. Most, amikor az áramellátás megszakad, vagy kihúzza a gépet, újraindul, amint visszakapja az áramot. Jaaaaaaaa !!!!!!!!!!!!!!!!

2. lépés: A forgatókönyv megírása 1. rész: Terv készítése

Az első dolog, amit meg akarunk tenni, hogy tervet készítsünk. Pontosan mit akarunk, hogy a szkript tegye. A.) Amikor az áramellátás megszakad, vagy a BSOD megjelenik, azt akarjuk, hogy újrainduljon. (A BiosB szerkesztése 1. lépésben gondoskodunk róla.) Amint újraindul, szeretnénk egy fájlba írni az újraindítás pontos dátumát és időpontját. C.) Szeretnénk tudni módosítani ezt az aktát. Ha többször is újraindul, soha nem tudhatnánk. D.) Azt szeretnénk, ha hibajavítása lenne, hogy ne csavarodjon be, és gondoskodunk arról, hogy minden újraindítást megkapjunk anélkül, hogy hiányozna a rossz kódolás miatt. E.) Ezt szeretnénk hogy felbukkanjon egy üzenet, amely azt mondja, hogy újraindult. F.) Azt akarjuk, hogy nyissa meg azt a fájlt, amelyhez írtunk, hogy láthassuk az összes újraindítás listáját, amikor az OK gombra kattintunk az előugró üzenetben.

3. lépés: A szkript megírása 2. rész: A szkript létrehozása és a változók hozzárendelése

Először is ok, hozzon létre egy szöveges dokumentumot, és nevezze át any_name.vbs -re. A shutdown_catcher.vbs fájlt használtam, de bármit használhatsz. Most csak kattints jobb egérgombbal a vbs fájlra, és nyomd meg a szerkesztés gombot. Ha most használod a Jegyzettömb ++ -t, akkor jó alkalom nyílik meg, ha nem, de bármennyi kódolást tervezel meg kell vizsgálnia annak megszerzését. Nos, most először is változókat szeretnénk létrehozni. A változók alapvetően csak helyfoglalók, így nem kell egy csomó dolgot írnunk egy csomó alkalommal. példa: van egy mondatunk, amely szerint "a gyors barna róka átugorja a lusta kutyákat". de 20 -szor szerepel a kódunkban. vagy kiírhatjuk a teljes mondatot 20 -szor, vagy létrehozhatunk egy változót, és hozzárendelhetjük a mondatot ehhez a változóhoz. Tehát ebben a példában létrehozzuk az strSentence változót, majd hozzárendeljük "a gyors barna róka ugrik át a lusta kutyákon" ehhez a változóhoz. Most már csak annyit kell tennünk, hogy minden alkalommal be kell írnunk az strSentence kifejezést, amikor szükségünk van a mondatra, és tudja, hogy "a gyors barna róka átugrik a lusta kutyákon", hogyan kell ezt megtenni: Ha több azonos típusú változónk van, akkor ugyanazon a soron, és vesszővel válassza el a változókat. A változó létrehozásához el kell végeznünk a változó méretezését. Ehhez írjuk be a Dim -et a változó elé, majd helyezzünk egy előtagot a változóra, hogy tudjuk, mit képvisel a változó. Példaként említhető az str karakterlánc változó obj objektumváltozó const konstansra…. A lista folytatódik. ezeket használjuk ebben a szkriptben, ezért elmagyarázom őket egy kicsit. a karakterlánc általában szöveg, mint egy mondat. Az objektum általában valami fizikai, például fájl vagy program. és állandó az, ami mindig ugyanazt fogja jelenteni a forgatókönyvben. MEGJEGYZÉS: Bármikor, ha egy sornak van egy darabja, mielőtt a vonalat a szkript jelzi. Ezeket megjegyzéseknek hívják, és általában a programozó írja be EMLÉKEZHETNEK, MIT TETTEK KÉSŐBB A KÓD ELLENŐRZÉSE során. FELHASZNÁLOM ŐKET, hogy megjegyzéseket tegyenek a KÓDdal kapcsolatban, hogy lássátok, miért tettem fel a módomat. ÉS FELÜL VANNAK A SOR felett, amelyről megjegyzéseket fűznek. Tényleges használat: "ez a sor arra kényszerít, hogy határozz meg minden változót. Enélkül minden definiálatlan változót objektumként fognak kezelni. Explicit opció "Most 5 változót hozunk létre a szükséges mappákhoz és fájlokhoz", nevezzük el őket, ahogy akarjuk, de a megegyezés preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile karakterlánc -változók létrehozásához a könyvtárhoz, fájlhoz és fájlnévhez Dim strDir, strFile, strFileName'most értékeket rendel hozzá a változókhoz az strDir a könyvtárunk, ahova a mappát szeretnénk az strDir = "C: / Catcher" 'Az strFile az, ahol akarjuk a szövegdokumentum és annak neve fájlunkban három lehetőség áll rendelkezésünkre 'csak a hozzáfűzést fogjuk használni ebben a kódban, de jó tudni mindegyiket. Conons forReading = 1, forWriting = 2, ForAppending = 8' objektumot, hogy később hívhassuk, amikor szükségünk van ráSet objFiS yOb = CreateObject ("Scripting. FileSystemObject")

4. lépés: Magyarázatok a kettő között

Most, hogy méretezzük a változóinkat, nincs más dolgunk, mint minden alkalommal felidézni ezt a változót. Ez nemcsak a gépelés mennyiségét csökkenti, hanem kevesebb hibát is okoz a helyesírási hibák miatt. Most technikailag csak annyit kell tennünk, hogy beírjuk a következő kódot, és készen állunk "állítsa be a fájlt a & strFile, ForAppending, True) 'írja be az új sort a fileobjTextFile. WriteLine ("A számítógép leállt a" & date & "időpontban") "zárja be a fileobjTextFile. Close'készítsen egy felugróWscript. Echo (" Your számítógép leállítása a "& date &" időpontban "& time) 'nyissa meg a fájlt az IESet -ben A probléma az, hogy nem lesz hibajavítás, és minden egyszerű hiba, például a nem létező fájl vagy a már hozzárendelt változó összeomlik a szkriptet.

5. lépés: A szkript megírása 3. rész: Ha akkor a nyilatkozatok hibajavításként

A hibajavítás legegyszerűbb módja az if/then utasítások használata. Alapvetően az if, akkor az utasítás azt mondja, hogy ha valami történik, akkor ezt különben tegye meg. Az if/then utasítások beágyazásával létrehozhat egy sor olyan dolgot, amelyeknek meg kell történniük. Ha a és b és c megtörténik, akkor ezt tegye másként is. Példa: szeretnénk megbizonyosodni arról, hogy a fájl, amibe írni szeretnénk, ott van, ha megtaláljuk, akkor semmit sem akarunk tenni, ha nem találjuk meg, akkor létre szeretnénk hozni, vagy mi szeretné ellenőrizni, hogy a mappa ott van -e, és ha nem, hozza létre, majd ellenőrizze, hogy a fájl ott van -e, miután megtaláltuk a mappát, és ha nem, akkor itt az első példa az if, akkor utasításra, a második pedig beágyazott, ha van. megcsináljuk: az if if utasítás négy részből áll, ha/akkor elseend, ha alapvetően igaz, ha ez igaz, akkor ezt másként tegye meg, majd fejezze be az utasítást egy megfelelően kódolt if akkor utasítással: Ha valami = valami, akkor tegye amit meg kell tennie Más dolgot tegyen Vége "end if" -t teszünk, de ha beágyaztuk a if utasításokat, akkor minden if utasításnak véget kell vetnünk. Gyermekről szülőre fejezi be őket, így az első "end if" befejezi az if utasítást a szülőben, ahol a második befejezi az eredeti (szülő) if utasítást. Egy felugró ablak létrehozásához egyszerűen írja be a Wscript. Echo ("mindegy azt szeretnénk mondani az üzenetben "), hogy egy változóértéket adjunk hozzá, akkor az idézőjelek közé vagy közé tesszük az ampersand (&) jelet elválasztóként, így a szkript tudja, hogy ez egy változó és nem szöveg. mint ez: Wscript. Echo ("Blah bla bla" & strDir & "bla bla bla bla" & strFájlnév & "bla bla bla.") A kimenet egy felugró ablak lenne, amely így szól: Blah blah blah C: / Catcher bla bla bla shutdown_catcher.txt bla bla bla bla. Tényleges használat: 'ha a C mappa; / létező If objFiSyOb. FolderExists (strDir) Then'get mappa Set objSysFold = objFiSyOb. GetFolder (strDir)' elseElse'mappa létrehozása c; / catcher Set objSysFoldObjFi CreateFolder (strDir)’ jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse'create text document shutdown_catcher.txt Set objFile = objFiSyOb. CreateTextFile (strDir & strFile)', majd jelenítsen meg egy üzenetet arról, hogy létrehozta mindkettőt Wscript. Echo ("Van "& strDir &" és egy "& strFilename &" nevű fájlt, és a "& strDir & strFile &" könyvtárba helyezte. ") 'end beágyazva if utasításEnd If'end eredeti if utasítás már megvizsgáltuk a mappát, és megtaláltuk, így most ellenőrizzük a fájlt. Ha objFiSyOb. FileExists (strDir & strFile) Akkor'ha megtaláltuk kapjuk a mappát Set objSysFold = objFiSyOb. GetFolder (strDir) ', különben El''hozzuk létre a dokumentumot Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'hozzon létre egy felugró ablakot, amely szerint a Wscript. Echo szöveges dokumentumot hoztuk létre ("Létrehoztunk egy" & strFileName & "nevű fájlt a" & strDir & "fájlmappában.) Vége Ha

6. lépés: Magyarázatok között

Ha alaposan megnézi az előző lépésben található kódot, akkor beágyazott és nem beágyazott, ha akkor utasítást fog látni. Az első egy beágyazott állítás. Ellenőrzi a mappát és a fájlt, és ha nem találja, mindkettőt létrehozza. A második csak egy fájlt keres, és ha nem találja, akkor csak a fájlt hozza létre. Lehet mondani, hogy miért mindkettő. Nos, mi történik, ha a fájlt törlik, de a mappát nem. Az első if utasítás kihagyja a fájl létrehozását, mert megtalálta a mappát, és soha nem aktiválja a utasítás másik részét. Tehát amikor elment írni a fájlba, hiba lépett fel, mert a fájl hiányzik. Tehát azáltal, hogy ott van a második, megoldja ezt a problémát. Technikailag ki tudná venni a beágyazott utasítást, mert majdnem ugyanaz, mint a második, ha akkor, de akkor csak egy előugró ablak jelenik meg, és nem lenne olyan személyre szabott. Ráadásul esélyt adott arra, hogy megmutassam, hogy beágyazott, szemben az -elmagyarázta, ha kijelentések.

7. lépés: További hibajavítás

Most, hogy befejeztük a hibajavítás nagy részét, amit írni szeretnénk a fájlba, és megjelenítenénk az előugró ablakokat. A probléma az, hogy engedélyezési hibákat kapunk, ha nem adjuk ki a változóban tárolt előző objektum hivatkozását. Tehát egy kis kódrészletet szeretnénk beilleszteni, amely azt mondja, hogy a változókat állítsuk semmire. Így néz ki: set objFile = nothingset objSysFold = nothing out): Opció ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "Shutdown_, = Shutdown_ ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Ha objFiSyOb. FolderExists (strDir), akkor állítsa be az objSysFold = objFiSyOb. GetFolder (strDir) Egyéb beállítása objSysFoldFolstrif Set objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Létrehoztunk egy" & strDir & "nevű mappát és egy" & strFilename & "nevű fájlt a "& strDir & strFile &" könyvtár. ") I. vége fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Ezután állítsa be az objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo fájlt a "We &" fájlban "& strDir &" fájlmappa. ") Vége Ifset objFile = nothingset objSysFold = semmi

8. lépés: A szkript írása 4. rész: Attribútumok beállítása

Most be kell állítanunk az attribútumokat a fájlhoz, hogy módosíthassuk. Korábban három konstans változót állítottunk be: forReading = 1forWriting = 2 forAppending = 8 ha forReading -re állította, olvasni tudja, de nem írhat rá.. Ha a Függelék értéket állítja be, akkor a szkript minden egyes végrehajtásakor új sort ad hozzá a dokumentumhoz. Mivel naplót akarunk minden újraindításról, ezért azt szeretnénk, hogy a rendszer hozzáfűzze, és ne írja felül, ezért a ForAppending parancsot használjuk.: meg kell adnia az objektum nevét, amelyhez attribútumokat kíván beállítani. Mivel a legtöbb munkát már elvégeztük az előző lépésekben, ezen a ponton csak fel kell idéznünk a változókat. Ezután csak állítsa true értékre.

9. lépés: A szkript írása 5. rész: Írás fájlba

Fájlba írni olyan, mint egy felugró ablak írása. Csak beírta: objTextFile. WriteLine ("Bármit is akar mondani" & Változó, hogy húzza be a sor írásához) Az egyetlen különbség az első rész. Egy felugró ablakban írja be: Wscript.echoin egy írási sort: objTextFile. WriteLineAz írási sorban be kell zárnia az írási sort, hogy tudja, hogy abbahagyja az írást, és ehhez használja: objTextFile. CloseActual Usage: objTextFile. WriteLine ("A számítógép leállítása a" & date & "időpontban" & time) objTextFile.close'now adjon hozzá egy előugró ablakot, amelyben azt mondja, hogy Ön írt a fájlba, hogy a személy tudja, hogy ez történt, és be kell zárnia, hogy megnyissa a fájlt, és megtekinthesse a viewWscript. Echo ("A számítógép leállítása a" & date & "címen" & idő)

10. lépés: A szkript írása 5. rész: A fájl megnyitása megtekintésre

A szkript ezen a ponton leáll, amíg valaki nem kattint az előugró ablakra. Miután túljutott a felugró ablakon, beírhat egy sort, amely megnyitja a fájlt. Néhány hibajavítás használata segít a program szép működésében. Amikor hibát hoz létre a vbscriptben, hozzáad egy értéket az "err.number" változóhoz, amely a vbscript előre meghatározott változója. Nem kell definiálnia, és ugyanúgy használhatja, mint bármely más változót, amíg nem sérti a szabályait. Az err.number változóhoz rendelt érték a bekövetkezett hiba kódja. Most ellenőrizheti a vbscript adatbázisban ismert összes hibakódot, és meggyőződhet arról, hogy nem fordult elő. Vagy egyszerűbb, ha ellenőrzi, hogy az err.number változó üres -e. ha üres, nem történt hiba. Ehhez csak ellenőrizzük, hogy a változó egyenlő -e a vbEmpty értékkel. Tehát a szkriptünkben egy másik, akkor utasítást akarunk használni. És ellenőrizze, hogy nem történt -e hiba, és nem nyitotta -e meg a fájlt megtekintésre, de ha igen, akkor jelenjen meg egy üzenet a hibaszámmal, hogy hibakeresést tudjunk végezni. írja be a Wscript. Lépjen ki. Ez azt mondja a szkriptnek, hogy fejezze be magát. Ez segít csökkenteni a memóriaszivárgásokat és a nem kívánt folyamatokat. Hogyan kell használni: ha az err.number egyenlő a vbEmpty -vel, akkor hozzon létre egy shell -t, majd futtassa a programot a shell -ből, ellenkező esetben megjelenik egy üzenet, miszerint hibás trend történt. errorIf err.number = vbEmpty akkor'ha egyik sem hoz létre héjat Set objShell = CreateObject ("WScript. Shell") ', akkor nyissa meg a fájlt a shell -ből az explorer használatával. valójában az IE -ben fog megnyílni, bár az objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'különben felugrik egy üzenet az Else WScript.echo "VBScript hiba:" & err.numberEnd If 'end scriptWscript.quit

11. lépés: A szkript futtatása indításkor

A Start menüben található egy fájlmappa, az Indítás. Minden, ami ebbe a mappába kerül, a számítógép indításakor azonnal elindul. Ha a szkriptfájlt az indítási mappába helyezi, akkor minden alkalommal végrehajtja, amikor a számítógép szándékosan vagy sem újraindul. Mivel ezt csak diagnosztikai eszközként használom, az indításhoz nem kell szolgáltatássá tenni, és nem kell beilleszteni a rendszerleíró adatbázisba, így ez rendben lesz. Miután megjavítottam a számítógépet, törölhetem a fájlt az indítási mappából, és nincs szükség más tisztításra.

12. lépés: A program futtatása

Amikor végrehajtja a vbscript fájlt, az most A. lesz.) Ellenőrizze, hogy létezik -e a C: / Catcher mappa, és ha nem, akkor hozza létre. B:) Ellenőrizze, hogy létezik -e a Shutdown_catcher.txt fájl, és ha nem, akkor hozza létre.) Ha létrehozott egy mappát vagy fájlt, vagy mindkettőt, akkor megjelenik egy üzenet, amely szerint létrehozza őket (Megjegyzés: ezt csak az első futtatás után kell elvégeznie, utána már ott kell lennie, ha nem törli, így csak egyszer láthatja ezt az üzenetet). Jó ötlet lehet, ha egyszer futtatja ezt a szkriptet egy ellenőrzött újraindítás alatt, így megkerülheti ezeket az előugró ablakokat, vagy nem írhat semmit a fájlba, mert nem fogja megkerülni a létrehozott előugró ablakokat.) D:) Írjon egy sort a szöveges dokumentum Shutdown_Catcher.txt, amely azt mondja, hogy a számítógép ilyen és ilyen időpontban leállt ilyen és ilyen időpontban. E:) Egy üzenet jelenik meg, amely azt mondja, hogy újraindítás történt. F:) Nyissa meg a fájlt megtekintésre. Ha megnézi a következő lépést látni fogja a kódot úgy, ahogy meg van írva. Most már csak hátradőlök és várok. Minden alkalommal, amikor a számítógép újraindul, nyilvántartásom lesz róla. Ezután áttekinthetem a rekordot, és megnézhetem, hogy van -e vele összhang. Példa lehet az, hogy félóránként újraindul, vagy bármikor újraindul, ha az óra növekedése vagy 45. Ez egyáltalán nem az egyetlen módja annak, hogy ellenőrizzem a számítógépet, csak hogy tudd. Van egy benchmarking programom is, amely ellenőrzi a hőmérsékletet, így tudom, hogy milyen meleg van, amikor leáll, és a feszültséget, így tudom, hogy a tápegység meghibásodik -e, és még néhány hasznos dolgot. Hát remélem ez hasznos volt. Tudom, hogy élvezem, talán mások is. Ha bármilyen kérdése van, kérdezzen bátran. Lehet, hogy nem megyek hozzájuk azonnal, de egy kicsit, és válaszolok neked. Attól függ, hogy hogy telik a napom/hetem.

13. lépés: A kódex

Ez a kód az összes tipp és megjegyzés nélkül írva Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Ha objFiSyOb. FolderExists (strDir) Ezután állítsa be az objSysFold = objFiSyOb. GetFolderFrD (obDirF) objFiSyOb. FileExists (strDir & strFile) Ezután állítsa be az objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Létrehoztunk egy mappát és" "& strFilename &", és elhelyezte a "& strDir & strFile &" könyvtárban. ") Vége IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Ezután állítsa be az objSysFold = objFiSyOb. GetFolder (strDir) Egyéb beállítást objFile = objreSyT strDir & strFile) Wscript. Echo ("Van létrehozott egy "& strFileName &" nevű fájlt a "& strDir &" fájlmappában. ") End Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile.writeLeírás Kapcsolja ki a "& date &" at "& time" objTextFile. CloseWscript. Echo ("A számítógép leállt a" & date & "időpontban" & time) Ha err.number = vbEmpty akkor Set objShell = CreateObject ("WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Más WScript.echo" VBScript hiba: "& err.numberEnd IfWScript. Quit