VB skripti sissejuhatus: algajate juhend: 2. osa: failidega töötamine: 13 sammu

2024 Autor: John Day | [email protected]. Viimati modifitseeritud: 2024-01-30 08:51

Noh, oma viimases juhendatavas VBScriptis vaatasin üle, kuidas teha skripti, et Xbox360 mängimiseks Internet välja lülitada. Täna on mul teistsugune probleem. Minu arvuti on suletud juhuslikel aegadel ja tahan logida iga kord, kui arvuti faili taaskäivitab. Mul on tunne, et probleem on videokaardis, kuid ma tahan selles veenduda. Jätan arvuti alati sisse, kuid ei saa seda ööpäevaringselt jälgida, nii et minu lihtsaim lahendus on kirjutada failile iga kord taaskäivitamisel ajatempel. Kuna see annab mulle iga kord BSOD -i, on selle väljalülitamisel logimine raske, nii et pean selle uuesti sisselülitamisel hankima. See on lihtne osa. Kuna see on vaid ajutine, kuni saan aru, mis arvutil viga on, ei kirjuta ma registrisse ega tee sellest teenust, nii et see käivitub alglaadimise ajal. Ja et see taaskäivituks iga kord, kui see välja lülitub, pean biosit muutma.

Samm: biosi redigeerimine, et see taaskäivituks voolukatkestuse korral

Ma pole kindel, kas minu probleem on toiteallika rikkega või videokaardiga või milles see on. Kuid ma tean, et arvuti taaskäivitub nii tihti. Nii et veendumaks, et see taaskäivitub pärast voolukatkestust (IE: toide pruunistub), tahan biosit redigeerida. Kuna seal on nii palju erinevaid biositegijaid, oleks liiga raske loetleda kõiki erinevaid viise, kuidas seda teha kõigil erinevatel bios -ekraanidel, nii et ma annan teile lihtsalt põhitõed ja annan teile aru spetsiifika ise. Põhimõtteliselt peate oma biosse sisenemiseks vajutama käivitamisel nuppu. Tavaliselt ütleb see midagi sellist nagu "vajutage seadistusse sisenemiseks Del" või "F2". Erinevad tootjad pakuvad teile erinevaid viise, kuid tavaliselt on see klahv "F2" või "Del". Mõlemal juhul jälgige seda ja vajutage klahvi, mida see käsib lüüa. Nüüd jõuate ekraanile, mis on tavaliselt hall või sinine, kuid jällegi sõltub see teie bios -tootest. Otsite toitesätete valikut. See asub kas aknal, nagu AMIBIOS -ekraanipildil (laenatud Tomsi riistvarajuhendist) või mõnel juhul võib see olla täiustatud biosfunktsioonide aknas. Igatahes otsite seadet "taastamine vahelduvvoolul/voolukatkestusel". Seda võib nimetada muuks, kuid see on selle lähedal. Lihtsalt otsige seda. Tavaliselt on sellel kolm võimalust (viimane olek, sisse lülitatud pärast voolukatkestust, välja lülitatud pärast voolukatkestust). Soovite selle pärast voolukatkestust sisse lülitada. Salvestage kindlasti oma seaded ja väljuge biosist. Nüüd, kui teie toide katkeb või masina vooluvõrgust lahti ühendate, taaskäivitub see kohe, kui see taastub. Jahhhhhh !!!!!!!!!!!!!!!!

2. samm: stsenaariumi kirjutamine 1. osa: plaani koostamine

Esimene asi, mida me teha tahame, on plaani koostamine. Mida me täpselt skriptiga teha tahame. A.) Kui toide katkeb või BSOD ilmub, tahame, et see taaskäivituks. (Hoolitseda 1. etapis BiosB redigeerimine.) Niipea kui see taaskäivitub, tahame faili kirjutada selle taaskäivitamise täpse kuupäeva ja kellaaja. C.) Tahame seda faili muuta. D. avada sõnum, milles öeldakse, et see on taaskäivitatud. F.) Me tahame, et see avaks faili, millele me kirjutasime, et saaksime näha kõigi taaskäivituste loendit, kui klõpsame hüpikaknas nuppu OK.

3. samm: skripti kirjutamine 2. osa: skripti loomine ja muutujate määramine

