Introduksjon til VB Script: a Beginners Guide: Del 2: Arbeide med filer: 13 trinn

2024 Forfatter: John Day | [email protected]. Sist endret: 2024-01-30 11:26

Vel, i min siste VBScript -instruksjon, gikk jeg over hvordan jeg lager et skript for å slå av internett for å spille Xbox360. I dag har jeg et annet problem. Datamaskinen min har slått seg av tilfeldig, og jeg vil logge på hver gang datamaskinen starter på nytt i en fil. Jeg har en følelse av at problemet er skjermkortet, men jeg vil være sikker. Jeg lar datamaskinen stå på hele tiden, men kan ikke overvåke den 24/7, så min enkleste løsning er å skrive et tidsstempel til en fil hver gang den starter på nytt. Fordi det gir meg en BSOD hver gang, vil det være vanskelig å logge når den slås av, så jeg må få den når den kommer på igjen. Det er den enkle delen. Fordi dette bare er midlertidig til jeg finner ut hva som er galt med datamaskinen, kommer jeg ikke til å skrive til registret eller gjøre det til en tjeneste, så det starter opp ved oppstart. Og for å få den til å starte på nytt hver gang den slår seg av, må jeg redigere bios.

Trinn 1: Rediger Bios for å få den til å starte på nytt ved strømbrudd

Jeg er ikke sikker på om problemet mitt er at strømforsyningen svikter eller med skjermkortet mitt eller hva det er. Men jeg vet at datamaskinen starter på nytt noen ganger. Så for å være sikker på at den starter på nytt etter et strømbrudd (IE: strømforsyningen brunes ut) vil jeg redigere bios. På grunn av det faktum at det er så mange forskjellige bioprodusenter der ute, ville det være for vanskelig å liste opp alle de forskjellige måtene å gjøre dette på alle de forskjellige bios -skjermene, så jeg skal bare gi deg det grunnleggende og la deg finne ut detaljene på egen hånd. I utgangspunktet for å komme inn i bios må du trykke på en knapp ved oppstart. Vanligvis vil det si noe sånt som "hit Del to enter setup" eller "F2". Ulike produsenter gir deg forskjellige måter, men det er vanligvis enten "F2" eller "Del" -tasten. Uansett, se etter den og trykk på tasten den forteller deg å trykke. Nå kommer du til en skjerm som vanligvis enten er grå eller blå, men igjen avhenger det av bios -merket ditt. Du vil se etter et alternativ for strøminnstillinger. Det vil enten være på et helt eget vindu som i AMIBIOS -skjermbildet (lånt fra toms hardware guide) eller i noen kan det være i et avansert bios -vindu. Uansett leter du etter en innstilling for "gjenopprett ved vekselstrøm/strømtap". Det kan bli kalt noe annet, men det vil være nær det. Bare se etter det. Den vil vanligvis ha tre alternativer (siste tilstand, på etter strømtap, av etter strømbrudd). Du vil slå den på etter strømbrudd. Sørg for at du lagrer innstillingene og avslutter bios. Når strømmen svikter eller du kobler fra maskinen, starter den på nytt så snart den får strøm igjen. Yeahhhhhh !!!!!!!!!!!!!!!!

Trinn 2: Skrive manus Del 1: Lag en plan

Det første vi vil gjøre er å lage en plan. Hva vil vi at skriptet skal gjøre. A.) Når strømmen svikter eller BSOD kommer opp, vil vi at den skal starte på nytt. (Behandlet i trinn 1 Redigering av BiosB.) Så snart den starter på nytt, vil vi skrive til en fil den eksakte datoen og klokkeslettet den startet på nytt. C.) Vi ønsker å kunne endre den filen. Hvis den starter på nytt mer enn en gang ville vi aldri vite. D.) Vi vil at den skal ha feilkorrigering, slik at den ikke går i stykker, og vi sørger for at vi får alle våre omstarter uten å gå glipp av noen på grunn av dårlig koding. E.) Vi vil ha det for å dukke opp en melding som sier at den er rebooted. F.) Vi vil at den skal åpne filen vi skrev til, slik at vi kan se en liste over alle omstarter når vi klikker ok på meldingen som dukker opp.

Trinn 3: Skrive manus Del 2: Opprette manus og tilordne variablene

