Introduktion til VB Script: a Beginners Guide: Del 2: Arbejde med filer: 13 trin

2024 Forfatter: John Day | [email protected]. Sidst ændret: 2024-01-30 08:31

Godt i min sidste VBScript instruerbare, gik jeg over hvordan jeg laver et script til at lukke dit internet for at spille Xbox360. I dag har jeg et andet problem. Min computer har lukket tilfældigt ned, og jeg vil logge hver gang computeren genstarter i en fil. Jeg har en fornemmelse af, at problemet er grafikkortet, men jeg vil være sikker. Jeg lader computeren være tændt hele tiden, men kan ikke overvåge den 24/7, så min nemmeste løsning er at skrive et tidsstempel til en fil, hver gang den genstarter. Fordi det giver mig en BSOD hver gang, vil det være svært at logge, når det lukker ned, så jeg er nødt til at få det, når det tænder igen. Det er den nemme del. Fordi dette bare er midlertidigt, indtil jeg finder ud af, hvad der er galt med computeren, vil jeg ikke skrive til registreringsdatabasen eller gøre det til en service, så det starter ved opstart. Og for at få det til at genstarte hver gang det lukker ned, bliver jeg nødt til at redigere bios.

Trin 1: Redigering af bios for at få det til at genstarte ved strømfejl

Jeg er ikke sikker på, om mit problem er, at strømforsyningen er defekt eller med mit grafikkort eller hvad det er. Men jeg ved, at computeren genstarter så ofte. Så for at sikre, at den genstarter efter et strømafbrydelse (IE: strømforsyningen brunes ud) vil jeg redigere bios. Fordi der er så mange forskellige bios -producenter derude, ville det være for svært at liste alle de forskellige måder at gøre dette på alle de forskellige bios -skærme, så jeg vil bare give dig det grundlæggende og lade dig finde ud af detaljerne på egen hånd. Grundlæggende for at komme ind i din bios skal du trykke på en knap ved opstart. Normalt vil det sige noget som "hit Del for at komme ind i setup" eller "F2". Forskellige producenter giver dig forskellige måder, men det er normalt enten "F2" eller "Del" nøgle. Uanset hvad, se efter det og tryk på den tast, det fortæller dig at trykke på. Nu kommer du til en skærm, der normalt enten er grå eller blå, men igen afhænger det af din bios -fabrikat. Du leder efter en indstilling for strømindstillinger. Det vil enten være på et helt eget vindue som i AMIBIOS -skærmbilledet (lånt fra toms hardware guide) eller i nogle kan det være i et avanceret bios -vindue. Alligevel leder du efter en "gendannelse ved vekselstrøm/tab af strøm". Det kan blive navngivet noget andet, men det vil være tæt på det. Bare se efter det. Det vil normalt have tre muligheder (sidste tilstand, tændt efter strømtab, slukket efter strømtab). Du vil tænde den efter strømafbrydelse. Sørg for at gemme dine indstillinger og afslut bios. Nu når din strøm svigter, eller du tager stikket ud af din maskine, genstarter den, så snart den får strøm tilbage. Yeahhhhhh !!!!!!!!!!!!!!!!

Trin 2: Skrivning af scriptet Del 1: Lav en plan

Det første, vi vil gøre, er at lave en plan. Hvad vil vi præcist have, at scriptet skal gøre. A.) Når strømmen svigter, eller BSOD'en kommer op, vil vi have det til at genstarte. (Behandlet i trin 1 Redigering af BiosB.) Så snart den genstarter, vil vi skrive til en fil den nøjagtige dato og klokkeslæt, den genstartede. C.) Vi ønsker at kunne ændre denne fil. Hvis det genstarter mere end én gang, ville vi aldrig vide det. D.) Vi vil have det til at have fejlkorrektion, så det vil ikke gå i stykker, og vi sørger for at få alle vores genstarter uden at gå glip af noget på grund af dårlig kodning. E.) Vi vil have det for at dukke en meddelelse op, der siger, at den genstartes. F.) Vi vil have den til at åbne den fil, vi skrev til, så vi kan se en liste over alle genstarter, når vi klikker ok på meddelelsen, dukker op.

Trin 3: Skrivning af scriptet Del 2: Oprettelse af dit script og tildeling af variablerne