Esiteks looge tekstidokument ja nimetage see ümber nimeks any_name.vbs. Ma kasutasin shutdown_catcher.vbs, kuid saate kasutada kõike. Nüüd paremklõpsake vbs -faili ja klõpsake nuppu Redigeeri. Kui kasutate märkmikku ++, oleks praegu hea aeg see avada, kui te seda ei tee, kuid kavatsete seda kodeerida Peaksime uurima selle saamist. Okei, esimene asi, mida me tahame teha, on luua muutujaid. Muutujad on põhimõtteliselt vaid kohahoidjad, nii et me ei pea mitu korda terve hulga asju kirjutama. näide: meil on lause, mis ütleb "kiire pruun rebane hüppab üle laiskade koerte tagasi". kuid see on meie koodis 20 korda. võime kogu lause 20 korda välja trükkida või luua muutuja ja määrata sellele muutujale lauseNäiteks loome selles näites muutuja strSentence ja määrame sellele muutujale "kiire pruun rebane hüppab üle laiskade koerte tagasi". Nüüd peame vaid kirjutama strSentence iga kord, kui meil seda lauset vaja on, ja ta teab, kuidas kirjutada "kiire pruun rebane hüppab üle laiskade koerte tagasi", kuidas seda teha: kui meil on mitu sama tüüpi muutujat, need samale reale ja eraldavad muutujad komadega. Muutuja loomiseks peame tegema seda, mida nimetatakse muutuja mõõtmete määramiseks. Selleks kirjutame muutuja ette Dim, seejärel paneme muutujale eesliite, et saaksime teada, mida muutuja kujutab. Näited on str stringmuutuja obj objekti muutuja const jaoks konstanti jaoks. Loend jätkub ja kestab. need on need, mida me selles skriptis kasutame, nii et ma selgitan neid veidi. string on tavaliselt tekst nagu lause. Objekt on tavaliselt midagi füüsilist, näiteks fail või programm. ja konstant on miski, millel on kogu stsenaariumis alati sama tähendus. MÄRKUS. MIDAGI AJAL ON Liinil enne selle esitamist üksainus skript, mida nimetatakse skriptiks. Neid nimetatakse märkusteks ja need sisestatakse tavaliselt programmeerija poolt NAD TULEVAD MEELDE, MIDA KOODI LÄBIVAATAMISEL HILJEM TEGID. KASUTAN NENDE KOODI KOMMENTAARIDE KOHTA, NÄETE NÄGEMISEKS, MIKS MA TEIN. JA NAD ON ÜLE RIDA, MIDA KOMMENTAERID. Tegelik kasutamine: "see rida sunnib teid määratlema kõik muutujad. Ilma selleta käsitletakse määratlemata muutujat objektina. Valik Selgesõnaline, nüüd loome vajalike kaustade ja failide jaoks 5 muutujat, nimetage need soovitud viisil, kuid kokkulepe on preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'nüüd stringi muutujate loomiseks kataloogile, failile ja failinimele tekstidokument ja selle nimi.strFile = "\ Shutdown_catcher.txt" 'strfile'i nimi on nii, et meil oleks faili nimi, mida kasutada pop upsstrFileName = "Shutdown_catcher.txt"' järgmiseks peame määrama konstandile juurdepääsu failil on meil kolm võimalust "me kasutame ainult selle koodi lisamist, kuid on tore neid kõiki teada saada. Confor forReading = 1, forWriting = 2, ForAppending = 8" Lõpuks peame failisüsteemile muutuja määrama objekti, et saaksime seda hiljem vajadusel nimetadaSet objFiS yOb = CreateObject ("Scripting. FileSystemObject")

4. samm: selgitused vahepeal

Nüüd, kui oleme oma muutujad mõõtmetega välja pannud, peame vaid selle konkreetse muutuja iga kord meelde tuletama. See mitte ainult ei vähenda meie tippimist, vaid tekitab ka vähem vigu õigekirjavigade tõttu. Nüüd peame tehniliselt ainult sisestama järgmise koodi ja oleme valmis 'määrake fail lisamiseksSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) "kirjutage uus rida failiobjTextFile. WriteLine (" Teie arvuti lülitatakse välja "& date &" kell "& time") 'sulgege arvuti Sulgege "& date &" kell "& time") avage fail IESetis objShell = CreateObject ("WScript. Shell") objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") Probleem on selles, et sellel pole vigade parandust ja kõik lihtsad vead, näiteks fail, mida pole olemas või juba määratud muutuja, kukuvad skripti kokku.

5. samm: skripti kirjutamine 3. osa: kui siis avaldused veaparandusena

