Introducere în scriptul VB: un ghid pentru începători: Partea 2: Lucrul cu fișiere: 13 pași

2024 Autor: John Day | [email protected]. Modificat ultima dată: 2024-01-30 11:47

Ei bine, în ultimul meu instructor VBScript, am analizat cum să fac un script pentru a vă închide internetul pentru a juca Xbox360. Astăzi am o altă problemă. Calculatorul meu se oprește la întâmplare și vreau să mă conectez de fiecare dată când computerul repornește într-un fișier. Am senzația că problema este placa video, dar vreau să mă asigur. Las computerul pornit în orice moment, dar nu îl pot monitoriza 24/7, deci cea mai ușoară soluție a mea este să scriu un ștampil de timp într-un fișier de fiecare dată când repornește. Deoarece îmi oferă un BSOD de fiecare dată, înregistrarea când se oprește va fi dificilă, așa că trebuie să o obțin când se reîncepe. Aceasta este partea ușoară. Datorită faptului că acest lucru este doar temporar, până nu îmi dau seama ce este în neregulă cu computerul, nu am de gând să scriu în registru sau să îl fac un serviciu, așa că va porni la momentul pornirii. Și pentru a-l reporni de fiecare dată când se oprește, va trebui să editez bios-ul.

Pasul 1: Editarea BIOS-ului pentru a-l reporni în caz de eșec

Nu sunt sigur dacă problema mea este cu defectarea sursei de alimentare sau cu placa mea video sau care este. Dar știu că computerul repornește din când în când. Așadar, pentru a mă asigura că repornește după o pană de alimentare (IE: sursa de alimentare se stinge), vreau să editez BIOS-ul. Datorită faptului că există atât de mulți producători de bios diferiți acolo, ar fi prea greu să enumerăm toate modalitățile diferite de a face acest lucru în toate ecranele de bios diferite, așa că vă voi oferi elementele de bază și vă voi da seama Pentru a intra în biografia dvs., va trebui să apăsați un buton pe boot. De obicei, se va spune ceva de genul „apăsați Del pentru a intra în configurare” sau „F2”. Diferiți producători vă oferă moduri diferite, dar este de obicei fie cheia „F2”, fie „Del”. Oricum, urmăriți-l și apăsați tasta pe care vă spune să o atingeți. Acum veți ajunge la un ecran care este de obicei fie gri, fie albastru, dar depinde din nou de marca bios. Veți căuta o opțiune de setări de alimentare. Va fi fie pe o fereastră, ca în captura de ecran AMIBIOS (împrumutată din ghidul hardware al toms), sau în unele poate fi într-o fereastră avansată de caracteristici de bios. Oricum sunteți în căutarea unei setări „restaurare la pierderea de curent alternativ / curent electric”. Poate fi numit altceva, dar va fi aproape de asta. Doar căutați-l. De obicei, va avea trei opțiuni (ultima stare, pornită după pierderea de energie, oprită după pierderea de energie). Doriți să-l activați după pierderea de energie. Asigurați-vă că salvați setările și că ieșiți din bios. Acum, când alimentarea dvs. nu funcționează sau vă deconectați aparatul, acesta va reporni imediat ce va reveni la curent. Mdahhhhh !!!!!!!!!!!!!!!!

Pasul 2: Scrierea scriptului Partea 1: Realizarea unui plan

Primul lucru pe care vrem să-l facem este să creăm un plan. Ce anume dorim să facă scriptul. (Având grijă la pasul 1 Editarea BiosB.) De îndată ce repornește, vrem să scriem într-un fișier data și ora exactă la care a repornit. C.) Vrem să putem modifica acel dosar. Dacă se repornește de mai multe ori, nu am ști niciodată. pentru a afișa un mesaj care spune că a repornit. F.) Vrem să deschidă fișierul căruia i-am scris, astfel încât să putem vedea o listă cu toate repornirile atunci când facem clic pe ok pe mesajul pop-up.

Pasul 3: Scrierea scriptului Partea 2: Crearea scriptului dvs. și atribuirea variabilelor

