Introduzione allo script VB: una guida per principianti: Parte 2: Lavorare con i file: 13 passaggi

2024 Autore: John Day | [email protected]. Ultima modifica: 2024-01-30 10:06

Bene, nel mio ultimo tutorial VBScript, ho spiegato come creare uno script per spegnere Internet per giocare a Xbox360. Oggi ho un problema diverso. Il mio computer si è spento in momenti casuali e voglio accedere ogni volta che il computer si riavvia in un file. Ho la sensazione che il problema sia la scheda video, ma voglio essere sicuro. Lascio il computer sempre acceso ma non posso monitorarlo 24 ore su 24, 7 giorni su 7, quindi la mia soluzione più semplice è scrivere un timestamp su un file ogni volta che si riavvia. Perché mi dà un BSOD ogni volta, la registrazione quando si spegne sarà difficile, quindi devo ottenerlo quando si riaccende. Questa è la parte facile. A causa del fatto che questo è solo temporaneo fino a quando non capisco cosa c'è che non va nel computer, non scriverò nel registro o lo renderò un servizio in modo che si avvii all'avvio. E per farlo riavviare ogni volta che si spegne dovrò modificare il bios.

Passaggio 1: modifica del BIOS per farlo riavviare in caso di interruzione dell'alimentazione

Non sono sicuro se il mio problema è con l'alimentazione difettosa o con la mia scheda video o di cosa si tratta. Ma so che il computer si riavvia ogni tanto. Quindi, per assicurarmi che si riavvii dopo un'interruzione di corrente (IE: l'alimentatore si spegne) voglio modificare il BIOS. A causa del fatto che ci sono così tanti diversi produttori di bios là fuori, sarebbe troppo difficile elencare tutti i diversi modi per farlo in tutte le diverse schermate del bios, quindi ti darò solo le basi e ti lascerò capire le specifiche da soli. Fondamentalmente per entrare nel tuo bios dovrai premere un pulsante all'avvio. Di solito dirà qualcosa come "premi Canc per entrare nel setup" o "F2". Diversi produttori offrono modi diversi, ma di solito è il tasto "F2" o "Canc". In ogni caso, cercalo e premi il tasto che ti dice di premere. Ora arriverai a una schermata che di solito è grigia o blu, ma di nuovo dipende dalla marca del tuo bios. Cercherai un'opzione per le impostazioni di alimentazione. Sarà o su una finestra tutta sua come nella schermata AMIBIOS (presa in prestito dalla guida hardware di Toms) o in alcuni potrebbe essere in una finestra di funzionalità avanzate del bios. Comunque stai cercando un'impostazione "ripristina in caso di perdita di alimentazione/ca". Potrebbe essere chiamato qualcos'altro, ma sarà vicino a quello. Basta cercarlo. Di solito ha tre opzioni (ultimo stato, acceso dopo l'interruzione dell'alimentazione, spento dopo l'interruzione dell'alimentazione). Si desidera attivarlo dopo l'interruzione dell'alimentazione. Assicurati di salvare le impostazioni e di uscire dal bios. Ora, quando l'alimentazione si interrompe o si scollega la macchina, si riavvierà non appena verrà ripristinata l'alimentazione. sihhhhh!!!!!!!!!!!!!!!

Passaggio 2: scrittura della sceneggiatura Parte 1: creazione di un piano

La prima cosa che vogliamo fare è creare un piano. Cosa vogliamo esattamente che faccia lo script. A.) Quando si interrompe l'alimentazione o si attiva il BSOD, vogliamo che si riavvii. (Trattato nel passaggio 1 Modifica del BiosB.) Non appena si riavvia, vogliamo scrivere su un file la data e l'ora esatte in cui è stato riavviato. C.) Vogliamo essere in grado di modificare quel file. Se si riavvia più di una volta non lo sapremmo mai. D.) Vogliamo che abbia la correzione degli errori in modo che non si rovini e ci assicuriamo di ottenere tutti i nostri riavvii senza perderne nessuno a causa di una cattiva codifica. E.) Lo vogliamo per far apparire un messaggio che dice che è stato riavviato. F.) Vogliamo che apra il file su cui abbiamo scritto in modo da poter vedere un elenco di tutti i riavvii quando facciamo clic su ok sul messaggio a comparsa.