Ok første ting først, opret et tekstdokument og omdøb det til any_name.vbs. Jeg brugte shutdown_catcher.vbs, men du kan bruge hvad som helst. Nu skal du bare højreklikke på vbs -filen og trykke på edit. Hvis du bruger notesblok ++ nu, ville det være et godt tidspunkt at åbne den, hvis du ikke gør det, men planlægger at kode dig skulle se på at få det. Ok nu er det første, vi vil gøre, at oprette variabler. Variabler er stort set bare en pladsholder, så vi ikke behøver at skrive en hel masse ting en masse gange. eksempel: vi har en sætning, der siger "den hurtige brune ræv springer hen over de dovne hunde tilbage". men det er i vores kode 20 gange. vi kan enten skrive hele sætningen 20 gange eller oprette en variabel og tildele sætningen til den variable Så i dette eksempel opretter vi variablen strSentence og tildeler derefter "den hurtige brune ræv over de dovne hunde tilbage" til den variabel. Nu skal vi bare skrive strSentence hver gang vi har brug for sætningen, og den ved at skrive "den hurtige brune ræv springer over de dovne hunde tilbage" hvordan gør vi det: Hvis vi har flere variabler af samme type, kan vi sætte dem på samme linje og adskille variablerne med kommaer. For at oprette en variabel skal vi gøre det, der kaldes dimensionering af variablen. For at gøre dette skriver vi Dim før variablen, så sætter vi et præfiks på variablen, så vi ved, hvad variablen repræsenterer. Eksempler er str for en strengvariabel obj for en objektvariabel const for en konstant…. Listen bliver ved og ved. det er dem, vi vil bruge i dette script, så jeg vil forklare dem lidt. en streng er normalt tekst som en sætning. Et objekt er normalt noget fysisk som en fil eller et program. og en konstant er noget, der altid vil have den samme betydning i hele scriptet. BEMÆRK: HVER gang en linje har en enkelt 'FØR DET BLIVER IGEN IGEN AF SKRIFTEN. DE KALES BEMÆRKNINGER OG BLIVER Sædvanligvis SET IND AF PROGRAMMEREN SÅ DE KAN HUSKE, HVAD DE GIK SENERE, NÅR DE GENNEMGAR KODEN. JEG VIL BRUGE DEM TIL AT GØRE KOMMENTARER OM KODEN, SÅ DU KAN SE, HVORFOR JEG STØDTE MÅDEN, JEG Gjorde. OG DE VIL VÆRE OVER OVER LINJEN DE KOMMENTERER OM. Faktisk brug: 'denne linje tvinger dig til at definere alle variabler. Uden den vil enhver udefineret variabel blive behandlet som en objektOption Eksplicit, nu opretter vi 5 variabler til mapper og filer, vi skal bruge dem til at navngive dem, som du vil, men konventionen er preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile nu har vi brug for for at oprette strengvariabler til biblioteket, fil og filnavnDim strDir, strFile, strFileName'n nu tildele værdier til variablerne 'strDir er vores bibliotek, vi vil have mappen i strDir = "C: / Catcher"' strFilen er, hvor vi vil tekstdokumentet og hvad det hedderstrFile = "\ Shutdown_catcher.txt" 'strfile -navnet er, så vi har navnet på filen til brug i pop upsstrFileName = "Shutdown_catcher.txt"' næste skal vi tildele en konstant for at få adgang til Vi har kun tre valgmuligheder, vi vil kun bruge tilføjelsen i denne kode, men det er rart at kende dem alle. konstant forReading = 1, forWriting = 2, ForAppending = 8 'til sidst skal vi indstille en variabel til filsystemet objekt, så vi kan kalde det senere, når vi har brug for detSet objFiS yOb = CreateObject ("Scripting. FileSystemObject")

Trin 4: Forklaringer imellem

Nu hvor vi har vores variabler dimensioneret, er alt, hvad vi skal gøre, at huske den specifikke variabel hver gang. Dette reducerer ikke kun mængden af tastning, vi laver, men skaber også færre fejl på grund af stavefejl. Teknisk er alt, hvad vi skal gøre, at skrive følgende kode, og vi er færdige 'sæt filen til appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'skriv den nye linje til filenobjTextFile. WriteLine ("Din computer lukker ned for" & dato & "på" & tid)' luk filenobjTextFile. Close'oprette en pop upWscript. Echo ("Din computer Luk for "& date &" på "& time) 'åbn filen i IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Problemet er, at den ikke vil have nogen fejlkorrektion, og enhver simpel fejl, f.eks. En fil, der ikke findes eller en variabel, der allerede er tildelt, styrter scriptet.

Trin 5: Skrivning af script del 3: If Then erklæringer som fejlrettelse

