Introdução ao VB Script: um guia para iniciantes: Parte 2: Trabalhando com arquivos: 13 etapas

2024 Autor: John Day | [email protected]. Última modificação: 2024-01-30 11:40

Bem, em meu último VBScript instrutível, falei sobre como fazer um script para desligar sua internet para jogar Xbox360. Hoje tenho um problema diferente. Meu computador foi desligado em momentos aleatórios e quero registrar em um arquivo toda vez que o computador for reinicializado. Tenho a sensação de que o problema é a placa de vídeo, mas quero ter certeza. Deixo o computador ligado o tempo todo, mas não consigo monitorá-lo 24 horas por dia, 7 dias por semana, então minha solução mais fácil é gravar um registro de data e hora em um arquivo sempre que ele for reiniciado. Porque me dá um BSOD todas as vezes, logar quando ele desligar será difícil, então eu tenho que pegá-lo quando ele voltar. Essa é a parte fácil. Como isso é apenas temporário, até que eu descubra o que há de errado com o computador, não vou gravar no registro ou torná-lo um serviço para que ele seja inicializado no momento da inicialização. E para que ele reinicie toda vez que for desligado, terei que editar a bios.

Etapa 1: Editando o BIOS para fazê-lo reiniciar após falha de energia

Não tenho certeza se meu problema é com a fonte de alimentação falhando ou com minha placa de vídeo ou o que é. Mas sei que o computador reinicia de vez em quando. Portanto, para ter certeza de que ele reinicia após uma queda de energia (por exemplo: a fonte de alimentação cai), quero editar o BIOS. Por causa do fato de que existem tantos fabricantes de bios diferentes por aí, seria muito difícil listar todas as diferentes maneiras de fazer isso em todas as telas de bios diferentes, então vou apenas fornecer o básico e deixar você descobrir os detalhes por conta própria. Basicamente, para acessar sua bios, você precisará pressionar um botão na inicialização. Normalmente dirá algo como "pressione Del para entrar na configuração" ou "F2". Diferentes fabricantes fornecem maneiras diferentes, mas geralmente é a tecla "F2" ou "Del". De qualquer maneira, preste atenção nele e aperte a tecla que ele diz para apertar. Agora você chegará a uma tela que geralmente é cinza ou azul, mas novamente depende da marca de sua bios. Você estará procurando uma opção de configurações de energia. Ele estará em uma janela própria como na captura de tela do AMIBIOS (emprestado do guia de hardware do toms) ou em alguns pode estar em uma janela de recursos avançados do BIOS. De qualquer forma, você está procurando por uma configuração de "restauração em ac / perda de energia". Pode ter outro nome, mas será perto disso. Apenas procure. Normalmente, ele terá três opções (último estado, ligado após a perda de energia, desligado após a perda de energia). Você deseja ativá-lo após a perda de energia. Certifique-se de salvar suas configurações e sair do BIOS. Agora, quando sua energia falhar ou você desconectar sua máquina, ela será reiniciada assim que receber energia de volta. Yeahhhhhh !!!!!!!!!!!!!!!!

Etapa 2: Escrevendo o Script Parte 1: Fazendo um Plano

A primeira coisa que queremos fazer é criar um plano. O que exatamente queremos que o script faça. A.) Quando a energia falha ou o BSOD aparece, queremos que ele seja reiniciado. (Cuidado na etapa 1 Editando o BiosB.) Assim que ele for reiniciado, queremos gravar em um arquivo a data e hora exatas em que ele foi reiniciado. C.) Queremos ser capazes de corrigir esse arquivo. Se ele reinicializar mais de uma vez, nunca saberemos. D.) Queremos que tenha correção de erros para que não estrague e nos certificamos de obter todas as nossas reinicializações sem perder nenhuma por causa de codificação incorreta. para exibir uma mensagem dizendo que foi reiniciado. F.) Queremos que ele abra o arquivo que escrevemos para que possamos ver uma lista de todas as reinicializações quando clicarmos em ok na mensagem pop-up.

Etapa 3: Escrevendo o Script Parte 2: Criando Seu Script e Atribuindo Variáveis