Passaggio 3: scrittura dello script Parte 2: creazione dello script e assegnazione delle variabili

Ok per prima cosa, crea un documento di testo e rinominalo in any_name.vbs. Ho usato shutdown_catcher.vbs ma puoi usare qualsiasi cosa. Ora fai clic con il pulsante destro del mouse sul file vbs e premi modifica. Se usi notepad ++ ora sarebbe un buon momento per aprirlo, se non lo fai, ma prevedi di eseguire qualsiasi quantità di codice dovrebbe cercare di ottenerlo. Ok, ora la prima cosa che vogliamo fare è creare variabili. Le variabili sono fondamentalmente solo un segnaposto, quindi non dobbiamo scrivere un sacco di cose un sacco di volte. esempio: abbiamo una frase che dice "la veloce volpe marrone salta indietro sui cani pigri". ma è nel nostro codice 20 volte. possiamo digitare l'intera frase 20 volte o creare una variabile e assegnare la frase a quella variabileQuindi in questo esempio creiamo la variabile strSentence quindi assegniamo "la volpe marrone veloce salta sui cani pigri" a quella variabile. Ora tutto ciò che dobbiamo fare è digitare strSentence ogni volta che abbiamo bisogno della frase e sa digitare "la volpe marrone veloce salta indietro sui cani pigri" come lo facciamo: se abbiamo più variabili dello stesso tipo possiamo mettere li sulla stessa riga e separare le variabili con virgole. Per creare una variabile dobbiamo fare ciò che viene chiamato dimensionamento della variabile. Per fare ciò digitiamo Dim prima della variabile, quindi mettiamo un prefisso sulla variabile in modo da sapere cosa rappresenta la variabile. Esempi sono str per una variabile stringa obj per una variabile oggetto const per una costante… L'elenco potrebbe continuare all'infinito. questi sono quelli che useremo in questo script, quindi li spiegherò un po'. una stringa è di solito un testo come una frase. Un oggetto è solitamente qualcosa di fisico come un file o un programma. e una costante è qualcosa che avrà sempre lo stesso significato in tutto lo script. NOTA: OGNI VOLTA CHE UNA LINEA HA UN SINGOLO ' PRIMA DI ESSO LA LINEA SARÀ IGNORATA DALLO SCRIPT. SONO CHIAMATE OSSERVAZIONI E DI SOLITO SONO INSERITE DAL PROGRAMMATORE POSSONO RICORDARE COSA HANNO FATTO IN SEGUITO QUANDO VERIFICANO IL CODICE. LI UTILIZZER PER FARE COMMENTI SUL CODICE IN MODO CHE PUOI VEDERE PERCHÉ HO FATTO LE ROBA NEL MODO IN CUI HO FATTO. E SARANNO SOPRA LA LINEA SU CUI STANNO COMMENTANDO. Utilizzo effettivo: 'questa riga ti costringe a definire tutte le variabili. Senza di essa qualsiasi variabile indefinita sarà trattata come un objectOption Explicit'ora creiamo 5 variabili per le cartelle e i file che ci serviranno'nominali come vuoi ma la convenzione è preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'ora abbiamo bisogno per creare variabili stringa per la directory, file e nome fileDim strDir, strFile, strFileName'ora assegna i valori alle variabili'la strDir è la nostra directory vogliamo la cartella in strDir = "C:\Catcher"'la strFile è dove vogliamo il documento di testo e come si chiamastrFile = "\Shutdown_catcher.txt"'il nome del file str è quindi abbiamo il nome del file da usare nel pop upsstrFileName ="Shutdown_catcher.txt"'dopo dobbiamo assegnare una costante per accedere al file abbiamo tre opzioni'useremo solo l'aggiunta in questo codice ma è bello conoscerle tutte. Const forReading=1, forWriting = 2, ForAppending = 8'infine dobbiamo impostare una variabile nel file system oggetto in modo che possiamo chiamarlo in seguito quando ne abbiamo bisognoSet objFiS yOb = CreateObject("Scripting. FileSystemObject")