Lihtsaim viis vigade parandamiseks on kasutada avaldusi if/then. Põhimõtteliselt ütleb lause if if, kui midagi juhtub, siis tehke seda muidu. If/siis lausete pesastamisega saate luua rea asju, mis peavad juhtuma. Kui juhtub a ja b ja c, tehke seda ka muul viisil. Näide: tahame veenduda, et fail, kuhu soovime kirjutada, on olemas soovite kontrollida, kas kaust on olemas ja kui mitte, siis looge see ja seejärel kontrollige, kas fail on seal, kui me selle kausta leiame ja kui seda ei looda me teeme seda: avalduses if siis on neli osa, kui/siis elseend, kui see on põhimõtteliselt tõsi, siis tehke seda muidu, tehke seda, seejärel lõpetage avaldus korralikult kodeeritud, kui siis lause oleks: Kui midagi = midagi, siis tehke mida sa pead tegema Muu tee midagi muud Lõpp kui sa saad kasutada mis tahes argumente niikaua kui see on tõene, järgib see tollast osa ja ignoreerib teist osa, kuid kui see on vale, jätab see siis vahele ja läheb mujale Siis kui lõpetame if lause paneme "lõpp, kui", aga kui oleme paigutanud if -laused, peame iga if -lause lõpetama. See lõpetab need lapselt vanemale, nii et esimene "end if" lõpetab if -lause vanema sees, kus teine lõpetab esialgse (vanem) if -lause. Hüpikakna tegemiseks kirjutame lihtsalt Wscript. Echo ("mida iganes me tahame sõnumis öelda "), et lisada sinna muutujate väärtus, paneme selle kahekordse jutumärgi vahele või vahele, kasutades eraldajana märki" & ", nii et skript teab, et see on muutuja, mitte tekst. nagu see: Wscript. Echo ("Blah blah blah" & strDir & "blah blah blah" & strFilename & "blah blah blah.") Väljundiks oleks hüpikaken, mis ütles Blah blah blah C: / Catcher blah blah blah shutdown_catcher.txt blah blah blah. Tegelik kasutamine: "kui kaust C; / olemas If objFiSyOb. FolderExists (strDir) Siis" saa kausta Set objSysFold = objFiSyOb. GetFolder (strDir) "elseElse'loo kaust c; / püüdja Set objSysFoldObjFi CreateFolder (strDir) 'ja kontrollige, kas fail ja kaust on olemas. Kui objFiSyOb. FileExists (strDir & strFile) Siis'kui see saab kausta c: / catcher jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse'loo tekstidokument shutdown_catcher.txt Määra objFile = objFiSyOb. CreateTextFile (strDir & strFile)' ja seejärel hüpikaken, mis ütleb, et lõid need mõlemad Wscript. Echo ("Meil on nimega "& strDir &" ja faili nimega "& strFilename &" ning paigutanud selle kataloogi "& strDir & strFile &". ") 'end nested if utasítás me juba kontrollisime kausta ja leidsime selle, nii et nüüd kontrollime failiIf objFiSyOb. FileExists (strDir & strFile) Siis'kui leiti hangi kaust Set objSysFold = objFiSyOb. GetFolder (strDir) 'muidu loo tekst doc Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'looge hüpikaken, milles öeldi, et lõime tekstidokumendi Wscript. Echo ("Oleme loonud faili nimega" & strFileName & "failikausta" & strDir & "."

6. samm: selgitused vahepeal

Kui vaatate eelmise sammu koodi tähelepanelikult, näete nii pesastatud kui ka pesastamata lauset. Esimene neist on pesastatud avaldus. See kontrollib kausta ja faili ning kui neid ei leia, loob mõlemad. Teine otsib ainult faili ja kui seda ei leia, loob see ainult faili. Võib öelda, miks mõlemad. Mis juhtub, kui fail kustutatakse, kuid kaust pole. Esimene if -lause jätaks faili loomise üle, kuna leidis kausta ja ei käivita kunagi avalduse muud osa. Nii et kui läksite faili kirjutama, ilmnes tõrge, kuna fail oleks puudu. Nii et teine on olemas ja see lahendab selle probleemi. Tehniliselt võiksite pesastatud avalduse välja võtta, sest see on peaaegu sama kui teine, kui siis avaldus, kuid siis oleks teil ainult üks hüpikaken ja see poleks nii isikupärane. Lisaks andis see mulle võimaluse näidata, et olete pesastatud, mitte -avaldused avaldatud.

Samm: rohkem vigade parandamist

