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

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

Pa, u mojoj zadnjoj VBScript instrukciji, proučio sam kako napraviti skriptu za isključivanje vašeg interneta radi igranja Xbox360. Danas imam drugačiji problem. Moj računar se slučajno gasio i želim se prijaviti svaki put kada se računar ponovo pokrene u datoteku. Imam osjećaj da je problem u video kartici, ali želim biti siguran. 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 ponovo uključi. To je lakši dio. Zbog činjenice da je ovo samo privremeno dok ne shvatim šta nije u redu sa računarom, neću pisati u registar niti ga učiniti servisom kako bi se pokrenuo 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 da li je moj problem u kvaru napajanja ili sa mojom video karticom ili šta je to. Ali znam da se računar povremeno ponovo pokreće. Dakle, kako bih bio siguran da se ponovno pokreće nakon nestanka struje (IE: napajanje se zamračilo), želim urediti bios. Zbog činjenice da postoji toliko mnogo proizvođača biosa, bilo bi previše teško navesti sve različite načine za to na svim različitim ekranima 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 dugme pri pokretanju. Obično će reći nešto poput "pritisnite Del za ulazak u postavku" 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 do ekrana koji je obično siv ili plav, ali opet to ovisi o vašoj biografiji. Tražit ćete opciju postavki napajanja. Ili će biti na svom prozoru, kao na snimku ekrana AMIBIOS -a (posuđeno iz tomovskog vodiča za hardver), ili u nekim može biti u prozoru za napredne bios funkcije. U svakom slučaju tražite postavku "vraćanje pri gubitku izmjenične struje/napajanja". Možda se zove i nešto drugo, ali bit će blizu toga. Samo ga potražite. Obično će imati tri opcije (posljednje stanje, uključeno nakon gubitka napajanja, isključeno nakon nestanka napajanja). Ž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 ponovo pokrenuti čim se vrati napajanje. Yeahhhhhh !!!!!!!!!!!!!!!!

Korak 2: Pisanje skripte Dio 1: Izrada plana

Prva stvar koju želimo je napraviti plan. Šta želimo da skripta radi. A.) Kad nestane napajanja ili se pojavi BSOD, želimo da se ponovno pokrene. (Vodi 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, nikada ne bismo saznali. D.) Želimo da ima ispravku grešaka kako se ne bi zeznuo 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 pokrenuto. F.) Želimo da otvori datoteku u koju smo pisali kako bismo mogli vidjeti popis svih ponovnih pokretanja kada kliknemo u redu na iskačućoj poruci.

Korak 3: Pisanje skripte Dio 2: Kreiranje 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 šta. Sada kliknite desnim tasterom miša na vbs datoteku i pritisnite Edit. 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 puno puta pisati gomilu stvari. 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 otkucati 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 radimo: Ako imamo više varijabli istog tipa, možemo staviti stavite ih u isti red 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 šta varijabla predstavlja. Primjeri su str za string varijablu obj za varijablu objekta const za konstantu …. Lista 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 uvijek imati isto značenje u cijelom scenariju. NAPOMENA: BILO KADA LINIJA IMA JEDAN 'PRE NEGO ŠTO ĆE LINIJU IGNOVIRATI PISMO. NAPOMENE SE ZOVE NAPOMENE I PROGRAMER UOBIČAJENO UGRADI MOGU SE SJETITI ŠTA SU KASNIJE PREGLEDALI KOD. KORISTIT ću ih da ostavim komentare na kôd, tako da možete vidjeti zašto sam stavio stvari na način koji sam učinio. I ONI ĆE BITI ISPOD LINIJE O KOJOJ SE KOMENTIRAJU. Stvarna upotreba: 'ova linija vas tjera da definirate sve varijable. Bez nje će se bilo koja nedefinirana varijabla tretirati kao objectOption Eksplicitno'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 kreiranje string varijabli za direktorij, 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 ono što 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 file imamo tri opcije'možemo koristiti samo dodatak u ovom kodu, ali lijepo ih je znati. Konst forReading = 1, forWriting = 2, ForAppending = 8'na kraju moramo postaviti varijablu u sistem datoteka objekt pa ga možemo pozvati kasnije kad nam zatreba Postavite objFiS yOb = CreateObject ("Scripting. FileSystemObject")

Korak 4: Objašnjenja između