Passaggio 4: spiegazioni in mezzo

Ora che abbiamo dimensionato le nostre variabili, non ci resta che richiamare ogni volta quella specifica variabile. Questo non solo riduce la quantità di digitazione che facciamo, ma crea anche meno errori a causa di errori di ortografia. Ora tecnicamente tutto ciò che dobbiamo fare è digitare il seguente codice e abbiamo finito 'impostare il file per appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)'scrivi la nuova riga nel fileobjTextFile. WriteLine("Il tuo computer si spegne il " & data & " alle " & ora)'chiudi il fileobjTextFile. Close'fai un pop upWscript. Echo ("Il tuo computer Spegni il " & data & " alle " & ora)'apri il file in IESet objShell = CreateObject("WScript. Shell")objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt") Il problema è che non avrà alcuna correzione degli errori e qualsiasi errore semplice come file non esistente o variabile già assegnata farà crashare lo script.

Passaggio 5: scrittura dello script Parte 3: istruzioni If Then come correzione degli errori

Il modo più semplice per correggere gli errori è usare le istruzioni if/then. Fondamentalmente un'istruzione if then dice che se succede qualcosa allora fallo altrimenti fallo. Nidificando le istruzioni if/then puoi creare una serie di cose che devono accadere. Se a e b e c accadono, fallo altrimenti fallo. esempio: vogliamo assicurarci che il file su cui vogliamo scrivere sia presente se lo troviamo non vogliamo fare nulla se non lo troviamo vogliamo crearlo o noi vuoi controllare se la cartella è presente e in caso contrario crearla e quindi verificare se il file è presente una volta trovata la cartella e in caso contrario crearla il primo è un esempio di un'istruzione if then il secondo è un if then nidificato. lo facciamo: ci sono quattro parti in un'istruzione if then if/then elseend se è fondamentalmente se questo è vero allora fallo altrimenti fallo e poi termina l'istruzione un'istruzione if then correttamente codificata sarebbe: se qualcosa = qualcosa Allora fai cosa ti serve fattoElse fai qualcos'altroEnd IfPuoi usare qualsiasi argomento purchéèvero seguirà la parte then e ignorerà la parte else ma seèfalsa salterà allora e andrà ad else Poi quando finiremo l'istruzione if mettiamo "end if", ma se abbiamo istruzioni if annidate dobbiamo terminare ogni istruzione if. Li terminerà da figlio a genitore, quindi il primo "end if" termina l'istruzione if all'interno del genitore, dove il secondo termina l'istruzione if originale (genitore). vogliamo dire nel messaggio ") per aggiungere un valore di variabili in esso lo mettiamo fuori o tra virgolette usando il segno e commerciale (&) come delimitatore in modo che lo script sappia che è una variabile e non un testo.come questo:Wscript. Echo ("Blah blah blah " & strDir & " blah blah blah "& strFilename & " blah blah blah.") L'output sarebbe un pop-up che diceva Blah blah blah C:\Catcher blah blah blah shutdown_catcher.txt blah blah blah. Utilizzo effettivo:'se la cartella C;\exist If objFiSyOb. FolderExists(strDir) Then'get folder Set objSysFold = objFiSyOb. GetFolder(strDir)'otherwiseElse'crea la cartella c;\catcher Set objFiSysFold = objFiSyOb. CreateFolder(strDir)'e controlla se il file e la cartella esistono If objFiSyOb. FileExists(strDir & strFile) Then'se ottiene la cartella c:\catcher Set ob jSysFold = objFiSyOb. GetFolder(strDir)'otherwiseElse'create text document shutdown_catcher.txt Set objFile = objFiSyOb. CreateTextFile(strDir & strFile)'quindi fai apparire un messaggio per dire che li hai creati entrambi Wscript. Echo ("Abbiamo creato una cartella denominato " & strDir & " e un file denominato "& strFilename & " e inserito nella directory " & strDir & strFile & ".")'end annidato if istruzioneEnd If'end originale if istruzioneEnd If'ora nella prima istruzione if abbiamo già controllato la cartella e l'abbiamo trovata, quindi ora controlliamo fileIf objFiSyOb. FileExists(strDir & strFile) Then'if found get folder Set objSysFold = objFiSyOb. GetFolder(strDir)'otherwise'create il testo doc Set objFile = objFiSyOb. CreateTextFile(strDir & strFile)'crea un popup che dice che abbiamo creato il documento di testo Wscript. Echo ("Abbiamo creato un file chiamato " & strFileName & " nella " & strDir & "cartella file.")End If

