Uvod u VB Script: vodič za početnike: 2. dio: Rad s datotekama: 13 koraka

2024 Autor: John Day | [email protected]. Zadnja promjena: 2024-01-30 09:38

U mojoj zadnjoj VBScript uputi, proučio sam kako napraviti skriptu za isključivanje vašeg interneta radi igranja Xbox360. Danas imam drugačiji problem. Moje se računalo nasumično gasilo i želim se prijaviti svaki put kad se računalo ponovno pokrene u datoteku. Imam osjećaj da je problem u video kartici, ali želim se uvjeriti. Računalo ostavljam uključeno cijelo vrijeme, ali ga ne mogu pratiti 24 sata dnevno, pa je moje najjednostavnije rješenje zapisati vremensku oznaku u datoteku pri svakom ponovnom pokretanju. Budući da mi svaki put daje BSOD, bilježenje kad se isključi bit će teško, pa ga moram nabaviti kad se ponovno uključi. To je lakši dio. Zbog činjenice da je ovo samo privremeno dok ne shvatim što nije u redu s računalom, neću pisati u registar niti ga učiniti servisom pa će se pokrenuti pri pokretanju. A da bih ga pokrenuo svaki put kad se isključi, morat ću urediti bios.

Korak 1: Uređivanje Biosa radi ponovnog pokretanja pri nestanku napajanja

Nisam siguran je li moj problem u nestanku napajanja ili u vezi s mojom video karticom ili u čemu je problem. Ali znam da se računalo svako toliko ponovno pokreće. Dakle, kako bih se uvjerio da se ponovno pokreće nakon nestanka struje (IE: napajanje se smeđa), želim urediti bios. Zbog činjenice da postoji toliko različitih proizvođača biosa, bilo bi preteško navesti sve različite načine za to na svim različitim zaslonima biosa, pa ću vam samo dati osnove i dopustiti vam da shvatite specifičnosti sami. U osnovi da biste ušli u svoj bios morate pritisnuti gumb pri pokretanju. Obično će reći nešto poput "pritisnite Del za ulazak u postavke" ili "F2". Različiti proizvođači nude vam različite načine, ali to je obično tipka "F2" ili "Del". U svakom slučaju pazite na to i pritisnite tipku koja vam govori da pritisnete. Sada ćete doći na zaslon koji je obično siv ili plav, ali opet ovisi o vašoj biografiji. Tražit ćete opciju postavki napajanja. Bit će ili na svom prozoru, kao na snimci zaslona AMIBIOS -a (posuđeno iz toms hardverskog vodiča), ili u nekim može biti u prozoru s naprednim bios značajkama. U svakom slučaju tražite postavku "vraćanje pri gubitku izmjenične struje/napajanju". Možda se zove i nešto drugo, ali bit će blizu toga. Samo ga potražite. Obično će imati tri mogućnosti (zadnje stanje, uključeno nakon gubitka napajanja, isključeno nakon nestanka struje). Želite ga uključiti nakon gubitka napajanja. Spremite postavke i izađite iz biosa. Sada, kad vam nestane struje ili isključite uređaj, on će se ponovno pokrenuti čim se vrati napajanje. Daaaaaaa !!!!!!!!!!!!!!!!

Korak 2: Pisanje skripte Dio 1: Izrada plana

Prvo što želimo učiniti je izraditi plan. Što točno želimo da skripta radi. A.) Kad nestane napajanja ili se pojavi BSOD, želimo da se ponovno pokrene. (Vodi se računa o koraku 1 Uređivanje BiosB -a.) Čim se ponovno pokrene, želimo zapisati u datoteku točan datum i vrijeme ponovnog pokretanja. C.) Želimo biti u mogućnosti izmijeniti tu datoteku. Ako se ponovno pokrene više puta, nikad ne bismo saznali. D.) Želimo da ima ispravak pogrešaka kako se ne bi zajebao i pazimo da dobijemo sva naša ponovna pokretanja, a da ništa ne nedostaje zbog lošeg kodiranja. E.) Želimo to da se pojavi poruka u kojoj se kaže da je ponovno pokrenuta. F.) Želimo da otvori datoteku u koju smo pisali kako bismo mogli vidjeti popis svih ponovnih pokretanja kad kliknemo u redu na skočnoj poruci.