Ok først, lag et tekstdokument og gi det nytt navn til any_name.vbs. Jeg brukte shutdown_catcher.vbs, men du kan bruke hva som helst. Nå høyreklikker du bare på vbs -filen og trykker på edit. Hvis du bruker notisblokk ++ nå, ville det være et godt tidspunkt å åpne den, hvis du ikke gjør det, men planlegger å gjøre noe for å kode deg bør se på å få det. Ok nå er det første vi vil gjøre å lage variabler. Variabler er i utgangspunktet bare en plassholder, så vi trenger ikke å skrive en hel haug med ting en haug med ganger. eksempel: vi har en setning som sier "den raske brune reven hopper over de late hundene tilbake". men det er i koden vår 20 ganger. vi kan enten skrive ut hele setningen 20 ganger eller opprette en variabel og tildele setningen til den variabelen Så i dette eksemplet oppretter vi variabelen strSentence og tildeler deretter "de raske brune revene over de late hundene tilbake" til den variabelen. Alt vi trenger å gjøre er å skrive strSentence hver gang vi trenger setningen, og den vet å skrive "den raske brune reven hopper over de late hundene tilbake" hvordan gjør vi det: Hvis vi har flere variabler av samme type som vi kan sette dem på samme linje og skill variablene med kommaer. For å lage en variabel må vi gjøre det som kalles dimensjonering av variabelen. For å gjøre dette skriver vi Dim før variabelen, så setter vi et prefiks på variabelen slik at vi vet hva variabelen representerer. Eksempler er str for en strengvariabel obj for en objektvariabel const for en konstant …. Listen fortsetter og fortsetter. det er disse vi skal bruke i dette skriptet, så jeg skal forklare dem litt. en streng er vanligvis tekst som en setning. Et objekt er vanligvis noe fysisk som en fil eller et program. og en konstant er noe som alltid vil ha den samme betydningen gjennom hele manuset. MERK: HVER GANG EN LINJE HAR EN ENKELLE 'FØR DET SKAL IGENGJØRES LINJEN AV SKRIFTEN. DE KALLES MERKNADER OG BLIR SOM VANLIG INNSTILLT AV PROGRAMMEREN SÅ DE KAN HUSKE HVA DE GJØR SENERE NÅR DE GJENNOMGAR KODEN. JEG VIL BRUKE DEM FOR Å GJØRE KOMMENTARER OM KODEN SÅ DU KAN SE HVORFOR JEG STOFFET MÅTTEN JEG GJORDE. OG DE VIL VÆRE OVER LINJEN DE KOMMENTERER OM. Faktisk bruk: 'denne linjen tvinger deg til å definere alle variablene. Uten den vil en hvilken som helst udefinert variabel bli behandlet som en objectOption Eksplisitt nå lager vi 5 variabler for mappene og filene, vi trenger dem og navngi dem slik du vil, men konvensjonen er preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'now we need for å lage strengvariabler for katalogen, filen og filnavnet strDir, strFile, strFileName'n nå tilordne verdier til variablene 'strDir er vår katalog, vi vil ha mappen i strDir = "C: / Catcher"' strFile er der vi vil tekstdokumentet og hva det heter filen vi har tre alternativer. vi vil bare bruke den tilhørende i denne koden, men det er hyggelig å kjenne dem alle. Const forReading = 1, forWriting = 2, ForAppending = 8 'til slutt må vi sette en variabel til filsystemet objektet slik at vi kan kalle det senere når vi trenger detSet objFiS yOb = CreateObject ("Scripting. FileSystemObject")

Trinn 4: Forklaringer i mellom

Nå som vi har våre variabler dimensjonert, er alt vi trenger å gjøre å huske den spesifikke variabelen hver gang. Dette reduserer ikke bare mengden skriving vi gjør, men skaper også færre feil på grunn av stavefeil. Teknisk er alt vi trenger å gjøre å skrive inn følgende kode, og vi er ferdige 'sett filen for appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'skriv den nye linjen til fileobjTextFile. WriteLine ("datamaskinen Slå av" & date & "at" & time)' lukk filenobjTextFile. Close'lag en pop upWscript. Echo ("Your datamaskin Slå av på "& date &" at "& time) 'åpne filen i IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Problemet er at det ikke vil ha noen feilkorrigering, og enhver enkel feil som for eksempel ikke eksisterende fil eller variabel som allerede er tilordnet, vil krasje skriptet.

Trinn 5: Skrive manus Del 3: If Then erklæringer som feilretting