Ok, em primeiro lugar, crie um documento de texto e renomeie-o para any_name.vbs. Usei shutdown_catcher.vbs, mas você pode usar qualquer coisa. Agora, basta clicar com o botão direito do mouse no arquivo vbs e clicar em editar. Se você usar o notepad ++ agora, seria uma boa hora para abri-lo, se você não quiser, mas planeja fazer qualquer quantidade de codificação deve procurar obtê-lo. Ok, agora a primeira coisa que queremos fazer é criar variáveis. As variáveis são basicamente apenas um espaço reservado para que não tenhamos que escrever um monte de coisas várias vezes. exemplo: temos uma frase que diz "a rápida raposa marrom salta sobre as costas dos cães preguiçosos". mas está em nosso código 20 vezes. podemos digitar a frase inteira 20 vezes ou criar uma variável e atribuir a frase a essa variável. Portanto, neste exemplo, criamos a variável strSentence e atribuímos "a raposa marrom rápida salta sobre os cães preguiçosos de volta" a essa variável. Agora tudo o que temos a fazer é digitar strSentence toda vez que precisarmos da frase e ela souber digitar "a raposa marrom rápida salta sobre os cachorros preguiçosos de volta", como fazemos isso: Se temos várias variáveis do mesmo tipo, podemos colocar na mesma linha e separar as variáveis por vírgulas. Para criar uma variável, precisamos fazer o que é chamado de dimensionamento da variável. Para fazer isso, digitamos Dim antes da variável e, em seguida, colocamos um prefixo na variável para saber o que a variável representa. Os exemplos são str para uma variável de string obj para uma variável de objeto const para uma constante…. A lista continua indefinidamente. esses são os que usaremos neste script, então vou explicá-los um pouco. uma string geralmente é um texto como uma frase. Um objeto geralmente é algo físico, como um arquivo ou programa. e uma constante é algo que sempre terá o mesmo significado em todo o script. NOTA: QUALQUER MOMENTO QUE UMA LINHA TEM UM ÚNICO 'ANTES, A LINHA SERÁ IGNORADA PELO SCRIPT. SÃO CHAMADOS OBSERVAÇÕES E GERALMENTE SÃO COLOCADAS PELO PROGRAMADOR ASSIM ELES PODEM LEMBRAR O QUE FIZERAM MAIS TARDE AO REVER O CÓDIGO. EU OS USAREI PARA FAZER COMENTÁRIOS SOBRE O CÓDIGO PARA QUE VOCÊ POSSA VER POR QUE EU COLETEI ASSIM. E ESTARÃO ACIMA DA LINHA DE QUE ESTÃO COMENTÁRIOS. Uso Real: 'esta linha força você a definir todas as variáveis. Sem ele, qualquer variável indefinida será tratada como um objetoOption Explicit'agora criamos 5 variáveis para as pastas e arquivos, precisaremos'nomeá-los como quiser, mas a convenção é preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile'agora precisamos para criar variáveis de string para o diretório, arquivo e nome do arquivoDim strDir, strFile, strFileName'agora atribua valores às variáveis 'se strDir é o nosso diretório, queremos a pasta strDir = "C: / Catcher"' o strFile está onde queremos o documento de texto e o que é nomeadostrFile = "\ Shutdown_catcher.txt" 'o nome do strfile é então temos o nome do arquivo para uso em pop upsstrFileName = "Shutdown_catcher.txt"' a seguir temos que atribuir uma constante para acessar o arquivo, temos três opções 'estaremos usando apenas o appending neste código, mas é bom saber todas elas. Const forReading = 1, forWriting = 2, ForAppending = 8' por último, precisamos definir uma variável para o sistema de arquivos objeto para que possamos chamá-lo mais tarde, quando precisarmos dele. Definir objFiS yOb = CreateObject ("Scripting. FileSystemObject")

Etapa 4: Explicações intermediárias

Agora que temos nossas variáveis dimensionadas, tudo o que temos a fazer é lembrar aquela variável específica a cada vez. Isso não apenas reduz a quantidade de digitação que fazemos, mas também cria menos erros por causa de erros ortográficos. Agora, tecnicamente, tudo o que temos a fazer é digitar o código a seguir e pronto 'definir o arquivo para appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'escrever a nova linha no fileobjTextFile. WriteLine ("Seu computador Desligue em" & data & "em" & hora)' fechar o arquivoobjTextFile. Close'fazer um pop upWscript. Echo ("Seu computador Desligue em "& date &" at "& time) 'abra o arquivo em IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") O problema é que não haverá correção de erros e qualquer erro simples, como arquivo não existente ou variável já atribuída, irá travar o script.

Etapa 5: Escrevendo o script Parte 3: Instruções If Then como Correção de erro