Sada kada smo dimenzionirali naše varijable, sve što trebamo učiniti je prisjetiti se te specifične varijable svaki put. Ovo ne samo da smanjuje količinu pisanja koju radimo, već stvara i manje grešaka zbog pravopisnih greš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 red u fileobjTextFile. WriteLine ("Vaše računalo se isključilo na" & date & "at" & time) "zatvorite fileobjTextFile. Close" napravite skočni prozorWscript. Echo ("Your računalo isključite na "& date &" u "& vremenu) 'otvorite datoteku u IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Problem je u tome što neće imati ispravke grešaka, a svaka jednostavna greška poput datoteke koja ne postoji ili već dodijeljene varijable srušit će skriptu.

Korak 5: Pisanje skripte Dio 3: If then izjave kao ispravljanje greške

Najlakši način za ispravljanje grešaka je korištenje if/then naredbi. U osnovi if if naredba kaže ako se nešto dogodi, učinite ovo u suprotnom. Gniježđ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 biti sigurni da se datoteka u koju želimo pisati nalazi 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 then, druga je ugniježđena ako tada. mi to radimo: 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 ispravno kodiranu naredbu ako bi tada naredba bila: If something = something then do ono što vam je potrebno učiniteElce učinite nešto drugoEnd IfYou možete koristiti bilo koji argument sve dok je istinit, on će slijediti dio then i zanemariti drugi dio, 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 original (roditelj) if naredbu. Da bismo iskočili, 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 tako da skripta zna 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) Tada'get mapa Postavi objSysFold = objFiSyOb. GetFolder (strDir)' inaceElse'napravite mapu c; / hvatac Postavite objSysFold = objSysFold = 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'kreirajte tekstualni dokument shutdown_catcher.txt Postavite objFile = objFiSyOb. CreateTextFile (strDir & strFile)', a zatim će se pojaviti poruka da ste oboje kreirali 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 fasciklu i pronašli smo je, pa sada provjeravamo da li postoji fileIf objFiSyOb. FileExists (strDir & strFile) Tada'ako je pronađeno preuzmite mapu Set objSysFold = objFiSyOb. GetFolder (strDir) 'inače' stvorite tekstualni dokument Postavi objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'kreirajte skočni prozor govoreći da smo kreirali tekstualni dokument Wscript. Echo ("Napravili smo datoteku pod nazivom" & strFileName & "u fascikli" & strDir & ".) End If

Korak 6: Objašnjenja između

Ako pomno pogledate kôd iz prethodnog koraka, vidjet ćete i ugniježđeni i negniježđeni izraz if then. Prvi je ugniježđeni izraz. On provjerava mapu i datoteku, a ako ih ne pronađe, stvara oboje. Druga 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čiće kreiranje datoteke jer je pronašla mapu i nikada ne bi aktivirala drugi dio izraza. Dakle, kada biste otišli na pisanje u datoteku, došlo bi do greš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 izrazi.

Korak 7: Više ispravljanja grešaka