Korak 3: Pisanje skripte Dio 2: Stvaranje skripte dodjeljivanju varijabli

U redu prvo, stvorite tekstualni dokument i preimenujte ga u any_name.vbs. Koristio sam shutdown_catcher.vbs, ali možete koristiti bilo što. Sada samo desnom tipkom miša kliknite vbs datoteku i pritisnite uređivanje. Ako koristite notepad ++ sada bi bilo dobro vrijeme da ga otvorite, ako ne planirate kodirati trebali bismo razmotriti dobivanje. Dobro sada prvo što želimo je stvoriti varijable. Varijable su u osnovi samo držači mjesta pa ne moramo čitav niz stvari pisati hrpu puta. primjer: imamo rečenicu koja kaže "brza smeđa lisica preskače lijene pse natrag". ali to je u našem kodu 20 puta. možemo ili upisati cijelu rečenicu 20 puta ili stvoriti varijablu i dodijeliti rečenicu toj varijabli. Dakle, u ovom primjeru stvaramo varijablu strSentence, a zatim toj varijabli dodjeljujemo "brza smeđa lisica preskače lijene pse". Sada sve što trebamo učiniti je upisati strSentence svaki put kad nam zatreba rečenica i ona zna otkucati "brza smeđa lisica preskače lijene pse natrag" kako to učiniti: Ako imamo više varijabli istog tipa, možemo staviti ih na istom retku i odvojite varijable zarezima. Da bismo stvorili varijablu, moramo učiniti ono što se naziva dimenzioniranje varijable. Da bismo to učinili, upisujemo Dim prije varijable, a zatim stavljamo prefiks na varijablu kako bismo znali što varijabla predstavlja. Primjeri su str za varijablu niza obj za varijablu objekta const za konstantu …. Popis se nastavlja i nastavlja. ovo ćemo koristiti u ovoj skripti pa ću ih malo objasniti. niz je obično tekst poput rečenice. Objekt je obično nešto fizičko poput datoteke ili programa. a konstanta je nešto što će u cijelom scenariju uvijek imati isto značenje. NAPOMENA: BILO KADA LINIJA IMA JEDAN 'PRIJE NEGO ŠTO ĆE LINIJU IGNOVIRATI RISAK. NAPOZIVAJU SE NAPOMENE I PROGRAMER UOBIČAJENO STAVLJA U PROGRAM MOGU SE SJETITI ŠTO SU KASNIJE PREGLEDALI KOD. KORISTIT ću IH ZA KOMENTARE NA KOD, DA BISTE VIDELI ZAŠTO SAM NAČINIO NASTAVIO NA NAČIN NA KOJI SAM UČINIO. I ONI ĆE BITI ISPOD RITA O KOJEM SE KOMENTIRAJU. Stvarna upotreba: 'ovaj redak tjera vas da definirate sve varijable. Bez nje će se bilo koja nedefinirana varijabla tretirati kao objectOption Explicit'da sada stvaramo 5 varijabli za mape i datoteke koje će nam trebati'nazovite ih kako želite, ali konvencija je preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'sada nam je potrebno za stvaranje varijabli niza za imenik, datoteku i datoteku nameDim strDir, strFile, strFileName'sada dodjeljujemo vrijednosti varijablama 'strDir je naš direktorij koji želimo mapu u strDir = "C: / Catcher"' strFile je tamo gdje želimo tekstualni dokument i kako se zovestrFile = "\ Shutdown_catcher.txt" 'naziv strfile je tako da imamo naziv datoteke za upotrebu u skočnom prozoru upsstrFileName = "Shutdown_catcher.txt"' zatim moramo dodijeliti konstantu za pristup datoteci Datoteka imamo tri opcije. koristit ćemo samo dodatak u ovom kodu, ali lijepo ih je znati. Konst forReading = 1, forWriting = 2, ForAppending = 8'na kraju moramo postaviti varijablu u datotečni sustav objekt pa ga možemo nazvati kasnije kad nam zatreba Postavi objFiS yOb = CreateObject ("Scripting. FileSystemObject")