Mai întâi, mai întâi, creați un document text și redenumiți-l în any_name.vbs. Am folosit shutdown_catcher.vbs, dar puteți folosi orice. Acum, faceți clic dreapta pe fișierul vbs și apăsați editarea. Dacă utilizați notepad ++, ar fi un moment bun să îl deschideți, dacă nu intenționați să faceți orice cantitate de codare Ar trebui să analizăm să-l obținem. Bine acum, primul lucru pe care vrem să-l facem este să creăm variabile. Variabilele sunt în esență doar un deținător de loc, deci nu trebuie să scriem o grămadă de lucruri de o grămadă de ori. exemplu: avem o propoziție care spune „vulpea brună și rapidă sare peste câinii leneși înapoi”. dar este în codul nostru de 20 de ori. putem fie să tastați întreaga propoziție de 20 de ori, fie să creăm o variabilă și să atribuim propoziția variabilei respective. Deci, în acest exemplu, creăm variabila strSentence, apoi atribuim „vulpea maro rapidă sare peste câinii leneși înapoi” acelei variabile. Acum tot ce trebuie să facem este să tastați strSentence de fiecare dată când avem nevoie de propoziție și știe să tastați „vulpea brună rapidă sare peste câinii leneși înapoi” cum o facem: Dacă avem mai multe variabile de același tip putem pune le pe aceeași linie și separă variabilele prin virgule. Pentru a crea o variabilă trebuie să facem ceea ce se numește dimensionarea variabilei. Pentru a face acest lucru, tastăm Dim înainte de variabilă, apoi punem un prefix pe variabilă, astfel încât să știm ce reprezintă variabila. Exemplele sunt str pentru o variabilă șir obj pentru o variabilă obiect const pentru o constantă …. Lista continuă și continuă. acestea sunt cele pe care le vom folosi în acest script, așa că le voi explica puțin. un șir este de obicei text ca o propoziție. Un obiect este de obicei ceva fizic, cum ar fi un fișier sau un program. și o constantă este ceva care va avea întotdeauna același înțeles pe tot scenariul. NOTĂ: ORICE O LINIE ARE UN SINGUR 'ÎNAINTE LINIA VA FI IGNORATĂ DE SCRIPT. SUNT NUMITE OBSERVAȚII ȘI SUNT DE obicei PUBLICATE DE PROGRAMATOR Își pot aminti ce au făcut mai târziu la revizuirea codului. ÎI VOI UTILIZA PENTRU A FACE COMENTARII DESPRE COD, AȘA VĂ PUTEAȚI VEDE DE CE M-AM ÎMPLINIT ÎN MODUL AM FĂCUT. ȘI VOR FI PESTE LINIA PE CARE O COMENTARĂ. Utilizare reală: „această linie vă obligă să definiți toate variabilele. Fără ea, orice variabilă nedefinită va fi tratată ca obiect Opțiune Explicit acum creăm 5 variabile pentru foldere și fișiere, vom avea nevoie să le numim cum doriți, dar convenția este preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFileNow avem nevoie pentru a crea variabile de șir pentru director, fișier și numele fișierului Dim strDir, strFile, strFileName, acum atribuim valori variabilelor "strDir este directorul nostru, vrem folderul din strDir =" C: / Catcher "'strFile este locul în care dorim documentul text și cum este denumitstrFile = "\ Shutdown_catcher.txt" 'numele fișierului str este așa că avem numele fișierului pentru a fi utilizat în pop upsstrFileName = "Shutdown_catcher.txt"' în continuare trebuie să atribuim o constantă pentru accesarea Fișierul avem trei opțiuni: vom folosi doar anexele din acest cod, dar este bine să le cunoaștem pe toate. obiect, astfel încât să-l putem numi mai târziu, atunci când avem nevoie de acesta, setați obiectele yOb = CreateObject ("Scripting. FileSystemObject")

Pasul 4: Explicații între