A maneira mais fácil de fazer a correção de erros é usar instruções if / then. Basicamente, uma instrução if then diz que se algo acontecer, faça isso, caso contrário, faça isso. Aninhando instruções if / then, você pode criar uma sequência de coisas que precisam acontecer. Se aeb e c acontecerem, então faça o seguinte. Exemplo: queremos ter certeza de que o arquivo que queremos escrever está lá se o encontrarmos, não queremos fazer nada se não o encontrarmos, queremos criá-lo ou nós deseja verificar se a pasta está lá e se não criá-la e, em seguida, verificar se o arquivo está lá, uma vez que encontrarmos a pasta e se não a criarmos, o primeiro é um exemplo de uma instrução if then o segundo é um if aninhado. Como nós fazemos isso: há quatro partes para uma instrução if then if / then elseend se é basicamente se isso for verdade, então faça isso, caso contrário, faça isso e termine a instrução uma instrução if then devidamente codificada seria: If something = something then make o que você precisa fazerElse faça algo elseEnd IfVocê pode usar qualquer argumento desde que seja verdadeiro ele seguirá a parte then e ignorará a parte else, mas se for false irá pular o then e ir para else Then quando terminarmos a instrução if colocamos "end if", mas se aninhamos as instruções if, temos que encerrar todas as instruções if. Isso os terminará de filho para pai, de modo que o primeiro "end if" termine a instrução if dentro do pai, onde o segundo termina a instrução if original (pai). Para fazer um pop-up, basta digitar Wscript. Echo ("qualquer que seja queremos dizer na mensagem ") para adicionar um valor de variável a ela, colocamos fora ou entre aspas duplas usando o sinal de" e "comercial (&) como um delimitador para que o script saiba que é uma variável e não um texto.: Wscript. Echo ("Blah blah blah" & strDir & "blah blah blah" & strFilename & "blah blah blah.") A saída seria um pop-up que dizia Blah blah blah C: / Catcher blah blah blah shutdown_catcher.txt blah blah blah. Actual Usage: 'if the folder C; / exist If objFiSyOb. FolderExists (strDir) Then'get folder Set objSysFold = objFiSyOb. GetFolder (strDir)' elseElse'criar a pasta c; / catcher Set objSysFold = objFiSyOb. CreateFolder (strDir) 'e verifique se o arquivo e a pasta existem If objFiSyOb. FileExists (strDir & strFile) Then'if obter a pasta c: / catcher Set ob jSysFold = objFiSyOb. GetFolder (strDir) 'elseElse'criar documento de texto shutdown_catcher.txt Set objFile = objFiSyOb. CreateTextFile (strDir & strFile)', em seguida, pop up uma mensagem para dizer que você criou ambos Wscript. Echo ("Nós criamos uma pasta denominado "& strDir &" e um arquivo denominado "& strFilename &" e colocado no diretório "& strDir & strFile &". ") 'end aninhado if statementEnd If'end original if statementEnd If'agora na primeira instrução if já verificamos a pasta e a encontramos, então agora verificamos por fileIf objFiSyOb. FileExists (strDir & strFile) Then'if encontrado get folder Set objSysFold = objFiSyOb. GetFolder (strDir) 'caso contrário Else'crie o documento de texto Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'cria um pop-up dizendo que criamos o documento de texto Wscript. Echo ("Criamos um arquivo chamado" & strFileName & "na" & strDir & "pasta de arquivos.") End If

Etapa 6: Explicações intermediárias

Se você olhar atentamente para o código da etapa anterior, verá uma instrução if then aninhada e não aninhada. O primeiro é uma instrução aninhada. Ele verifica a pasta e o arquivo e, se não os encontrar, cria os dois. O segundo procura apenas um arquivo e, se não encontrar, cria apenas o arquivo. Pode-se dizer por que ambos. Bem, o que acontece se o arquivo for excluído, mas a pasta não. A primeira instrução if ignoraria a criação do arquivo porque encontrou a pasta e nunca atuaria na parte else da instrução. Portanto, quando você fosse gravar no arquivo, haveria um erro porque o arquivo estaria faltando. Então, tendo o segundo lá, ele resolve esse problema. Tecnicamente, você poderia retirar a instrução aninhada porque é quase o mesmo que a segunda instrução if then, mas então você teria apenas um pop-up e não seria tão pessoal. Além disso, me deu a chance de mostrar você aninhado ao invés de un instruções if aninhadas.