Den nemmeste måde at foretage fejlkorrektion på er at bruge if/then -sætninger. Grundlæggende siger if if -sætningen, hvis der sker noget, så gør dette ellers gør det. Ved at indlejre hvis/derefter udsagn kan du oprette en række ting, der skal ske. Hvis a og b og c sker, så gør dette ellers gør det. Eksempel: vi vil sikre os, at den fil, vi vil skrive til, er der, hvis vi finder den, vil vi ikke gøre noget, hvis vi ikke finder den, vi vil oprette den eller vi vil kontrollere, om mappen er der, og hvis ikke oprette den, og derefter kontrollere, om filen er der, når vi finder mappen, og hvis den ikke er oprettet, er den første et eksempel på en if then -sætning, den anden er en nestet hvis så. vi gør det: der er fire dele til en if -derefter -sætning hvis/så elseend hvis det i bund og grund er hvis dette er sandt, så gør dette ellers gør det derefter afslutter udsagnet en korrekt kodet hvis så sætning ville være: Hvis noget = noget Så gør hvad du skal gøre Ellers gør noget andetEnd HvisDu kan bruge et hvilket som helst argument, så længe det er sandt, vil det følge den derefter del og ignorere den anden del, men hvis det er falsk, springer det over og går til andet Så når vi afslutter if -sætningen vi sætter "ende hvis", men hvis vi har indlejret hvis udsagn, skal vi afslutte hver if -sætning. Det vil afslutte dem fra barn til forælder, så den første "ende hvis" slutter if -sætningen inde i forælderen, hvor den anden slutter originalen (forælder) if -sætningen. For at lave en pop -up skriver vi bare Wscript. Echo ("uanset hvad vi vil sige i meddelelsen ") for at tilføje en variabelværdi til den, sætter vi den udenfor eller mellem dobbelte citater ved hjælp af ampersand (&) -tegnet som en afgrænsning, så scriptet ved, at det er en variabel og ikke en tekst. som denne: Wscript. Echo ("Blah blah blah" & strDir & "blah blah blah" & strFilename & "blah blah blah.") Output ville være en pop op, der sagde Blah blah blah C: / Catcher blah bla blah shutdown_catcher.txt bla bla bla. Faktisk brug: 'if the folder C; / exist If objFiSyOb. FolderExists (strDir) Then'get folder Set objSysFold = objFiSyOb. GetFolder (strDir)' elseElse'oprette mappen c; / catcher Set objSysFold = objFi CreateFolder (strDir) 'og tjek for at se om filen og mappen findes Hvis objFiSyOb. FileExists (strDir & strFile) Så'hvis den får mappe c: / catcher Set ob jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse'oprette tekstdokument shutdown_catcher.txt Indstil objFile = objFiSyOb. CreateTextFile (strDir & strFile)' så dukker en meddelelse op for at sige, at du har oprettet dem begge Wscript. Echo ("Vi har oprettet en mappe navngivet "& strDir &" og en fil med navnet "& strFilename &" og placerede den i mappen "& strDir & strFile &". ") 'nestede hvis statementEnd If'end original if statementEnd If'now i den første if -sætning vi har allerede tjekket for mappe og fundet den, så nu tjekker vi for fileIf objFiSyOb. FileExists (strDir & strFile) Then'if fundet get folder Set objSysFold = objFiSyOb. GetFolder (strDir) 'ellers El''Opret teksten doc Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'opret en popup, der siger, at vi har oprettet tekstdokumentet Wscript. Echo ("Vi har oprettet en fil med navnet" & strFileName & "i" & strDir & "filmappen.") Afslut hvis

Trin 6: Forklaringer imellem

Hvis du ser nøje på koden fra det foregående trin, vil du se både en indlejret og ikke-indlejret hvis-sætning. Den første er en indlejret erklæring. Det søger efter mappen og filen, og hvis den ikke finder dem, opretter de begge. Den anden leder efter bare en fil, og hvis den ikke finder den, opretter den bare filen. Man kan sige hvorfor begge dele. Hvad sker der, hvis filen slettes, men mappen ikke er det. Den første if -sætning ville springe lige over oprettelsen af filen, fordi den fandt mappen og aldrig ville aktivere den anden del af sætningen. Så når du gik til at skrive til filen, ville den fejle, fordi filen ville mangle. Så ved at have den anden der løser dette problem. Teknisk set kunne du tage det indlejrede udsagn ud, fordi det er næsten det samme som det andet hvis så udsagn, men så ville du kun have en pop -up, og det ville ikke være lige så personligt Plus det gav mig en chance for at vise dig indlejret i modsætning til un -nested hvis udsagn.