Korak 4: Objašnjenja između

Sada kada smo dimenzionirali naše varijable, sve što moramo učiniti je svaki se put prisjetiti te određene varijable. Ovo ne samo da smanjuje količinu tipkanja koje radimo, već također stvara manje grešaka zbog pravopisnih pogrešaka. Sada tehnički sve što trebamo učiniti je upisati sljedeći kod i gotovi smo 'postaviti datoteku za dodavanjeSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'upišite novi redak u datotekuobjTextFile. WriteLine ("Vaše računalo se ugasilo" & date & "u" & vremenu) "zatvorite datotekuobjTextFile. Close" napravite skočni prozorWscript. Echo ("Vaš računalo Isključite "& date &" at "& time) 'otvorite datoteku u IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Problem je u tome što neće imati ispravak pogrešaka, a svaka jednostavna pogreška poput datoteke koja ne postoji ili već dodijeljene varijable srušit će skriptu.

Korak 5: Pisanje skripte Dio 3: Ako onda izjave kao ispravljanje greške

Najlakši način za ispravljanje pogrešaka je korištenje if/then naredbi. U osnovi if if naredba kaže ako se nešto dogodi, učinite ovo inače. Ugniježđenjem if/then naredbi možete stvoriti niz stvari koje se moraju dogoditi. Ako se dogode a i b i c, učinite ovo drugo. Primjer: želimo provjeriti postoji li datoteka u koju želimo pisati ako je pronađemo, ne želimo ništa učiniti ako je ne pronađemo, želimo je stvoriti ili želite provjeriti postoji li mapa, a ako je ne stvorite, a zatim provjerite je li datoteka tamo kada pronađemo mapu, a ako je ne stvorite, prva je primjer naredbe if if, druga je ugniježđena ako tada. mi to činimo: postoje četiri dijela if if naredbe if/then elseend ako je u osnovi ako je to istina, učinite ovo inače, učinite to, a zatim završite iskaz ispravno kodiranim ako bi naredba bila: Ako je nešto = nešto, onda učinite ono što trebate učinitiElce učinite nešto drugoEnd Ako možete koristiti bilo koji argument sve dok je istinit, slijedit će dio then i zanemariti dio else, ali ako je netočan, preskočit će tada i otići na else Zatim kada završimo naredbu if stavljamo "end if", ali ako imamo ugniježđene if naredbe moramo završiti svaku if naredbu. Završit će ih od djeteta do roditelja, tako da prvi "kraj if" završava if naredbu unutar roditelja, gdje druga završava izvornu (roditeljsku) if naredbu. Za skočni prozor samo upisujemo Wscript. Echo ("svejedno želimo reći u poruci ") da bismo joj dodali vrijednost varijabli, stavili smo je izvan ili između dvostrukih navodnika koristeći znak ampersand (&) kao graničnik kako bi skripta znala da je to varijabla, a ne tekst. ovako: Wscript. Echo ("Bla bla bla" & strDir & "bla bla bla" bla bla bla bla. Aktualna upotreba: 'ako mapa C; / postoji Ako objFiSyOb. FolderExists (strDir) Then'get mapa Postavite objSysFold = objFiSyOb. GetFolder (strDir)' inaceElse'stvarite mapu c; / hvatac Postavi objSysFold = objSysFold = objSysFold = CreateFolder (strDir) 'i provjerite postoje li datoteka i mapa Ako objFiSyOb. FileExists (strDir & strFile) Tada'ako dobije mapu c: / hvatač Postavi ob jSysFold = objFiSyOb. GetFolder (strDir) 'inaceElse'kreiraj tekstualni dokument shutdown_catcher.txt Postavi objFile = objFiSyOb. CreateTextFile (strDir & strFile)', a zatim se pojavi poruka da ste oboje stvorili Wscript. Echo ("Napravili smo mapu pod nazivom "& strDir &" i datoteku pod nazivom "& strFilename &" i smjestili je u "& strDir & strFile &" direktorij. ") 'kraj ugniježđen ako statementEnd If'end original if statementEnd If'now u prvom if naredbi već smo provjerili je li pronađena mapa i pronašli smo je, pa sada provjeravamo ima li fileIf objFiSyOb. FileExists (strDir & strFile) Onda'ako je pronađena get mapa Postavi objSysFold = objFiSyOb. GetFolder (strDir) 'inače' stvorite tekstualni dokument Postavi objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'stvoriti skočni prozor u kojem se kaže da smo stvorili tekstualni dokument Wscript. Echo ("Napravili smo datoteku pod nazivom" & strFileName & "u mapi" & strDir & ".") Prekini Ako

Korak 6: Objašnjenja između

Ako pomno pogledate kôd iz prethodnog koraka, vidjet ćete ugniježđeni i ne ugniježđeni izraz if then. Prvi je ugniježđeni izraz. On provjerava mapu i datoteku, a ako ih ne pronađe, stvara oboje. Drugi traži samo datoteku, a ako je ne pronađe, stvara samo datoteku. Moglo bi se reći zašto oboje. Pa što se događa ako se datoteka izbriše, ali mapa nije. Prva naredba if preskočit će stvaranje datoteke jer je pronašla mapu i nikada ne bi aktivirala drugi dio izraza. Dakle, kad biste otišli pisati u datoteku, došlo bi do pogreške jer bi datoteka nedostajala. Dakle, imajući tu drugu, rješava se ovaj problem. Tehnički, mogli biste izvaditi ugniježđenu naredbu jer je gotovo ista kao druga naredba if then, ali tada biste imali samo jedan skočni prozor i ne bi bio tako personaliran Plus dao mi je priliku da vam pokažem ugniježđenu za razliku od un -nest if izjave.

Korak 7: Dodatno ispravljanje grešaka

Sada kada smo dovršili većinu ispravljanja pogrešaka, želimo ih zapisati u datoteku i prikazati skočne prozore. Problem je u tome što ćemo dobiti greške u dopuštenju ako ne otpustimo referencu prethodnog objekta pohranjenog u varijabli. Zato želimo staviti mali isječak koda koji kaže postavi varijable na ništa. Izgleda ovako: postavi objFile = ništa postavi objSysFold = ništa Dakle, za one od vas koji kod kuće prate vaš kod do ove točke bi trebao biti (uzeo sam komentar out): Opcija ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileNamest ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Ako objFiSyOb. FolderExists (strDir) Zatim postavite objSysFold = objFiSyOb. GetFolder (strDir) Ostalo Postavi objSyFod (strj) Postavi objSysFold = objFiSyOb. GetFolder (strDir) Inače Postavi objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Napravili smo mapu pod nazivom" & strDir & "i datoteku pod nazivom" & strFilename & "i stavili je u direktorij "& strDir & strFile &". ") Kraj I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Zatim postavite objSysFold = objFiSyOb. GetFolder (strDir) Ostalo Postavi objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("& strFile) WFSime "& strDir &" mapa datoteka. ") Prekini Ifset objFile = nothingset objSysFold = nothing