Acum, că avem variabilele dimensionate, tot ce trebuie să facem este să ne reamintim de fiecare dată acea variabilă specifică. Acest lucru nu numai că reduce cantitatea de tastare pe care o facem, dar creează și mai puține greșeli din cauza greșelilor de ortografie. Acum, din punct de vedere tehnic, tot ce trebuie să facem este să tastați următorul cod și am terminat „setați fișierul pentru appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'scrieți noua linie în fișierobjTextFile. WriteLine („Închideți computerul la” & data & „la” și ora)' închideți fișierulobjTextFile. Închideți faceți un pop-upWscript. Echo („ computer Închideți pe "& data &" la "& ora) 'deschideți fișierul în IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Problema este că nu va avea nicio corectare a erorilor și orice eroare simplă, cum ar fi fișierul care nu există sau variabila deja atribuită, va bloca scriptul.

Pasul 5: Scrierea scriptului Partea 3: Declarații If Then ca corectare a erorilor

Cel mai simplu mod de a efectua corectarea erorilor este de a utiliza instrucțiunile if / then. Cuibărind declarațiile if / then puteți crea un șir de lucruri care trebuie să se întâmple. Dacă a și b și c se întâmplă atunci faceți acest lucru altceva faceți acest lucru. doriți să verificați dacă folderul este acolo și dacă nu, creați-l și apoi verificați dacă fișierul este acolo odată ce găsim folderul și dacă nu îl creați, primul este un exemplu de declarație if then, a doua este un imbricat dacă atunci. o facem: există patru părți la o instrucțiune if then if / then elseend dacă este practic dacă este adevărat atunci faceți acest lucru altfel faceți asta apoi terminați instrucțiunea o instrucțiune if atunci codată corect ar fi: Dacă ceva = ceva Atunci faceți ceea ce trebuie făcut Altceva faceți altceva End Dacă puteți folosi orice argument atâta timp cât este adevărat, va urma partea de atunci și va ignora partea else, dar dacă este falsă, va trece peste atunci și va merge la else Apoi, când vom termina declarația if punem „sfârșit dacă”, dar dacă am imbricat instrucțiuni if trebuie să terminăm fiecare instrucțiune if. Le va încheia de la copil la părinte, astfel încât primul „sfârșit dacă” termină declarația if din interiorul părintelui, unde a doua termină declarația originală (părinte) if. Pentru a face o fereastră pop-up, tastați doar Wscript. Echo vrem să spunem în mesajul ") pentru a adăuga o valoare variabilă în el, o punem în afara sau între ghilimele duble folosind semnul ampersand (&) ca delimitator, astfel încât scriptul să știe că este o variabilă și nu un text. ca acesta: Wscript. Echo („Bla bla bla” & strDir & „bla bla bla” & strFilename & „bla bla bla.”) Rezultatul ar fi un pop-up care spunea Bla bla bla C: / Catcher bla bla bla shutdown_catcher.txt bla bla bla. Utilizare reală: 'dacă folderul C; / există Dacă objFiSyOb. FolderExists (strDir), atunci'get folder Set objSysFold = objFiSyOb. GetFolder (strDir)' elseElse'create folder c; / catcher Set objSysFold = objFiSyOb. CreateFolder (strDir) 'și verificați dacă fișierul și folderul există. jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse'create text text shutdown_catcher.txt Set objFile = objFiSyOb. CreateTextFile (strDir & strFile)' apoi pop-up un mesaj pentru a spune că le-ați creat ambele Wscript. Echo ("Am creat un folder numit „& strDir &” și un fișier numit „& strFilename &” și l-a plasat în directorul „& strDir & strFile &„.”) 'sfârșit imbricat if statementEnd If'end original if statement Am verificat deja dosarul și l-am găsit, așa că acum verificăm fișierul If objFiSyOb. FileExists (strDir & strFile) Then'if found get folder Set objSysFold = objFiSyOb. GetFolder (strDir) 'Altfel' creați textul doc Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'creați un popup care spune că am creat documentul text Wscript. Echo ("Am creat un fișier numit" & strFileName & "în folderul" & strDir & "fișier.")

Pasul 6: Explicații între

Dacă priviți cu atenție codul de la pasul anterior, veți vedea atât o instrucțiune imbricată, cât și ne-imbricată if then. Prima este o afirmație imbricată. Verifică folderul și fișierul și dacă nu le găsește, le creează pe ambele. Al doilea caută doar un fișier și dacă nu găsește, creează doar fișierul. S-ar putea spune de ce amândouă. Ce se întâmplă dacă fișierul este șters, dar folderul nu. Prima declarație if ar trece direct peste crearea fișierului, deoarece a găsit folderul și nu ar acționa niciodată partea opusă a declarației. Deci, când ați plecat să scrieți în fișier, s-ar erora deoarece fișierul ar lipsi. Deci, având al doilea acolo, rezolvă această problemă. Din punct de vedere tehnic, ați putea scoate afirmația imbricată, deoarece este aproape la fel ca a doua afirmație atunci, dar atunci ați avea o singură fereastră pop-up și nu ar fi la fel de simpatică, plus mi-a dat șansa de a vă arăta imbricat spre deosebire de un -afirmate if declarate.