Nüüd, kui oleme suurema osa veaparandusest lõpule viinud, tahame faili kirjutada ja hüpikaknaid kuvada. Probleem on selles, et kui me ei avalda muutujale salvestatud eelmise objekti viiteid, saame loa vead. Nii et me tahame sisestada väikese koodilõigu, mis ütleb, et muutujate väärtuseks ei määrata midagi. Näeb välja selline: set objFile = nothingset objSysFold = nothing out): Valik ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: Catcher" strFile = "Shutdown_catcher.txt" strFileName = "Shutdown_", ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Kui objFiSyOb. FolderExists (strDir) Seejärel seadistage objSysFold = objFiSyOb. GetFolder (strDir) Muu Määra objSysFoldFool = strjir Määra objSysFold = objFiSyOb. GetFolder (strDir) Muu Määra objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Oleme loonud kausta nimega" & strDir & "ja faili nimega" & strFilename & " kataloogi "& strDir & strFile &". ") Lõpp I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Seejärel määrake objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo failis nimega & " "& strDir &" failikaust. ") Lõpeta Ifset objFile = nothingset objSysFold = mitte midagi

Samm 8: Skripti kirjutamine 4. osa: Atribuutide määramine

Nüüd peame faili atribuudid määrama, et saaksime seda muuta. Varem seadsime kolm konstantset muutujat: forReading = 1forWriting = 2 forAppending = 8 Kui määrate selle lugemiseks, saate seda lugeda, kuid mitte sinna kirjutada. Kui määrate selle väärtusele. Kui määrate selle olekule Lisamine, lisate uue rea iga kord, kui skript dokumendile käivitub. Kuna me tahame iga kord, kui see taaskäivitub, logi, siis soovime, et see lisataks, mitte üle kirjutataks, nii et me kasutame forAppending.: peate nimetama objekti, millele soovite atribuudid seada. Kuna oleme enamiku eelmiste sammude tööst ära teinud, peame siinkohal lihtsalt muutujad meelde tuletama. Seejärel määrake see lihtsalt tõele. Tegelik kasutamine: 'objekt set = filesystemobject.action (kataloog+faili nimi, atribuut, tõene või vale) Määra objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

9. samm: skripti kirjutamine 5. osa: faili kirjutamine

Faili kirjutamine sarnaneb hüpikakna kirjutamisega. Sa lihtsalt panid: objTextFile. WriteLine ("Mida iganes sa tahad öelda" ja muutuja, mida saab kirjutada rea kirjutamiseks) Ainus erinevus on esimene osa. Hüpikaknas paned: Wscript.echoin kirjutatud rea: objTextFile. WriteLineAn kirjutusreas peate kirjutusrea sulgema, et ta teaks kirjutamise lõpetada ja selleks kasutage: objTextFile. CloseActual Usage: objTextFile. WriteLine ("Teie arvuti lülitatakse välja" & date & "kell" & time "objTextFile.close'now lisage hüpikaknasse, et öelda, et kirjutasite faili, nii et inimene teab, et see juhtus, ja ta peab faili avamiseks ja viewWscript. Echo ("Teie arvuti välja lülitama" & date & "at" & aeg)

Samm 10: Skripti kirjutamine 5. osa: faili avamine vaatamiseks

Skript peatub sel hetkel, kuni keegi klõpsab hüpikaknal. Kui hüpikaknast mööda pääsete, saate faili avamiseks sisestada rea. Mõne veaparanduse kasutamine aitab programmi kenasti töös hoida. Kui loote vbscriptis vea, lisab see väärtuse muutujale "err.number", mis on vbscriptis eelnevalt määratletud muutuja. Te ei pea seda määratlema ja saate seda kasutada nagu iga muud muutujat, kui te ei riku selle reegleid. Muutujale err.number määratud väärtus on ilmnenud vea kood. Nüüd saate kontrollida kõiki vbscripti andmebaasis teadaolevaid veakoode ja veenduda, et seda ei esinenud. Või lihtsam, lihtsalt kontrollides, veenduge, et muutuja err.number on tühi. kui see on tühi, ei esinenud vigu. Selleks kontrollime lihtsalt, kas muutuja on vbEmptyga võrdne. Seega tahame oma skriptis kasutada teist lauset, kui siis. Ja kontrollige, kas ilmnes tõrge ja kas see ei avanud faili vaatamiseks, kuid kui see juhtus, siis ilmub tõrketeatega teade, et saaksime siluda. Siis, kui oleme kõik oma skriptiga lõpetanud tippige Wscript. Lõpeta. See käsib skriptil end lõpetada. See aitab hoida mälulekkeid ja soovimatuid protsesse töötamast. Kuidas seda kasutada: kui err.number on võrdne vbEmpty, siis looge kest ja käivitage programm kestast, muidu ilmub teade, milles öeldakse, et viga on olemas. Tegelik kasutamine: "kontrollige errorIf err.number = vbTühi siis'kui ükski ei loo kesta Set objShell = CreateObject ("WScript. Shell") ', siis avage fail sellest kestast, kasutades explorerit. see avaneb tegelikult IE -s, kuigi objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") "muidu ilmub teade veanumbrigaElse WScript.echo" VBScript Error: "& err.numberEnd If 'end scriptWscript.quit

