Uvod v skript VB: Vodnik za začetnike: 2. del: Delo s datotekami: 13 korakov

2024 Avtor: John Day | [email protected]. Nazadnje spremenjeno: 2024-01-30 12:09

V zadnjem navodilu VBScript sem preučil, kako narediti skript za izklop interneta za predvajanje Xbox360. Danes imam drugačen problem. Računalnik se je naključno izklopil in želim se prijaviti vsakič, ko se računalnik znova zažene v datoteko. Občutek imam, da je težava v grafični kartici, vendar se želim prepričati. Računalnik puščam ves čas vklopljen, vendar ga ne morem spremljati 24 ur na dan, zato je moja najlažja rešitev zapisati časovni žig v datoteko ob vsakem ponovnem zagonu. Ker mi vsakič da BSOD, bo beleženje, ko se izklopi, težko, zato ga moram dobiti, ko se ponovno vklopi. To je enostaven del. Ker je to le začasno, dokler ne ugotovim, kaj je narobe z računalnikom, ne bom pisal v register ali ga naredil za storitev, da se bo zagnal ob zagonu. In da se bo znova zagnal vsakič, ko se izklopi, bom moral urediti bios.

1. korak: Urejanje BIOS -a za ponovni zagon ob izpadu napajanja

Nisem prepričan, ali je moja težava v izpadu napajanja ali v moji grafični kartici ali v čem je. Vem pa, da se računalnik občasno znova zažene. Torej, da se prepričam, da se po izpadu napajanja znova zažene (IE: napajalnik porumeni), želim urediti bios. Ker obstaja toliko različnih proizvajalcev bios, bi bilo preveč težko našteti vse različne načine za to na vseh različnih zaslonih bios, zato vam bom predstavil samo osnove in vam omogočil, da ugotovite Za vstop v svoj bios morate pritisniti gumb ob zagonu. Ponavadi bo pisalo nekaj takega kot "pritisnite Del za vstop v nastavitve" ali "F2". Različni proizvajalci vam ponujajo različne načine, vendar je to običajno tipka "F2" ali "Del". Kakorkoli, pazite na to in pritisnite tipko, ki vam pove, da morate zadeti. Zdaj boste prišli do zaslona, ki je običajno siv ali moder, vendar je spet odvisno od vaše biografije. Iskali boste možnost nastavitev moči. To bo bodisi na samem oknu, kot je na posnetku zaslona AMIBIOS (izposojeno iz priročnika za strojno opremo toms), ali pa je morda v oknu z naprednimi bios funkcijami. Kakorkoli že, iščete nastavitev "obnovi ob izpadu napajanja/napajanja". Lahko se imenuje drugače, vendar bo blizu temu. Samo poiščite ga. Običajno ima tri možnosti (zadnje stanje, vklopljeno po izpadu napajanja, izklopljeno po izpadu napajanja). Želite ga vklopiti po izpadu napajanja. Shranite nastavitve in zapustite bios. Zdaj, ko izklopite napajanje ali izklopite napravo, se bo znova zagnala takoj, ko se bo ponovno napajala. Jahhhhh !!!!!!!!!!!!!!!!

2. korak: Pisanje skripta 1. del: Izdelava načrta

Prva stvar, ki jo želimo narediti, je ustvariti načrt. Kaj točno želimo, da naredi skript. A.) Ko napajanje izgine ali se prikaže BSOD, želimo, da se znova zažene. (Poskrbljeno v 1. koraku Urejanje BiosB.) Takoj, ko se znova zažene, želimo v datoteko zapisati točen datum in čas ponovnega zagona. C.) To datoteko želimo spremeniti. Če se znova zažene večkrat, ne bi nikoli vedeli. D.) Želimo, da ima popravek napak, da ne bo prišlo do napake, in poskrbimo, da bomo vse napake znova zagnali, ne da bi jih zaradi manjkajočega kodiranja pogrešali. E.) To želimo, da se prikaže sporočilo, da je ponovno zagnano. F.) Želimo, da odpre datoteko, v katero smo pisali, tako da lahko vidimo seznam vseh ponovnih zagonov, ko kliknemo ok na pojavnem sporočilu.

3. korak: Pisanje skripta 2. del: Ustvarjanje skripta in dodeljevanje spremenljivk