Trin 7: Mere fejlrettelse

Nu hvor vi har gennemført størstedelen af fejlkorrektionen, vil vi skrive til filen og vise pop -up'erne. Problemet er, at vi får tilladelsesfejl, hvis vi ikke frigiver referencen til det tidligere objekt, der er gemt i variablen. Så vi vil indsætte et lille stykke kode, der siger sæt variablerne til ingenting. Ser sådan ud: sæt objFile = nothingset objSysFold = ingentingSå for dem af jer, der følger med derhjemme, skulle jeres kode til dette punkt være (jeg tog 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) Herefter indstiller objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSysFold = strjCSFirDrByFirDrByFirDrByFirDrByFirDrFirFirDrFirDrFirDrSFirDrSFirOrSFirDrFirDrBr Indstil objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Vi har oprettet en mappe med navnet" & strDir & "og en fil med navnet" & strFilename & "og placeret den i" biblioteket "& strDir & strFile &". ") Slut I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Indstil derefter objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("har" og "oprettet en "& strDir &" filmappe. ") Afslut Ifset objFile = nothingset objSysFold = ingenting

Trin 8: Skrivning af scriptet Del 4: Indstilling af attributter

Nu skal vi indstille attributterne til filen, så vi kan ændre den. Tidligere har vi indstillet tre konstante variabler: forReading = 1forWriting = 2 forAppending = 8 hvis du indstiller den til forReading, vil du være i stand til at læse den, men ikke skrive til den. Hvis du angiver den til forSkrivning, overskriver du den eksisterende fil, hver gang du kører programmet. Hvis du indstiller det til forAppending, tilføjer du en ny linje hver gang scriptet udføres i dokumentet. Da vi vil have en log for hver gang det genstarter, vil vi have det tilføjet og ikke overskrevet, så vi bruger forAppending. How vi gør det: du skal navngive det objekt, du vil angive attributter til. Da vi allerede har udført det meste af arbejdet i de foregående trin, skal vi bare huske variabler på dette tidspunkt. Indstil den derefter til true. Actual Usage: 'object to set = filesystemobject.action (bibliotek+filnavn, attribut, true eller false) Indstil objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Trin 9: Skrivning af scriptet Del 5: Skrivning til fil

At skrive til en fil er meget som at skrive en pop op. Du sætter bare: objTextFile. WriteLine ("Uanset hvad du vil sige" og variabel for at trække ind for at skrive linje) Den eneste forskel er den første del. I en pop -up sætter du: Wscript.choin en skrivelinje, du sætter: objTextFile. WriteLineAnd i en skrivelinje skal du lukke skrivelinjen, så den ved at stoppe med at skrive, og til det bruger du: objTextFile. CloseActual Usage: objTextFile. WriteLine ("Din computer lukker ned på" & date & "at" & time) objTextFile.close'now tilføj i en popup for at sige, at du har skrevet til filen, så personen ved, at det er sket, og de skal lukke den for at åbne filen og viewWscript. Echo ("Din computer lukker ned på" & date & "at" & tid)

Trin 10: Skrivning af scriptet Del 5: Åbning af filen til visning

Scriptet stopper på dette tidspunkt, indtil nogen klikker på pop op -vinduet. Når du kommer forbi pop op, kan du sætte en linje i, der åbner filen. Ved hjælp af nogle fejlkorrektioner på det hjælper med at holde programmet kørende pænt. Når du opretter en fejl i vbscript, tilføjer det en værdi til variablen "err.number", som er en foruddefineret variabel i vbscript. Du behøver ikke at definere det og kan bruge det ligesom enhver anden variabel, så længe du ikke overtræder dets regler. Den værdi, der er tildelt variablen err.number, er koden til den fejl, der opstod. Nu kan du enten kontrollere for hver fejlkode, der kendes i vbscript -databasen, og sørge for, at den ikke forekom. Eller lettere, bare tjek for at sikre, at variablen err.number er tom. hvis den er tom, opstod der ingen fejl. For at gøre det skal vi bare kontrollere, om variablen er lig med vbEmpty. Så i vores script vil vi bruge en anden if then -erklæring. Og tjek for at se, om der opstod en fejl, og om den ikke åbnede filen til visning, men hvis den så dukkede op en meddelelse med fejlnummeret i den, så vi kan fejlsøge. Så når vi alle er færdige med vores script, skriv Wscript. Quit. Dette fortæller scriptet at afslutte sig selv. Dette hjælper med at holde hukommelseslækagerne og uønskede processer kørende. Sådan bruges det: hvis err.number er lig med vbEmpty, skal du oprette en shell, derefter køre programmet fra shell eller dukke op en meddelelse, der siger, at der var en fejlendelse if. Actual Usage: 'check for errorsIf err.number = vbEmpty then'if none create a shell Set objShell = CreateObject ("WScript. Shell") ', åbn derefter filen fra den skal ved hjælp af explorer. den åbner faktisk i IE selvom objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'ellers dukker en meddelelse op med fejlnummeretElse WScript.echo "VBScript Error:" & err.numberEnd If 'end scriptWscript.quit