Passaggio 6: spiegazioni in mezzo

Se osservi attentamente il codice del passaggio precedente, vedrai un'istruzione if then sia nidificata che non nidificata. Il primo è un'istruzione annidata. Controlla la cartella e il file e se non li trova li crea entrambi. Il secondo cerca solo un file e se non lo trova crea solo il file. Si potrebbe dire perché entrambi. Bene, cosa succede se il file viene eliminato ma la cartella no. La prima istruzione if salterebbe direttamente sulla creazione del file perché ha trovato la cartella e non avrebbe mai attivato la parte else dell'istruzione. Quindi, quando sei andato a scrivere sul file, si sarebbe verificato un errore perché il file sarebbe mancante. Quindi, avendo il secondo lì, risolve questo problema. Tecnicamente potresti eliminare l'istruzione nidificata perché è quasi la stessa della seconda istruzione if then, ma avresti solo un pop-up e non sarebbe così personalizzabile Inoltre mi ha dato la possibilità di mostrarti nidificato anziché un -nested if dichiarazioni.

Passaggio 7: più correzione degli errori

Ora che abbiamo completato la maggior parte della correzione degli errori, vogliamo scrivere sul file e mostrare i popup. Il problema è che otterremo errori di autorizzazione se non rilasciamo il riferimento dell'oggetto precedente memorizzato nella variabile. Quindi vogliamo inserire un piccolo frammento di codice che dice imposta le variabili su niente. assomiglia a questo: set objFile = nienteset objSysFold = niente Quindi per quelli di voi che seguono a casa il vostro codice a questo punto dovrebbe essere (ho preso il commento out):Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C:\Catcher"strFile = "\Shutdown_catcher.txt"strFileName ="Shutdowntxt,Shutdown_forWriting=1. ForAppending = 8Set objFiSyOb = CreateObject("Scripting. FileSystemObject")If objFiSyOb. FolderExists(strDir) Then Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set objSysFold = objFiSyOb. CreatestrFibstr. Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo ("Abbiamo creato una cartella denominata " & strDir & " e un file denominato "& strFilename & " e l'abbiamo inserito in la directory " & strDir & strFile & ".")Fine I fEnd IfIf objFiSyOb. FileExists(strDir & strFile) Then Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo nel nome "& strFile" ("Abbiamo creato un file & strFile " & strDir & "cartella file.")End Ifset objFile = nienteset objSysFold = niente

Passaggio 8: scrittura dello script Parte 4: impostazione degli attributi