Korak 8: Pisanje skripte Dio 4: Postavljanje atributa

Sada moramo postaviti atribute u datoteku kako bismo je mogli izmijeniti. Prethodno smo postavili tri stalne varijable: forReading = 1forWriting = 2 forAppending = 8ako postavite na forReading, moći ćete je čitati, ali ne i pisati u nju. Ako postavite na forWriting, prebrisat ćete postojeću datoteku svaki put kada pokrenete program. Ako postavite na forAppending, dodat ćete novi redak svaki put kada se skripta izvrši u dokumentu. Budući da želimo zapisnik svakog ponovnog pokretanja, želimo da se dodaje, a ne prepisuje pa koristimo forAppending. Kako to radimo: morate imenovati objekt kojem želite postaviti atribute. Budući da smo već obavili većinu posla u prethodnim koracima, samo se moramo prisjetiti varijabli u ovom trenutku. Zatim ga samo postavite na true. Actual Usage: 'object to set = filesystemobject.action (imenik+naziv datoteke, atribut, točno ili netočno) Postavi objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Korak 9: Zapisivanje skripte Dio 5: Zapisivanje u datoteku

Zapisivanje u datoteku vrlo je slično pisanju skočnih prozora. Samo ste stavili: objTextFile. WriteLine ("Što god želite reći" & Varijabla za povlačenje u red za pisanje) Jedina razlika je prvi dio. U skočnom prozoru stavite: Wscript.echoin redak za pisanje koji ste stavili: objTextFile. WriteLineAi u retku za pisanje morate zatvoriti redak za pisanje kako bi znao da prestane pisati, a za to koristite: objTextFile. CloseActual Upotreba: objTextFile. WriteLine ("Vaše računalo isključeno" & date & "u" & vremenu) objTextFile.close'now dodajte skočni prozor da kažete da ste pisali datoteci kako bi osoba znala da se to dogodilo'i moraju je zatvoriti da bi otvorili datoteku i pogledaliWscript. Echo ("Vaše računalo se isključilo na" & date & "at" & vrijeme)