Den enkleste måten å gjøre feilretting på er å bruke if/then -setninger. I utgangspunktet sier if if -setningen om noe skjer, gjør dette ellers gjør det. Ved å hekke if/then -utsagn kan du lage en rekke ting som må skje. Hvis a og b og c skjer, gjør dette ellers, gjør det. Eksempel: vi vil sørge for at filen vi vil skrive til er der hvis vi finner den, vi vil ikke gjøre noe hvis vi ikke finner den, vi vil lage den eller vi vil sjekke om mappen er der, og hvis ikke opprette den, og deretter sjekke om filen er der når vi finner mappen og hvis ikke opprette den, er den første et eksempel på en if then -setning den andre er nestet hvis da. vi gjør det: det er fire deler til en if if -setning if/then elseend hvis det i utgangspunktet er hvis dette er sant, så gjør dette ellers gjør det så avslutt setningen en riktig kodet hvis setningen ville være: If something = something Do do hva du trenger gjortElse gjøre noe annetEnd IfYou can use any argument so long as it is true it will follow the then part and ignore the else part but if it is false it will skip the then and go to else Så når vi avslutter if -setningen vi setter "ende hvis", men hvis vi har nestet hvis utsagn vi må avslutte hver if -setning. Det vil ende dem fra barn til forelder, så den første "slutten hvis" avslutter if -setningen inne i foreldren, der den andre ender originalen (overordnet) if -setningen. For å lage en pop -up skriver vi bare Wscript. Echo ("uansett vi vil si i meldingen ") for å legge til en variabelverdi i den, legger vi den utenfor eller mellom doble anførselstegn ved å bruke ampersand (&) -tegnet som en skilletegn, slik at skriptet vet at det er en variabel og ikke en tekst. som dette: Wscript. Echo ("Bla bla bla" & strDir & "bla bla bla" & strFilename & "bla bla bla.") Utgangen ville være en popup som sa Bla bla bla C: / Catcher bla bla bla shutdown_catcher.txt bla bla bla. Aktuell bruk: 'if the folder C; / exist If objFiSyOb. FolderExists (strDir) Then'get folder Set objSysFold = objFiSyOb. GetFolder (strDir)' elseElse'create the folder c; / catcher Set objSysFold = objFi CreateFolder (strDir) 'og sjekk om filen og mappen finnes Hvis objFiSyOb. FileExists (strDir & strFile) Then'if det får mappe c: / catcher Set ob jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse'create text document shutdown_catcher.txt Set objFile = objFiSyOb. CreateTextFile (strDir & strFile)' så dukker du opp en melding om at du har opprettet dem begge Wscript. Echo ("Vi har opprettet en mappe kalt "& strDir &" og en fil med navnet "& strFilename &" og plassert den i katalogen "& strDir & strFile &". ") 'nestet if statementEnd If'end original if statementEnd If'now i den første if -setningen vi har allerede sjekket etter mappe og funnet den, så nå sjekker vi om fileIf objFiSyOb. FileExists (strDir & strFile) Then'if funnet get folder Set objSysFold = objFiSyOb. GetFolder (strDir) 'ellers El''opprett teksten doc Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'opprett en popup som sier at vi opprettet tekstdokumentet Wscript. Echo ("Vi har opprettet en fil som heter" & strFileName & "i" & strDir & "filmappen.") Slutt hvis

Trinn 6: Forklaringer i mellom

Hvis du ser nøye på koden fra forrige trinn, vil du se både en nestet og ikke-nestet if-setning. Den første er en nestet uttalelse. Den ser etter mappen og filen, og hvis den ikke finner dem, opprettes begge. Den andre ser etter bare en fil, og hvis den ikke finner den, oppretter den bare filen. Man kan si hvorfor begge deler. Hva skjer hvis filen blir slettet, men mappen ikke er det. Den første if -setningen ville hoppe rett over opprettelsen av filen fordi den fant mappen og aldri ville aktivere den andre delen av setningen. Så når du gikk til å skrive til filen ville det komme feil fordi filen ville mangle. Så ved å ha den andre der løser dette problemet. Teknisk sett kan du ta det nestede utsagnet ut fordi det er nesten det samme som det andre hvis så -utsagnet, men da ville du bare ha en pop -up og det ville ikke være like personlig Pluss det ga meg en sjanse til å vise deg nestet i motsetning til un -hekket hvis uttalelser.