Ora dobbiamo impostare gli attributi del file in modo da poterlo modificare. In precedenza abbiamo impostato tre variabili costanti: forReading=1forWriting=2 forAppending=8se lo imposti su forReading potrai leggerlo ma non scriverci sopra.se lo imposti su forWriting sovrascriverai il file esistente ogni volta che esegui il programma. Se lo imposti su forAppending, aggiungerai una nuova riga ogni volta che lo script viene eseguito nel documento. Poiché vogliamo un registro di ogni riavvio, vogliamo che venga aggiunto e non sovrascritto, quindi usiamo forAppending. Come lo facciamo:devi nominare l'oggetto a cui vuoi impostare gli attributi. Poiché abbiamo già svolto la maggior parte del lavoro nei passaggi precedenti, a questo punto abbiamo solo bisogno di richiamare le variabili. Quindi impostalo su true. Actual Usage:'object to set = filesystemobject.action(directory+nome del file, attributo, true o false)Set objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Passaggio 9: scrittura dello script Parte 5: scrittura su file

Scrivere su un file è molto simile a scrivere un popup. Hai appena messo:objTextFile. WriteLine("Qualunque cosa tu voglia dire " & Variabile da inserire per scrivere la riga)L'unica differenza è la prima parte. In un popup metti:Wscript.echoin una riga di scrittura che metti:objTextFile. WriteLineE in una riga di scrittura devi chiudere la riga di scrittura in modo che sappia smettere di scrivere e per questo usi: objTextFile. CloseActual Usage: objTextFile. WriteLine ("Il tuo computer si spegne su " & data & " alle " & ora) objTextFile.close'ora aggiungi un popup per dire che hai scritto al file in modo che la persona sappia che è successo'e devono chiuderlo per aprire il file e visualizzareWscript. Echo ("Il tuo computer si spegne su " & data & " su " & tempo)

Passaggio 10: scrittura dello script Parte 5: apertura del file per la visualizzazione

Lo script a questo punto si fermerà finché qualcuno non farà clic sul popup. Una volta superato il popup, puoi inserire una riga che apre il file. L'uso di alcune correzioni di errore aiuta a mantenere il programma in esecuzione correttamente. Quando crei un errore in vbscript, aggiunge un valore alla variabile "err.number" che è una variabile predefinita in vbscript. Non devi definirlo e puoi usarlo come qualsiasi altra variabile purché non violi le sue regole. Il valore assegnato alla variabile err.number è il codice dell'errore che si è verificato. Ora puoi controllare ogni codice di errore noto nel database vbscript e assicurarti che non si sia verificato. O più semplicemente, sta solo controllando che la variabile err.number sia vuota. se è vuoto non si sono verificati errori. Per farlo controlliamo semplicemente per vedere se la variabile è uguale a vbEmpty. Quindi nel nostro script vogliamo usare un'altra istruzione if then. E controlla se si è verificato un errore e se non ha aperto il file per la visualizzazione, ma in tal caso viene visualizzato un messaggio con il numero di errore in modo che possiamo eseguire il debug. Quindi, quando abbiamo finito con il nostro script, digitare Wscript. Quit. Questo dice allo script di terminare se stesso. Questo aiuta a mantenere basse le perdite di memoria e i processi indesiderati in esecuzione. Come viene utilizzato: se err.number è uguale a vbEmpty, quindi creare una shell, quindi eseguire il programma dalla shell, altrimenti viene visualizzato un messaggio che dice che c'è stato un errore e se. errorsIf err.number = vbEmpty then'se nessuno crea una shell Set objShell = CreateObject("WScript. Shell")'quindi apri il file da quella shell usando explorer. in realtà si aprirà in IE anche se objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt")'altrimenti farà apparire un messaggio con il numero di erroreElse WScript.echo "VBScript Error: " & err.numberEnd If 'end scriptWscript.quit

Passaggio 11: eseguire lo script all'avvio