Sada kada smo završili većinu ispravljanja grešaka, želimo ih zapisati u datoteku i prikazati skočne prozore. Problem je u tome što ćemo dobiti greške u dozvolama ako ne otpustimo referencu prethodnog objekta pohranjenog u varijabli. Zato želimo ubaciti 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 tačke bi trebao biti (uzeo sam komentar out): Opcija ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileNamec = 2 Shutdown za Condown ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Ako objFiSyOb. FolderExists (strDir) Zatim postavite objSysFold = objFiSyOb. GetFolder (strDir) Else Postavi objSysFod (strj) Postavi objSysFold = objFiSyOb. GetFolder (strDir) Ostalo Postavi objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Napravili smo mapu pod nazivom" & strDir & "i datoteku pod nazivom" & strFilename & "i stavili je u direktorijum & 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 ("Imamo datoteku i" "& strDir &" mapa datoteke. ") 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 konstantne varijable: forReading = 1forWriting = 2 forAppending = 8ako ste postavili na forReading, moći ćete je čitati, ali ne i pisati u nju. Ako je 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 (direktorij+naziv datoteke, atribut, true ili false) Postavi objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Korak 9: Zapisivanje skripte Dio 5: Zapisivanje u datoteku

Pisanje u datoteku je slično pisanju skočnih prozora. Samo ste stavili: objTextFile. WriteLine ("Šta god želite reći" & Varijabla za uvlačenje u red za pisanje) Jedina razlika je prvi dio. U skočnom prozoru stavite: Wscript.echoin liniju za pisanje koju ste stavili: objTextFile. WriteLineAi u retku za pisanje morate zatvoriti liniju za pisanje tako da zna da prestane pisati, a za to koristite: objTextFile. CloseActual Upotreba: objTextFile. WriteLine ("Vaše računalo se ugasilo" & 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 ("Računar se isključio na" & date & "at" & vrijeme)

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

Skripta će se u ovom trenutku zaustaviti dok neko ne klikne skočni prozor. Kad prijeđete skočni prozor, možete staviti redak koji otvara datoteku. Upotreba neke ispravke grešaka pomaže u održavanju dobrog rada programa. Kada napravite grešku u vbscript -u, dodaje vrijednost varijabli "err.number" koja je unaprijed definirana varijabla u vbscript -u. Ne morate je definirati i možete je koristiti kao bilo koju drugu varijablu sve dok ne kršite njezina pravila. Vrijednost dodijeljena varijabli err.number je kôd greške koja se dogodila. Sada možete provjeriti svaki kod greške poznat u vbscript bazi podataka i provjeriti da se nije dogodio. Ili lakše, samo provjeravajte da li je varijabla err.number prazna. ako je prazno, nije došlo do grešaka. Da bismo to učinili, samo provjeravamo je li varijabla jednaka vbEmpty. Dakle, u našem skriptu želimo koristiti drugu if if naredbu. I provjerite je li došlo do greške i nije li otvorila datoteku za pregled, ali ako se to dogodilo, tada će se pojaviti poruka s brojem greške u njoj kako bismo mogli otkloniti pogreške. Zatim kada završimo sa skriptom, otkucajte Wscript. Quit. Ovo govori skripti da se sama završi. Ovo 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 sa police. U suprotnom će se pojaviti poruka koja kaže da je došlo do pogreške if. errorIf err.number = vbEmpty then'iko da nitko ne kreira 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 suprotnom pojavi poruka s brojem greškeElse WScript.echo "VBScript Error:" & err.numberEnd If 'end scriptWscript.quit

Korak 11: Pokretanje skripte pri pokretanju

U početnom izborniku postoji mapa datoteka pod nazivom Startup. Sve što se stavi u ovu mapu pokrenut će se čim se računar pokrene. Postavljanjem datoteke skripte u mapu za pokretanje izvršavat ć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, tako da će to biti u redu. Nakon što popravim računar, mogu izbrisati datoteku iz početne mape i nije potrebno drugo čišćenje.

Korak 12: Pokretanje programa

Kad izvršite datoteku vbscript, sada će biti 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 mogli zaobići ove skočne prozore ili možda nećete ništa upisati u datoteku jer neće zaobići skočne prozore koje ste stvorili.) D:) Napišite red u tekstualni dokument Shutdown_Catcher.txt u kojem se kaže da se računar ugasio tog i takvog datuma u to 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 kada se računar ponovo pokrene imaću zapis o tome. Zatim mogu pregledati zapisnik i provjeriti ima li dosljednosti u tome. Primjer može biti ponovno pokretanje svakih pola sata ili ponovno pokretanje svaki put kad dođe do povećanja ili 45 sati. Ovo ni u kom slučaju nije jedini način na koji provjeravam računar, samo da znate. Takođe imam pokrenuti benčmarking program za provjeru temperature, tako da znam koliko je vruće kad se isključi, napon, tako da 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 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. Zavisi kako mi prolaze dan/sedmica.

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. GetCirFolder (strDirFold) objFiSyOb. FileExists (strDir & strFile) Zatim postavite objSysFold = objFiSyOb. GetFolder (strDir) Ostalo Postavi objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Stvorili smo datoteku &" i & datoteku pod nazivom & "& strFilename &" i smjestili ga u "& strDir & strFile &" direktorij. ") Prekini IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Zatim postavi objSysFold = objFiSyOb. GetFolder (strDir) Ostalo Postavi objFileObCTFext (objFiy) strDir & strFile) Wscript. Echo ("Imamo stvorio datoteku pod nazivom "& strFileName &" u fascikli "& strDir &".)) Prekinite 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š računar se isključio" & 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 greška: "& err.numberEnd IfWScript. Quit