V redu, najprej ustvarite besedilni dokument in ga preimenujte v any_name.vbs. Uporabil sem shutdown_catcher.vbs, lahko pa uporabite karkoli. Zdaj z desno miškino tipko kliknite datoteko vbs in pritisnite urejanje. Če uporabljate beležnico ++, bi bil pravi čas, da jo odprete, če je ne nameravate kodirati. zdaj bi morali najprej ustvariti spremenljivke. Spremenljivke so v bistvu le imetnik mesta, zato nam ni treba večkrat napisati celega gradiva. primer: imamo stavek, ki pravi "hitra rjava lisica skoči čez lene pse nazaj". vendar je v naši kodi 20 -krat. lahko 20 -krat vnesemo celoten stavek ali pa ustvarimo spremenljivko in stavko dodelimo tej spremenljivki. Torej v tem primeru ustvarimo spremenljivko strSentence in nato tej spremenljivki dodelimo "hitra rjava lisica skoči čez lene pse nazaj". Zdaj moramo le vnesti strSentence vsakič, ko potrebujemo stavek, in ve, da vnese "hitra rjava lisica skoči čez lene pse nazaj", kako to storimo: če imamo več spremenljivk iste vrste, lahko postavimo jih postavite v isto vrstico in spremenljivke ločite z vejicami. Če želimo ustvariti spremenljivko, moramo narediti tako imenovano dimenzioniranje spremenljivke. Če želite to narediti, pred spremenljivko vnesemo Dim, nato pa na spremenljivko postavimo predpono, da vemo, kaj predstavlja spremenljivka. Primeri so str za spremenljivko niza obj za spremenljivko objekta const za konstanto …. Seznam se lahko nadaljuje. to so tisti, ki jih bomo uporabili v tem scenariju, zato jih bom malo razložil. niz je običajno besedilo kot stavek. Objekt je običajno nekaj fizičnega, na primer datoteka ali program. in konstanta je nekaj, kar bo imelo v celotnem scenariju vedno enak pomen. OPOMBA: KADARkoli ČRTA IMA ENKRAT, PREDEN SE BO NASTAVILA NA ČRTU, KI JIH BODE NAVEDENI POZORI, PROGRAMATOR jih običajno vstavi Lahko se spomnijo, kaj so naredili pozneje, ko so pregledali kodo. BOM JIH UPORABILA ZA KOMENTARJE NA KODO, DA BOSTE VIDELI, ZAKAJ SEM NAJBOLJ NASTALI. IN BILO bodo nad vrstico, o kateri komentirajo. Dejanska uporaba: 'ta vrstica vas prisili, da definirate vse spremenljivke. Brez tega bo katera koli nedoločena spremenljivka obravnavana kot objectOption Explicit "zdaj ustvarjamo 5 spremenljivk za mape in datoteke, ki jih bomo potrebovali" poimenujte jih, kot želite, vendar je konvencija preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile "zdaj, kar potrebujemo za ustvarjanje spremenljivk niza za imenik, datoteko in ime datotekeDim strDir, strFile, strFileName zdaj dodelimo vrednosti spremenljivkam StrDir je naš imenik, v katerem želimo mapo v strDir = "C: / Catcher" 'strFile je tam, kjer želimo besedilni dokument in kako se imenujestrFile = "\ Shutdown_catcher.txt" 'ime strfile je tako, da imamo ime datoteke za uporabo v pojavnem oknu upsstrFileName = "Shutdown_catcher.txt"' Nato moramo dodeliti konstanto za dostop do imamo tri možnosti "uporabljali bomo le dodajanje v tej kodi, vendar je lepo, da jih poznamo. Konst forReading = 1, forWriting = 2, ForAppending = 8" nazadnje moramo v datotečni sistem nastaviti spremenljivko objekt, da ga lahko pokličemo pozneje, ko ga potrebujemo. Nastavite objFiS yOb = CreateObject ("Scripting. FileSystemObject")

4. korak: Pojasnila vmes

Zdaj, ko smo spremenljivke dimenzionirali, se moramo le vsakič spomniti te posebne spremenljivke. S tem ne samo zmanjšamo količino tipkanja, ampak tudi naredimo manj napak zaradi napačnih črkovanj. Zdaj moramo tehnično samo vnesti naslednjo kodo in končali smo 'nastavimo datoteko za appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile; računalnik izklopite ob "& date &" ob "& času)" odprite datoteko v IESet objShell = CreateObject ("WScript. Shell") objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") Težava je v tem, da ne bo popravil napak, vsaka preprosta napaka, kot je datoteka, ki ne obstaja, ali spremenljivka, ki je že dodeljena, bo zrušila skript.

5. korak: Pisanje skripta 3. del: Če potem izjave kot popravek napake