Pasul 7: mai multe corecții de erori

Acum, după ce am finalizat majoritatea corecției de erori, vrem să scriem în fișier și să afișăm ferestrele pop-up. Problema este că vom primi erori de permisiune dacă nu eliberăm referința obiectului anterior stocat în variabilă. Așadar, vrem să introducem un mic fragment de cod care spune setează variabilele la nimic. Arată așa: set objFile = nothingset objSysFold = nimic out): Opțiune ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "Shutdown_catcher =, 1 ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Dacă objFiSyOb. FolderExists (strDir) Apoi setați objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSysFold = objFiSyOb. CreateFold (strDirS) Setați objSysFold = objFiSyOb. GetFolder (strDir) Altfel Setați objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Am creat un folder numit" & strDir & "și un fișier numit" & strFilename & "și l-am plasat în directorul „& strDir & strFile &„.”) Sfârșitul I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Atunci Setați objSysFold = objFiSyOb. GetFolder (strDir) Altfel Setați objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Am creat un fișier numit" & "Fișierul fișierului" & strDir & ".") End Ifset objFile = nothingset objSysFold = nimic

Pasul 8: Scrierea scriptului Partea 4: Setarea atributelor

Acum trebuie să setăm atributele fișierului, astfel încât să îl putem modifica. Anterior am setat trei variabile constante: forReading = 1forWriting = 2 forAppending = 8 dacă îl setați la forReading îl veți putea citi, dar nu îl puteți scrie.. Dacă îl setați la forAppending, veți adăuga o nouă linie de fiecare dată când scriptul se execută în document. Din moment ce dorim un jurnal de fiecare dată când se repornește, dorim ca acesta să fie adăugat și să nu fie suprasolicitat, așa că îl folosim pentru Appending.: trebuie să denumiți obiectul pe care doriți să setați atributele. Deoarece am făcut deja cea mai mare parte a muncii în pașii anteriori, trebuie doar să reamintim variabile în acest moment. Apoi, pur și simplu setați-l la true. Utilizare reală: 'object to set = filesystemobject.action (director + numele fișierului, atribut, adevărat sau fals)

Pasul 9: Scrierea scriptului Partea 5: Scrierea în fișier

Scrierea într-un fișier seamănă mult cu scrierea unui pop-up. Pur și simplu puneți: objTextFile. WriteLine („Orice doriți să spuneți” & Variabilă pentru a trage pentru a scrie linie) Singura diferență este prima parte. WriteLine Și într-o linie de scriere trebuie să închideți linia de scriere, astfel încât să știe să oprească scrierea și pentru aceasta utilizați: objTextFile. CloseActual Usage: objTextFile. WriteLine ("Computerul dvs. închideți" & data & "la" și ora) objTextFile. Închideți acum adăugați un popup pentru a spune că ați scris în fișier, astfel încât persoana să știe că s-a întâmplat și trebuie să îl închidă pentru a deschide fișierul și a vizualiza Scriptul. & timp)

Pasul 10: Scrierea scriptului Partea 5: Deschiderea fișierului pentru vizualizare

Scriptul se va opri în acest moment până când cineva face clic pe fereastra pop-up. Odată ce treceți de fereastra pop-up, puteți pune o linie care deschide fișierul. Folosirea unor corecții de erori ajută la menținerea programului în funcțiune frumos. Când creați o eroare în vbscript, aceasta adaugă o valoare variabilei "err.number", care este o variabilă predefinită în vbscript. Nu trebuie să o definiți și o puteți folosi la fel ca orice altă variabilă, atâta timp cât nu îi încălcați regulile. Valoarea atribuită variabilei err.number este codul erorii apărute. Acum puteți să verificați fiecare cod de eroare cunoscut în baza de date vbscript și să vă asigurați că nu a apărut. Sau mai ușor, este doar verificarea pentru a vă asigura că variabila err.number este goală. dacă este gol nu au apărut erori. Pentru a face acest lucru, trebuie doar să verificăm dacă variabila este egală cu vbEmpty. Deci, în scriptul nostru vrem să folosim o altă declarație if then. Și verificați dacă a apărut o eroare și dacă nu a deschis fișierul pentru vizualizare, dar dacă a apărut apoi un mesaj cu numărul de eroare în el, astfel încât să putem depana. Apoi, când am terminat cu scriptul tastați Wscript. Quit. Aceasta îi spune scriptului să se termine. Acest lucru vă ajută să mențineți scurgerile de memorie și procesele nedorite care rulează. errorsIf err.number = vbEmpty then'if none create a shell Set objShell = CreateObject ("WScript. Shell") ', apoi deschideți fișierul din acel shell folosind Explorer. se va deschide de fapt în IE deși objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'în caz contrar va apărea un mesaj cu numărul de eroareAlte WScript.echo "VBScript Error:" & err.numberEnd Dacă 'end scriptWscript.quit