Samm 11: Skripti käivitamine käivitamisel

Stardimenüüs on failikaust nimega Startup. Kõik sellesse kausta paigutatud asjad käivituvad kohe pärast arvuti käivitamist. Asetades skriptifaili käivituskausta, käivitub see iga kord, kui arvuti taaskäivitatakse tahtlikult või mitte. Kuna ma kasutan seda ainult diagnostikavahendina, ei pea sellest alustamiseks teenust tegema ega käivitamiseks seda registrisse sisestama, nii et see sobib. Kui olen arvuti parandanud, saan faili käivituskaustast kustutada ja muud puhastamist pole vaja.

12. samm: programmi käivitamine

Vbscripti faili käivitamisel kuvatakse see nüüd A.) Kontrollige, kas kaust C: / Catcher on olemas ja kui mitte, siis looge see. B:) Kontrollige, kas fail Shutdown_catcher.txt on olemas ja kui mitte, siis looge see. C:) Kui see lõi kas kausta või faili või mõlemad, ilmub teade, et see loodi (Märkus: see peaks seda tegema ainult esimesel käivitamisel pärast seda, kui see peaks seal juba olema, kui see pole kustutatud, nii et peaksite seda teadet nägema ainult üks kord). See võib olla hea mõte käivitada see skript üks kord kontrollitud taaskäivitamise ajal, et saaksite neist hüpikakendest mööda minna või te ei pruugi faili midagi kirjutada, kuna see ei jäta loodud hüpikakendest mööda.) D:) Kirjutage rida tekstidokument Shutdown_Catcher.txt, milles öeldakse, et arvuti lülitub sellisel ja sellisel kuupäeval sellisel ja sellisel ajal välja. E:) Ilmub teade, milles öeldakse, et oli taaskäivitusF:) Avage fail vaatamiseks. Kui vaatate järgmist sammu näete koodi nii, nagu see on kirjutatud. Nüüd pean vaid istuma ja ootama. Iga kord, kui arvuti taaskäivitub, on mul selle kohta rekord. Siis saan plaadi üle vaadata ja vaadata, kas sellel on järjepidevus. Näide võib olla see, et see taaskäivitub iga poole tunni tagant või taaskäivitub iga kord, kui kellal on juurdekasv või 45. See pole kaugeltki ainus viis, kuidas ma arvutit kontrollin. Mul on ka võrdlusprogramm, mis kontrollib temperatuure, nii et ma tean, kui kuum see välja lülitub, pinge, nii et ma tean, kas toide katkeb, ja veel mõned kasulikud asjad. No ma loodan, et sellest oli abi. Ma tean, et mulle meeldib see, nii et võib -olla ka teistele. Kui teil on küsimusi, küsige julgelt. Võib -olla ei jõua ma nendega kohe, kuid pisut pisut ja vastan teile. Oleneb kuidas mu päev/nädal läheb.

13. samm: kood

See on kood, mis on kirjutatud ilma kõigi vihjete ja märkusteta. Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Kui objFiSyOb. FolderExists (strDir) Seejärel seadistage objSysFold = objFiSyOb. GetFolderFool (strDj) objFiSyOb. FileExists (strDir & strFile) Seejärel määrake objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Oleme loonud kausta nimega &" "& strFilename &" ja paigutas selle kataloogi "& strDir & strFile &". ") Lõpetage IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Seejärel määrake objSysFold = objFiSyOb. GetFolder (strDir) Muu Määra objFile = objileSy strDir & strFile) Wscript. Echo ("Meil on lõi faili & kausta & strDir & "faili nimega" & strFileName & ".") Lõpeta Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile.writeLine Lülitage "& date &" välja kell "& time" objTextFile. CloseWscript. Echo ("Teie arvuti lülitatakse välja" & date & "kell" & time ") Kui err.number = vbTühi, siis Määra objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Muu WScript.echo" VBScripti tõrge: "& err.numberEnd IfWScript. Quit