Najlažji način za odpravo napak je uporaba stavkov if/then. V bistvu stavek if then pravi, če se kaj zgodi, naredite to drugače. Z gnezdenjem stavkov if/then lahko ustvarite niz stvari, ki se morajo zgoditi. Če se zgodita a in b in c, naredite še to. Primer: želimo se prepričati, da je datoteka, v katero želimo pisati, tam, če jo najdemo, ne želimo storiti ničesar, če je ne najdemo, pa jo želimo ustvariti ali pa želite preveriti, ali je mapa tam in če je ne ustvarite, nato pa preverite, ali je datoteka tam, ko mapo najdemo, in če je ne ustvarite, je prva primer izjave if if, druga pa ugnezdena if then. naredimo to: v stavku if potem so štirje deli if/then elseend, če je v resnici res, potem naredite to drugače, potem pa zaključite pravilno kodiran stavek, če bi bil potem stavek: Če je nekaj = nekaj, potem naredite kaj potrebujete, storite še kaj drugega Konec Če lahko uporabite kateri koli argument, če je res, bo sledil delu then in zanemaril del else, če pa je napačen, bo preskočil potem in šel na else Potem, ko končamo stavek if postavimo "end if", če pa imamo ugnezdene if stavke, moramo zaključiti vsak if stavek. Končal jih bo od otroka do starša, tako da prvi "end if" konča stavek if znotraj nadrejenega, kjer drugi konča izvirnik (nadrejeni) if stavek. Za pojavno okno vnesemo samo Wscript. Echo ("karkoli želimo v sporočilu povedati "), da vanj dodamo vrednost spremenljivk, ki jo postavimo zunaj ali med dvojne narekovaje z znakom ampersand (&) kot ločevalnikom, tako da skript ve, da je spremenljivka in ne besedilo.: Wscript. Echo ("Bla bla bla" & strDir & "bla bla blah" & strFilename & "bla bla blah.") Izhod bi bil pojavno okno z napisom Bla bla bla bla C: / Catcher blah blah blah shutdown_catcher.txt bla bla blah. Dejanska uporaba: 'če mapa C; / obstaja Če objFiSyOb. FolderExists (strDir) Potem' dobite mapo Nastavi objSysFold = objFiSyOb. GetFolder (strDir) 'sicerElse' ustvarite mapo c; / catcher Nastavite objSysFold = objSysFold = objSysFold = objSysFold = objSysFold = objSysFold = CreateFolder (strDir) 'in preverite, ali datoteka in mapa obstajata Če objFiSyOb. FileExists (strDir & strFile) Potem'če dobi mapo c: / catcher Nastavi ob jSysFold = objFiSyOb. GetFolder (strDir) 'sicerElse' ustvari besedilni dokument shutdown_catcher.txt Nastavi objFile = objFiSyOb. CreateTextFile (strDir & strFile) ', nato pa se prikaže sporočilo, da ste ustvarili oba Wscript. Echo ("Ustvarili smo mapo Wscript. Echo (" Ustvarili smo mapo z imenom "& strDir &" in datoteko z imenom "& strFilename &" in jo postavili v imenik "& strDir & strFile &". ") 'konec ugnezdeno if statementEnd If'end original if statementEnd If'now v prvem if stavku že smo preverili mapo in jo našli, zato zdaj preverimo, če je datoteka fileIf objFiSyOb. FileExists (strDir & strFile) Potem 'če bi našli mapo Set objSysFold = objFiSyOb. GetFolder (strDir)' drugače 'ustvarite besedilni dokument Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'ustvarite pojavno okno, ki pravi, da smo ustvarili besedilni dokument Wscript. Echo ("Ustvarili smo datoteko z imenom" & strFileName & "v mapi datotek" & strDir & ".) Konec Če

6. korak: Pojasnila vmes

Če natančno pogledate kodo iz prejšnjega koraka, boste videli tako ugnezdeno kot ne-ugnezdeno izjavo if then. Prvi je ugnezdeni stavek. Preveri mapo in datoteko, če jih ne najde, ustvari oboje. Drugi išče samo datoteko in če ne najde, ustvari samo datoteko. Lahko bi rekli, zakaj oboje. No, kaj se zgodi, če je datoteka izbrisana, mapa pa ne. Prvi stavek if bi preskočil ustvarjanje datoteke, ker je našel mapo in nikoli ne bi aktiviral drugega dela stavka. Torej, ko bi šli pisati v datoteko, bi prišlo do napake, ker bi datoteka manjkala. Torej, če je tam drugi, reši ta problem. Tehnično bi lahko vzeli ugnezdeno izjavo, ker je skoraj enaka drugi izjavi if then, potem pa bi imeli samo eno pojavno okno in ne bi bilo tako personaliziranoPlus mi je dal priložnost, da vam pokažem ugnezdeno v nasprotju z un -neted if stavki.

7. korak: Več popravkov napak

Zdaj, ko smo zaključili večino popravkov napak, jih želimo zapisati v datoteko in prikazati pojavna okna. Težava je v tem, da bomo dobili napake pri dovoljenju, če ne sprostimo sklica prejšnjega predmeta, shranjenega v spremenljivki. Zato želimo vnesti majhen delček kode, ki pravi, da spremenljivke nastavite na nič. Izgleda tako: set objFile = nothingset objSysFold = nothing Torej za tiste, ki sledite doma, bi morala biti vaša koda do te točke (sprejel sem komentar out): Možnost ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileNamec ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Če objFiSyOb. FolderExists (strDir) Nato nastavite objSysFold = objFiSyOb. GetFolder (strDir) Else nastavi objSysFob Nastavite objSysFold = objFiSyOb. GetFolder (strDir) Sicer nastavite objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Ustvarili smo mapo z imenom" & strDir & "in datoteko z imenom" & strFilename & "in jo dali v imenik "& strDir & strFile &".)) Konec I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Nato nastavite objSysFold = objFiSyOb. GetFolder (strDir) Sicer nastavite objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. " "& strDir &" mapa datotek. ") Konec ifset objFile = nič nastavljeno objSysFold = nič