Etapa 7: Mais correção de erros

Agora que completamos a maior parte da correção de erros, queremos gravar no arquivo e mostrar os pop-ups. O problema é que obteremos erros de permissão se não liberarmos a referência do objeto anterior armazenado na variável. Então, queremos inserir um pequeno trecho de código que diz definir as variáveis para nada. Tem a seguinte aparência: set objFile = nothingset objSysFold = nothingSo para aqueles que estão acompanhando em casa seu código até este ponto deveria ser (eu peguei o comentário out): Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "Shutdown_catcher.txt" Const forReading = 1, ForAppending = 8set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Se objFiSyOb. FolderExists (strDir) Em seguida, defina objSysFold = objFiSyOb. GetFolder (strDir) Definir Else objSysFold = objFiSyOb. CreateFolder (strDir) Se objFiSyOb. FileExists (strDir & strFile) Em seguida, Set objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Criamos uma pasta chamada" & strDir & "e um arquivo chamado" & strFilename & "e o colocamos em o "& strDir & strFile &" diretório. ") Fim I fEnd IfIf objFiSyOb. FileExists (strDir & strFile) Então defina objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Nós criamos um arquivo chamado" & strFile "& strDir &" pasta de arquivos. ") End Ifset objFile = nothingset objSysFold = nothing

Etapa 8: Escrevendo o Script Parte 4: Definindo Atributos

Agora precisamos definir os atributos do arquivo para que possamos alterá-lo. Anteriormente, definimos três variáveis constantes: forReading = 1forWriting = 2 forAppending = 8se você definir para forReading, poderá lê-lo, mas não gravá-lo. Se defini-lo para forWriting, você sobrescreverá o arquivo existente sempre que executar o programa. Se você definir para forAppending, adicionará uma nova linha toda vez que o script for executado no documento. Como queremos um registro de cada vez que ele for reinicializado, queremos que seja anexado e não sobrescrito, então usamos forAppending. Como fazemos isso: você deve nomear o objeto para o qual deseja definir os atributos. Uma vez que já realizamos a maior parte do trabalho nas etapas anteriores, só precisamos recuperar as variáveis neste ponto. Em seguida, defina-o como true. Actual Usage: 'object to set = filesystemobject.action (diretório + nome do arquivo, atributo, true ou false) Set objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Etapa 9: Gravando o Script Parte 5: Gravando no Arquivo

Gravar em um arquivo é muito parecido com gravar um pop-up. Você acabou de colocar: objTextFile. WriteLine ("O que quer que você queira dizer" & Variável para puxar para escrever linha) A única diferença é a primeira parte. Em um pop-up você coloca: Wscript.echo em uma linha de escrita você coloca: objTextFile. WriteLineE em uma linha de gravação você tem que fechar a linha de gravação para que ela pare de escrever e para isso você usa: objTextFile. CloseActual Usage: objTextFile. WriteLine ("Seu computador foi encerrado em" & date & "em" & time) objTextFile.close'agora adicione um pop-up para informar que você escreveu no arquivo para que a pessoa saiba o que aconteceu e ela terá que fechá-lo para abrir o arquivo e visualizar o Wscript. Echo ("Seu computador desligou em" & date & "em" & Tempo)

Etapa 10: Escrevendo o script Parte 5: Abrindo o arquivo para visualização

O script irá parar neste ponto até que alguém clique no pop-up. Depois de passar pelo pop-up, você pode inserir uma linha para abrir o arquivo. Usar alguma correção de erro ajuda a manter o programa funcionando bem. Quando você cria um erro no vbscript, ele adiciona um valor à variável "err.number", que é uma variável predefinida no vbscript. Você não precisa defini-la e pode usá-la como qualquer outra variável, desde que não viole suas regras. O valor atribuído à variável err.number é o código do erro ocorrido. Agora você pode verificar cada código de erro conhecido no banco de dados vbscript e certificar-se de que não ocorreu. Ou mais fácil, é apenas verificar se a variável err.number está vazia. se estiver vazio, nenhum erro ocorreu. Para fazer isso, basta verificar se a variável é igual a vbEmpty. Portanto, em nosso script, queremos usar outra instrução if then. E verifique se ocorreu um erro e se não abriu o arquivo para visualização, mas se abriu, então aparecerá uma mensagem com o número do erro para que possamos depurar. Então, quando terminarmos com nosso script, digite Wscript. Quit. Isso diz ao script para encerrar a si mesmo. Isso ajuda a manter os vazamentos de memória e processos indesejados em execução. Como é usado: se err.number for igual a vbEmpty então crie um shell então execute o programa do shell, caso contrário, aparecerá uma mensagem dizendo que houve um erro no if. Uso real: 'verificar errorsIf err.number = vbEmpty then'if nenhum crie um shell Set objShell = CreateObject ("WScript. Shell") 'e abra o arquivo desse shell usando o explorer. na verdade, ele abrirá no IE embora objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") ', caso contrário, aparecerá uma mensagem com o erro numberElse WScript.echo "VBScript Error:" & err.numberEnd If 'end scriptWscript.quit