C'è una cartella di file nel menu di avvio chiamata Avvio. Tutto ciò che viene inserito in questa cartella verrà avviato non appena il computer viene avviato. Inserendo il file di script nella cartella di avvio verrà eseguito ogni volta che il computer viene riavviato, intenzionalmente o meno. Poiché lo sto usando solo come strumento diagnostico, non è necessario trasformarlo in un servizio per l'avvio e non è necessario inserirlo nel registro per avviarlo, quindi andrà bene. Una volta riparato il computer, posso eliminare il file dalla cartella di avvio e non sono necessarie altre operazioni di pulizia.

Passaggio 12: esecuzione del programma

Quando esegui il file vbscript, ora A.) Controlla se la cartella C:\Catcher esiste e se no creala. B:) Controlla se il file Shutdown_catcher.txt esiste e se no crealo. C:) Se ha creato una cartella o un file o entrambi, verrà visualizzato un messaggio che dice che li ha creati (Nota: dovrebbe farlo solo alla prima esecuzione, dopodiché dovrebbe essere già lì a meno che non venga cancellato, quindi dovresti vedere quel messaggio solo una volta. Potrebbe essere una buona idea eseguire questo script una volta con un riavvio controllato in modo da poter ignorare questi popup o non scrivere nulla sul file perché non ignorerà i popup creati dal file.)D:) Scrivi una riga nel documento di testo Shutdown_Catcher.txt che dice che il computer si è spento in tale data e in tale momento. E:) Fai apparire un messaggio che dice che c'è stato un riavvioF:) Apri il file per la visualizzazione. Se guardi nel passaggio successivo vedrai il codice come scritto. Ora tutto ciò che devo fare è sedermi e aspettare. Ogni volta che il computer si riavvia, ne avrò una registrazione. Quindi posso rivedere il record e vedere se c'è coerenza. L'esempio potrebbe essere che si riavvia ogni mezz'ora o si riavvia ogni volta che c'è un incremento o 45 sull'orologio. Questo non è affatto l'unico modo in cui sto controllando il computer, solo perché tu lo sappia. Ho anche un programma di benchmark in esecuzione per controllare le temperature, quindi so quanto fa caldo quando si spegne, la tensione in modo da sapere se l'alimentatore non funziona e alcune altre cose utili. Bene, spero che questo sia stato utile. So che mi piace, quindi forse lo faranno anche gli altri. Se avete domande non esitate a chiedere. Potrei non raggiungerli immediatamente, ma entro un po' e ti risponderò. Dipende da come va il mio giorno/settimana.

Passaggio 13: il codice

Questo è il codice come scritto senza tutti i suggerimenti e le osservazioni_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C:\Catcher"strFile = "\Shutdown_strhulecatcher.txt" Const forReading=1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject("Scripting. FileSystemObject")If objFiSyOb. FolderExists(strDir) Quindi impostare objSysFold = objFiSyOb. GetFolder(strDir)Else Set objSysFold = objFiSyFold objFiSyOb. FileExists(strDir & strFile) Quindi imposta objSysFold = objFiSyOb. GetFolder(strDir)Else Imposta objFile = objFiSyOb. CreateTextFile(strDir & strFile) Wscript. Echo ("Abbiamo creato una cartella denominata & " e astrDir "& strFilename & " e inserito nella directory " & strDir & strFile & ".")End IfEnd IfIf objFiSyOb. FileExists(strDir & strFile) Then Set objSysFold = objFiSyOb. GetFolder(strDir)Else Set objFiSyOb. strDir & strFile) Wscript. Echo ("Abbiamo ha creato un file denominato " & strFileName & " nella " & strDir & "cartella file.")End Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)objTextFile. WriteLine("Il tuo computer Spegni il " & data & " alle " & ora) objTextFile. CloseWscript. Echo ("Il tuo computer si spegne il " & data & " alle " & ora) Se err.number = vbEmpty quindi Imposta objShell = CreateObject ("WScript. Shell") objShell.run ("Explorer" &" " & strDir & "\shutdown_catcher.txt")Else WScript.echo "VBScript Error: " & err.numberEnd IfWScript. Quit