Trin 11: Få scriptet til at køre ved opstart

Der er en filmappe i startmenuen kaldet Startup. Alt, der er placeret i denne mappe, starter, så snart computeren startes. Ved at placere scriptfilen i startmappen vil den udføres hver gang computeren genstartes, uanset om den er tilsigtet eller ej. Da jeg kun bruger dette som et diagnostisk værktøj, behøver det ikke gøres til en tjeneste for at starte, og jeg behøver ikke sætte det i registreringsdatabasen for at starte det, så det vil være fint. Når jeg har rettet computeren, kan jeg slette filen fra startmappen, og der kræves ingen anden oprydning.

Trin 12: Kørsel af programmet

Når du udfører vbscript -filen, vil den nu A.) Kontroller, om mappen C: / Catcher eksisterer, og hvis den ikke oprettes. B:) Kontroller, om filen Shutdown_catcher.txt findes, og hvis den ikke er oprettet. C:) Hvis det oprettede enten en mappe eller fil eller begge dele, dukker det op en meddelelse, der siger, at det har oprettet dem (Bemærk: det skulle kun gøre dette ved første kørsel, efter at det allerede skulle være der, medmindre det blev slettet, så du skulle kun se den besked én gang. Det kan være en god idé at køre dette script en gang under en kontrolleret genstart, så du kan omgå disse pop -ups, eller du kan ikke skrive noget til filen, fordi det ikke vil omgå den fil, der er oprettet pop -ups.) D:) Skriv en linje i tekstdokument Shutdown_Catcher.txt siger, at computeren lukker ned på sådan en sådan dato på sådan et tidspunkt. E:) Pop op en besked, der siger, at der var en genstartF:) Åbn filen til visning. Hvis du ser i det næste trin du vil se koden som skrevet. Nu skal jeg bare læne mig tilbage og vente. Hver gang computeren genstarter, vil jeg have en registrering af den. Så kan jeg gennemgå posten og se, om der er nogen konsistens i den. Eksempel kan være, at det genstarter hver halve time, eller at det genstarter, når der er et trin eller 45 på uret. Dette er på ingen måde den eneste måde, jeg tjekker computeren på, bare så du ved det. Jeg har også et benchmarking -program, der kører for at kontrollere vikarer, så jeg ved, hvor varmt det er, når det slukker, spænding, så jeg ved, om strømforsyningen svigter, og et par andre nyttige ting. Jeg håber, at dette var nyttigt. Jeg ved, jeg nyder det, så måske andre også vil. Hvis du har spørgsmål, er du velkommen til at stille. Jeg kommer muligvis ikke til dem med det samme, men med en lille smule, og jeg vil svare dig. Kommer an på hvordan min dag/uge har det.

Trin 13: Koden

Dette er koden som skrevet uden alle hints og bemærkninger_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catchtxt" Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") If objFiSyOb. FolderExists (strDir) Herefter indstiller objSysFold = objFiSyOb. GetFolder (SetDr) FdjSyOldSyOldSFyDySolSyFoldSetOldSyFoldSetObSyOld objFiSyOb. FileExists (strDir & strFile) Indstil derefter objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Vi har oprettet en mappe med navnet" & " "& strFilename &" og placerede det i mappen "& strDir & strFile &". ") Afslut IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Indstil derefter objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSy strDir & strFile) Wscript. Echo ("Vi har oprettet en fil med navnet "& strFileName &" i "& strDir &" filmappen. ") Afslut Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. Write Luk ned for "& date &" at "& time) objTextFile. CloseWscript. Echo (" Din computer lukker for "& date &" på "& time) Hvis err.number = vbEmpty derefter indstiller objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Else WScript.echo" VBScript Error: "& err.numberEnd IfWScript. Quit