Korak 10: Pisanje skripte Dio 5: Otvaranje datoteke za pregled

Skripta će se u ovom trenutku zaustaviti dok netko ne klikne skočni prozor. Kad prijeđete skočni prozor, možete staviti redak koji otvara datoteku. Koristeći neke ispravke pogrešaka na njemu, pomažete programu da radi dobro. Kad stvorite pogrešku u vbscript, dodaje vrijednost varijabli "err.number" koja je unaprijed definirana varijabla u vbscript. Ne morate ga definirati i možete ga koristiti kao i svaku drugu varijablu sve dok ne kršite njezina pravila. Vrijednost dodijeljena varijabli err.number kôd je greške koja se dogodila. Sada možete provjeriti svaki kod pogreške poznat u bazi podataka vbscript i provjeriti nije li se pojavio. Ili lakše, samo provjeravajte je li varijabla err.number prazna. ako je prazno, nije došlo do pogrešaka. Da bismo to učinili, samo provjeravamo je li varijabla jednaka vbEmpty. Dakle, u našem skriptu želimo upotrijebiti drugu naredbu if then. I provjerite je li došlo do pogreške i nije li datoteku otvorila za pregled, ali ako se dogodila, tada će se pojaviti poruka s brojem pogreške u njoj kako bismo mogli otkloniti pogreške. Zatim kad završimo sa skriptom, upišite Wscript. Odustani. To govori skripti da se sama prekine. To pomaže u sprječavanju curenja memorije i pokretanja neželjenih procesa. Kako se koristi: ako je err.number jednak vbEmpty, tada stvorite ljusku, a zatim pokrenite program s police. U protivnom će se pojaviti poruka da je došlo do pogreške if. Actual Usage: 'check for errorIf err.number = vbEmpty then'iko nitko ne stvori ljusku Postavite objShell = CreateObject ("WScript. Shell") ', a zatim otvorite datoteku iz te ljuske pomoću istraživača. zapravo će se otvoriti u IE -u iako se objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'u protivnom pojavi poruka s brojem pogreškeElse WScript.echo "VBScript Error:" & err.numberEnd If 'end scriptWscript.quit

Korak 11: Pokretanje skripte pri pokretanju