Trinn 7: Mer feilkorrigering

Nå som vi har fullført de fleste feilkorrigeringene, vil vi skrive til filen og vise popup -vinduene. Problemet er at vi får tillatelsesfeil hvis vi ikke slipper referansen til det forrige objektet som er lagret i variabelen. Så vi vil legge inn en liten kodebit som sier at sett variablene til ingenting. Ser slik ut: sett objFile = nothingset objSysFold = ingenting Så for dere som følger med hjemme, bør koden din til dette punktet være (jeg tok kommentaren out): Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "ShutdownRcstring" ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") If objFiSyOb. FolderExists (strDir) Deretter setter objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSysFold = strjCSFirDrByFirDrFirDirFirDirFirDirFirFirDirFirFirStreFirStreFirOrFirDirSFirFirOrSFirOrFirDirFirOrFirOrSOirSrBr Sett objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Vi har opprettet en mappe med navnet" & strDir & "og en fil som heter" & strFilename & "og plassert den i "& strDir & strFile &" -katalogen. ") Slutt I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Sett deretter objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("har" og "opprettet en "& strDir &" filmappe. ") Slutt Ifset objFile = nothingset objSysFold = ingenting

Trinn 8: Skrive manus Del 4: Angi attributter

Nå må vi angi attributtene til filen slik at vi kan endre den. Tidligere har vi satt tre konstante variabler: forReading = 1forWriting = 2 forAppending = 8 hvis du setter den til forReading, vil du kunne lese den, men ikke skrive til den. Hvis du angir den til forSkrivning vil du overskrive den eksisterende filen hver gang du kjører programmet. Hvis du setter den til forAppending, vil du legge til en ny linje hver gang skriptet kjøres i dokumentet. Siden vi vil ha en logg for hver gang den starter på nytt, vil vi at den skal legges til og ikke overskrives, så vi bruker forAppending. Hvordan vi gjør det: du må navngi objektet du vil sette attributter til. Siden vi allerede har gjort det meste av arbeidet i de foregående trinnene, trenger vi bare å huske variabler på dette tidspunktet. Sett deretter den til true. Actual Usage: 'object to set = filesystemobject.action (katalog+filnavn, attributt, true eller false) Angi objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Trinn 9: Skrive manus Del 5: Skrive til fil

Å skrive til en fil er mye som å skrive en popup. Du har nettopp satt: objTextFile. WriteLine ("Uansett hva du vil si" og variabel for å trekke inn for å skrive linje) Den eneste forskjellen er den første delen. I en pop -up legger du: Wscript.choin en skrivelinje du legger: objTextFile. WriteLineAnd i en skrivelinje må du lukke skrivelinjen slik at den vet å slutte å skrive, og for det bruker du: objTextFile. CloseActual Usage: objTextFile. WriteLine ("Datamaskinen slås av på" & date & "at" & time) objTextFile.close'now legg til i en popup for å si at du skrev til filen, slik at personen vet at det skjedde, og de må lukke den for å åpne filen og viewWscript. Echo ("datamaskinen Slå av" & date & "at" & tid)

Trinn 10: Skrive manus Del 5: Åpne filen for visning

Manuset stopper på dette tidspunktet til noen klikker på popup -vinduet. Når du kommer forbi popup -vinduet kan du sette inn en linje som åpner filen. Ved å bruke litt feilkorrigering på det, kan du holde programmet i gang. Når du oppretter en feil i vbscript, tilfører det en verdi til variabelen "err.number", som er en forhåndsdefinert variabel i vbscript. Du trenger ikke å definere den og kan bruke den akkurat som alle andre variabler så lenge du ikke bryter reglene. Verdien som er tilordnet err.number -variabelen er koden for feilen som oppstod. Nå kan du enten se etter hver feilkode som er kjent i vbscript -databasen og sørge for at den ikke oppstod. Eller enklere, er det bare å sjekke om variabelen err.number er tom. hvis det er tomt oppstod det ingen feil. For å gjøre det, sjekker vi bare om variabelen er lik vbEmpty. Så i skriptet vårt vil vi bruke en annen if if -setning. Og sjekk om det oppstod en feil, og hvis den ikke åpnet filen for visning, men hvis den gjorde det, dukker det opp en melding med feilnummeret i den, slik at vi kan feilsøke. Så når vi alle er ferdige med skriptet vårt, skriv Wscript. Quit. Dette forteller skriptet å avslutte seg selv. Dette hjelper til med å holde minnelekkasjene og uønskede prosesser i gang. Hvordan brukes det: hvis err.number er lik vbEmpty, opprett deretter et skjell, og kjør deretter programmet fra skallet. errorsIf err.number = vbEmpty then'if none create a shell Sett objShell = CreateObject ("WScript. Shell") 'og åpne deretter filen fra det skallet ved hjelp av explorer. den åpnes faktisk i IE selv om objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'ellers dukker opp en melding med feilnummerElse WScript.echo "VBScript Error:" & err.numberEnd If 'end scriptWscript.quit