Etapa 11: Fazendo o script rodar na inicialização

Existe uma pasta de arquivos no menu iniciar chamada Startup. Qualquer coisa colocada nesta pasta será iniciada assim que o computador for inicializado. Ao colocar o arquivo de script na pasta de inicialização, ele será executado toda vez que o computador for reinicializado, intencionalmente ou não. Como estou usando isso apenas como uma ferramenta de diagnóstico, não é necessário transformá-lo em um serviço para iniciar e não preciso colocá-lo no registro para iniciá-lo, então não haverá problema. Depois de consertar o computador, posso excluir o arquivo da pasta de inicialização e não há outra limpeza necessária.

Etapa 12: executando o programa

Quando você executar o arquivo vbscript, ele será agora A.) Verifique se a pasta C: / Catcher existe e se não existe, crie-a. B:) Verifique se o arquivo Shutdown_catcher.txt existe e caso não seja, crie-o. C:) Se ele criou uma pasta ou arquivo ou ambos, aparecerá uma mensagem dizendo que foi ele que os criou (Observação: ele só deve fazer isso na primeira execução depois que já deve estar lá, a menos que seja excluído, então você deve ver essa mensagem apenas uma vez. Pode ser uma boa ideia executar este script uma vez em uma reinicialização controlada para que você possa ignorar esses pop-ups ou você não pode gravar nada no arquivo porque ele não vai ignorar os pop-ups do arquivo criado.) D:) Escreva uma linha no documento de texto Shutdown_Catcher.txt dizendo que o computador desligou em tal e tal data em tal e tal hora. E:) Abra uma mensagem dizendo que houve uma reinicializaçãoF:) Abra o arquivo para visualização. Se você olhar na próxima etapa você verá o código conforme escrito. Agora, tudo o que tenho a fazer é sentar e esperar. Sempre que o computador for reiniciado, terei um registro disso. Então, posso revisar o registro e ver se há alguma consistência nele. Por exemplo, ele reinicializa a cada meia hora ou reinicializa sempre que houver um incremento ou 45 no relógio. Esta não é, de forma alguma, a única maneira de verificar o computador, só para você saber. Eu também tenho um programa de benchmarking em execução para verificar a temperatura, então eu sei o quão quente está quando ele desliga, a voltagem, então eu sei se a fonte de alimentação está falhando e algumas outras coisas úteis. Bem, eu espero que isso tenha sido útil. Eu sei que gosto disso, então talvez outros também gostem. Se você tiver alguma dúvida não hesite em perguntar. Posso não chegar a eles imediatamente, mas daqui a pouco e eu vou te responder. Depende de como está o meu dia / semana.

Etapa 13: O Código

Este é o código escrito sem todas as dicas e comentários_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "Shutdown_catcher.txt" ForReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") If objFiSyOb. FolderExists (strDir) Em seguida, defina objSysFold = objSyObrea. GetFolder (StrFiOb). objFiSyOb. FileExists (strDir & strFile) Então defina objSysFold = objFiSyOb. GetFolder (strDir) Else Defina objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Nós criamos uma pasta chamada" & strDir & "e um arquivo chamado "& strFilename &" e o colocou no diretório "& strDir & strFile &". ") End IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Em seguida, defina objSysFold = objFiSyOb. GetFolder (strDir) Else Defina objFile = objFiSyOb. CreateT strDir & strFile) Wscript. Echo ("Temos criou um arquivo chamado "& strFileName &" na pasta de arquivo "& strDir &". ") End Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. WriteLine (" Seu computador Desligue em "& date &" at "& time) objTextFile. CloseWscript. Echo (" Seu computador desligou em "& date &" at "& time) If err.number = vbEmpty then Set objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Else WScript.echo" VBScript Error: "& err.numberEnd IfWScript. Quit