U izborniku Start nalazi se datoteka s datotekom pod nazivom Startup. Sve što se stavi u ovu mapu pokrenut će se čim se računalo pokrene. Postavljanjem datoteke skripte u mapu za pokretanje izvršit će se svaki put pri ponovnom pokretanju računala, namjerno ili ne. Budući da ovo koristim samo kao dijagnostički alat, ne mora biti pretvoren u uslugu za pokretanje i ne moram ga stavljati u registar da bih ga pokrenuo, pa će to biti u redu. Nakon što popravim računalo, mogu izbrisati datoteku iz mape za pokretanje i nema potrebe za drugim čišćenjem.

Korak 12: Pokretanje programa

Kad izvršite vbscript datoteku, sada će se pojaviti A.) Provjerite postoji li mapa C: / Catcher i ako je ne stvorite. B:) Provjerite postoji li datoteka Shutdown_catcher.txt i ako je ne stvorite. C:) Ako je stvorio mapu ili datoteku ili oboje, pojavit će se poruka u kojoj se kaže da ih je on stvorio (Napomena: to bi trebao učiniti samo pri prvom pokretanju nakon toga, već bi trebao biti tamo, osim ako je izbrisan, pa biste tu poruku trebali vidjeti samo jednom. Možda bi bilo dobro pokrenuti ovu skriptu jednom pod kontroliranim ponovnim pokretanjem kako biste zaobišli te skočne prozore ili ne biste mogli ništa zapisati u datoteku jer neće zaobići skočne prozore koje ste stvorili.) D:) Napišite redak u tekstualni dokument Shutdown_Catcher.txt u kojem se kaže da se računalo ugasilo tog i takvog datuma u takvo i takvo vrijeme. E:) Otvoriće se poruka da je došlo do ponovnog pokretanjaF:) Otvorite datoteku za pregled. Ako pogledate u sljedećem koraku vidjet ćete kôd napisan. Sada samo moram sjediti i čekati. Svaki put kad se računalo ponovno pokrene imat ću zapis o tome. Tada mogu pregledati zapisnik i vidjeti ima li u njemu dosljednosti. Primjer može biti da se ponovno pokreće svakih pola sata ili da se ponovno pokreće svaki put kad dođe do povećanja ili 45 sati. Ovo nikako nije jedini način na koji provjeravam računalo, samo da znate. Također imam pokrenuti program za mjerenje performansi kako bih provjerio temperaturu pa znam koliko je vruće kad se isključi, napon pa znam da li je napajanje u kvaru i nekoliko drugih korisnih stvari. Pa nadam se da je ovo bilo od pomoći. Znam da uživam pa će možda i drugi. Ako imate bilo kakvih pitanja, slobodno pitajte. Možda im neću stići odmah, ali još malo pa ću vam odgovoriti. Ovisi kako mi prolaze dan/tjedan.

Korak 13: Kôd

Ovo je kod napisan bez svih natuknica i napomena_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher Const forReading = 1, forWriting = 2, ForAppending = 8Postavite objFiSyOb = CreateObject ("Scripting. FileSystemObject") Ako objFiSyOb. FolderExists (strDir) Zatim postavite objSysFold = objFiSyOb. GetFold (strDirFolder) objFiSyOb. FileExists (strDir & strFile) Zatim postavite objSysFold = objFiSyOb. GetFolder (strDir) Ostalo Postavi objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Stvorili smo datoteku &" i strDirir "i & datoteku pod nazivom" i strDir & "i strFile) i stvorili smo datoteku pod nazivom" "& strFilename &" i smjestio ga u "& strDir & strFile &" direktorij. ") Prekini IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Zatim postavi objSysFold = objFiSyOb. GetFolder (strDir) Ostalo Postavi objFileObCext (objFiy strDir & strFile) Wscript. Echo ("Imamo stvorio datoteku pod nazivom "& strFileName &" u mapi "& strDir &".)) Završi ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. Your računalo " Isključite "& date &" at "& time" objTextFile. CloseWscript. Echo ("Vaše računalo se isključi" & date & "at" & time) Ako je err.number = vbEmpty tada postavite objShell = CreateObject ("WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Inače WScript.echo" VBScript pogreška: "& err.numberEnd IfWScript. Quit