8. korak: Pisanje skripta 4. del: Nastavitev atributov

Zdaj moramo datoteki nastaviti atribute, da jo lahko spremenimo. Prej smo nastavili tri konstantne spremenljivke: forReading = 1forWriting = 2 forAppending = 8 če ga nastavite na forReading, ga boste lahko brali, ne pa tudi pisali. Če ga nastavite na forWriting, boste obstoječo datoteko prepisali vsakič, ko zaženete program. Če ga nastavite na forAppending, boste vsakič, ko se skript izvede v dokumentu, dodali novo vrstico. Ker želimo dnevnik ob vsakem ponovnem zagonu, želimo, da se doda in ne prepiše, zato uporabljamo forAppending. Kako to počnemo?: poimenovati morate predmet, ki mu želite nastaviti atribute. Ker smo v prejšnjih korakih že opravili večino dela, se moramo na tem mestu samo spomniti spremenljivk. Nato ga nastavite na true. Actual Usage: 'object to set = filesystemobject.action (imenik+ime datoteke, atribut, true ali false) Nastavi objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

9. korak: Pisanje skripta 5. del: Pisanje v datoteko

Pisanje v datoteko je podobno pisanju pojavnega okna. Samo vnesete: objTextFile. WriteLine ("Karkoli želite povedati" & spremenljivko, ki jo želite vnesti v vrstico za pisanje) Edina razlika je prvi del. V pojavnem oknu vnesete: Wscript.echoin vneseno vrstico za pisanje: objTextFile. WriteLineAn v vrstici za pisanje morate zapreti vrstico za pisanje, da ve, da preneha pisati, in za to uporabite: objTextFile. CloseActual Usage: objTextFile. WriteLine ("Vaš računalnik se izklopi" & date & "ob" & času) objTextFile.close'n zdaj dodajte pojavno okno, če želite povedati, da ste pisali v datoteko, da oseba ve, da se je to zgodilo, in jo morajo zapreti, da odprejo datoteko in si ogledajo Wscript. Echo ("Vaš računalnik se je izklopil na" & date & "at" & čas)

10. korak: Pisanje skripta 5. del: Odpiranje datoteke za ogled

Skript se bo na tem mestu ustavil, dokler nekdo ne klikne pojavnega okna. Ko pridete mimo pojavnega okna, lahko vnesete vrstico, ki odpre datoteko. Z uporabo nekaterih popravkov napak lahko program deluje lepo. Ko ustvarite napako v vbscript, doda vrednost spremenljivki "err.number", ki je vnaprej določena spremenljivka vbscript. Ni vam treba definirati in jo lahko uporabite tako kot katero koli drugo spremenljivko, če ne kršite njenih pravil. Vrednost, dodeljena spremenljivki err.number, je koda za nastalo napako. Zdaj lahko preverite vsako kodo napake, ki je znana v bazi podatkov vbscript, in se prepričajte, da se ni pojavila. Ali lažje, samo preverite, ali je spremenljivka err.number prazna. če je prazen, ni prišlo do napak. Če želite to narediti, samo preverimo, ali je spremenljivka enaka vbEmpty. Zato želimo v našem skriptu uporabiti drugo izjavo if then. In preverite, ali je prišlo do napake in če datoteke ni odprl za ogled, če pa se je, se prikaže sporočilo s številko napake, da lahko odpravimo napako. Ko končamo s skriptom, vnesite Wscript. Quit. To pove skriptu, da se sam zaključi. To pomaga preprečevati uhajanje pomnilnika in nezaželene procese. Kako se uporablja: če je err.number enako vbEmpty, potem ustvarite lupino, nato pa zaženite program iz police, sicer se prikaže sporočilo, da je prišlo do napake if. Dejanska uporaba: 'preverite napakeČe je napaka št. dejansko se bo odprl v IE, čeprav objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'drugače se prikaže sporočilo s številko napakeElse WScript.echo "VBScript Error:" & err.numberEnd If 'end scriptWscript.quit