Trinn 11: Få skriptet til å kjøre ved oppstart

Det er en filmappe i startmenyen som heter Oppstart. Alt som er plassert i denne mappen starter opp så snart datamaskinen startes. Ved å plassere skriptfilen i oppstartsmappen, vil den kjøres hver gang datamaskinen startes på nytt, enten den er tilsiktet eller ikke. Siden jeg bare bruker dette som et diagnostisk verktøy, trenger det ikke gjøres om til en tjeneste for å starte, og jeg trenger ikke sette det inn i registret for å starte det, så dette vil gå bra. Når jeg har fikset datamaskinen, kan jeg slette filen fra oppstartsmappen, og det er ingen annen opprydding nødvendig.

Trinn 12: Kjøre programmet

Når du kjører vbscript -filen vil den nå A.) Kontroller om mappen C: / Catcher eksisterer og ikke opprett den. B:) Kontroller om filen Shutdown_catcher.txt eksisterer, og hvis ikke opprett den. C:) Hvis den opprettet enten en mappe eller fil eller begge deler, vil det dukke opp en melding om at den skapte dem (Merk: den skulle bare gjøre dette ved første kjøring etter at den allerede skulle være der med mindre den ble slettet, så du skulle bare se meldingen en gang. Det kan være en god idé å kjøre dette skriptet en gang under en kontrollert omstart, slik at du kan omgå disse popup -vinduene, eller du kan ikke skrive noe til filen fordi den ikke vil omgå filen som er opprettet pop -ups.) D:) Skriv en linje i tekstdokument Shutdown_Catcher.txt som sier at datamaskinen slår seg av på en slik dato på et slikt tidspunkt. E:) Dukker opp en melding om at det var en omstart F:) Åpne filen for visning. Hvis du ser i neste trinn du vil se koden som skrevet. Nå er det bare å lene meg tilbake og vente. Hver gang datamaskinen starter på nytt, vil jeg ha en oversikt over den. Deretter kan jeg gå gjennom posten og se om det er noen konsistens i den. Eksempel kan være at den starter på nytt hver halve time eller at den starter på nytt hver gang det er et trinn eller 45 på klokken. Dette er på ingen måte den eneste måten jeg sjekker datamaskinen på, bare så du vet det. Jeg har også et referanseprogram som kjører for å sjekke temps, så jeg vet hvor varmt det er når det slår seg av, spenning så jeg vet om strømforsyningen svikter og noen andre nyttige ting. Vel, jeg håper dette var nyttig. Jeg vet at jeg liker det, så kanskje andre også vil gjøre det. Hvis du har spørsmål, vennligst spør. Jeg kommer kanskje ikke til dem med en gang, men snart vil jeg svare deg. Kommer an på hvordan det går med dagen/uken min.

Trinn 13: Koden

Dette er koden som skrevet uten alle hint og bemerkninger_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") If objFiSyOb. FolderExists (strDir) Then Set objSysFold = objFiSyOb. GetFolder (strDj) objFiSyOb. FileExists (strDir & strFile) Sett deretter objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Vi har opprettet en mappe med navnet" & " "& strFilename &" og plasserte den i katalogen "& strDir & strFile &".)) Avslutt IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Sett deretter objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSy strDir & strFile) Wscript. Echo ("Vi har opprettet en fil som heter "& strFileName &" i "& strDir &" filmappen. ") Slutt Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. Write Slå av på "& date &" at "& time) objTextFile. CloseWscript. Echo (" datamaskinen Slå av "& date &" at "& time) Hvis err.number = vbEmpty deretter Angi objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Else WScript.echo" VBScript Error: "& err.numberEnd IfWScript. Quit