Pasul 11: Executarea scriptului la pornire

Există un folder de fișiere în meniul Start numit Startup. Orice lucru plasat în acest folder va porni imediat ce computerul este pornit. Plasând fișierul script în folderul de pornire, acesta va fi executat de fiecare dată când computerul este repornit, intenționat sau nu. Deoarece folosesc acest lucru doar ca instrument de diagnosticare, nu trebuie să fie transformat într-un serviciu pentru a porni și nu trebuie să îl introduc în registru pentru a-l porni, așa că va fi bine. Odată ce am reparat computerul, pot șterge fișierul din folderul de pornire și nu este necesară nicio altă curățare.

Pasul 12: Rularea programului

Când executați fișierul vbscript, acum va fi A.) Verificați dacă folderul C: / Catcher există și dacă nu îl creați. B:) Verificați dacă fișierul Shutdown_catcher.txt există și dacă nu îl creați. C:) Dacă a creat fie un folder, fie un fișier sau ambele, va apărea un mesaj care spune că le-a creat (Notă: ar trebui să facă acest lucru numai la prima rundă după aceea, ar trebui să fie deja acolo dacă nu este șters, așa că ar trebui să vedeți acel mesaj o singură dată. Ar putea fi o idee bună să rulați acest script odată cu o repornire controlată, astfel încât să puteți ocoli aceste ferestre pop-up sau să nu scrieți nimic în fișier, deoarece nu va ocoli fișierul pop-up creat.) D:) Scrieți o linie în document text Shutdown_Catcher.txt spunând că computerul se oprește la o astfel de dată la o astfel de dată. E:) Apare un mesaj spunând că a fost o repornire F:) Deschideți fișierul pentru vizualizare. Dacă priviți la pasul următor veți vedea codul așa cum este scris. Acum tot ce trebuie să fac este să stau pe spate și să aștept. De fiecare dată când computerul repornește, voi avea o înregistrare a acestuia. Apoi, pot revizui înregistrarea și a vedea dacă există vreo consistență. Exemplul poate fi faptul că repornește la fiecare jumătate de oră sau repornește de fiecare dată când există o creștere sau 45 pe ceas. Acesta nu este în niciun caz singurul mod în care verific pe computer, doar pentru a ști. De asemenea, am un program de benchmarking care rulează pentru a verifica temperatura, așa că știu cât de fierbinte este când se oprește, tensiunea, așa că știu dacă sursa de alimentare nu funcționează și câteva alte lucruri utile. Ei bine, sper că acest lucru a fost de ajutor. Știu că mă bucur, așa că poate și alții o vor face. Dacă aveți întrebări, nu ezitați să întrebați. S-ar putea să nu ajung imediat la ele, dar cu puțin și vă voi răspunde. Depinde de cum merge ziua / săptămâna mea.

Pasul 13: Codul

Acesta este codul scris fără toate sugestiile și observațiile_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" Strut Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") If objFiSyOb. FolderExists (strDir) Then Set objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSysFold (StrDir) objFiSyOb. FileExists (strDir & strFile) Apoi Setați objSysFold = objFiSyOb. GetFolder (strDir) Altfel Setați objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo („Am creat un folder numit„ & strDir &”și „& strFilename &” și l-a plasat în directorul „& strDir & strFile &„.”) Sfârșit IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Apoi Setați objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. Crea strDir & strFile) Wscript. Echo ("Avem a creat un fișier numit "& strFileName &" în dosarul fișierului "& strDir &". ") End Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. WriteLine (" Computerul dvs. Închideți „& data &” la”& ora) objTextFile. CloseWscript. Echo („ Computerul dvs. închideți la „& data &„ la”și ora) Dacă err.number = vbEmpty, apoi Setați objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Altele WScript.echo" Eroare VBScript: "& err.numberEnd IfWScript. Quit