11. korak: Zagon skripta za zagon ob zagonu

V začetnem meniju je mapa datotek, imenovana Zagon. Vse, kar je v tej mapi, se bo zagnalo takoj po zagonu računalnika. Če datoteko skripta postavite v zagonsko mapo, se bo izvajala vsakič, ko se računalnik namerno ali ne. Ker to uporabljam samo kot diagnostično orodje, za zagon tega ni treba narediti storitve in mi ga za zagon ni treba dati v register, zato bo to v redu. Ko popravim računalnik, lahko datoteko izbrišem iz zagonske mape in nobeno drugo čiščenje ni potrebno.

12. korak: Zaženite program

Ko zaženete datoteko vbscript, bo zdaj A.) Preverite, ali mapa C: / Catcher obstaja in če je ne ustvarite. B:) Preverite, ali datoteka Shutdown_catcher.txt obstaja in če je ne ustvarite. C:) Če je ustvaril mapo ali datoteko ali oboje, se bo prikazalo sporočilo, da jih je ustvaril (Opomba: to bi moral storiti le ob prvem zagonu, potem pa bi moralo biti že tam, razen če je izbrisano, zato bi morali to sporočilo videti le enkrat. Morda bi bilo dobro, da ta skript zaženete enkrat pod nadzorovanim ponovnim zagonom, tako da lahko zaobidete ta pojavna okna ali pa v datoteko ne zapišete ničesar, ker ne bo zaobšlo ustvarjenih pojavnih oken.) D:) Vnesite vrstico v besedilni dokument Shutdown_Catcher.txt, ki pravi, da se je računalnik ob takem in takem času ustavil. E:) Pojavi se sporočilo, da je prišlo do ponovnega zagonaF:) Odprite datoteko za ogled. Če pogledate v naslednjem koraku kodo boste videli napisano. Zdaj moram le sedeti in čakati. Vsakič, ko se računalnik znova zažene, ga bom zapisal. Potem lahko pregledam zapis in preverim, ali je v njem dosleden. Primer je lahko, da se znova zažene vsake pol ure ali pa se znova zažene vsakič, ko se ura poveča ali 45. To nikakor ni edini način, da preverim računalnik, samo da veš. Prav tako imam program za primerjalno analizo, da preverim temperature, zato vem, kako vroče je, ko se izklopi, napetost, tako da vem, če napajanje ne deluje, in še nekaj drugih koristnih stvari. No, upam, da je bilo to v pomoč. Vem, da uživam, zato bodo morda tudi drugi. Če imate kakršna koli vprašanja, jih vprašajte. Morda ne pridem do njih takoj, ampak malo in vam bom odgovoril. Odvisno od tega, kako poteka moj dan/teden.

Korak: Koda

To je koda, kot je napisana brez vseh namigov in opomb_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher" strut.html "strut" Const forReading = 1, forWriting = 2, ForAppending = 8Nastavi objFiSyOb = CreateObject ("Scripting. FileSystemObject") Če objFiSyOb. FolderExists (strDir) Nato nastavite objSysFold = objFiSyOb. GOtFyld (StrF) objFiSyOb. FileExists (strDir & strFile) Nato nastavite objSysFold = objFiSyOb. GetFolder (strDir) Sicer nastavite objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Ustvarili smo datoteko z imenom & "& strFilename &" in ga postavili v imenik "& strDir & strFile &".)) End IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Nato nastavite objSysFold = objFiSyOb. GetFolder (strDir) strDir & strFile) Wscript. Echo ("Imamo ustvaril datoteko z imenom "& strFileName &" v mapi "& strDir &".)) Konec ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. Wy računalnik " Izklopite "& date &" ob "& time" objTextFile. CloseWscript. Echo ("Vaš računalnik se izklopi" & date & "at" & time) Če je err.number = vbEmpty, potem nastavite objShell = CreateObject ("WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Drugače WScript.echo" Napaka VBScript: "& err.numberEnd IfWScript. Quit