Introducción a VB Script: una guía para principiantes: Parte 2: Trabajar con archivos: 13 pasos

2024 Autor: John Day | [email protected]. Última modificación: 2024-01-30 08:45

Bueno, en mi último instructable de VBScript, repasé cómo hacer un script para apagar tu Internet para jugar Xbox360. Hoy tengo un problema diferente. Mi computadora se ha estado apagando en momentos aleatorios y quiero iniciar sesión cada vez que la computadora se reinicia en un archivo. Tengo la sensación de que el problema es la tarjeta de video, pero quiero estar seguro. Dejo la computadora encendida en todo momento, pero no puedo monitorearla las 24 horas del día, los 7 días de la semana, por lo que mi solución más fácil es escribir una marca de tiempo en un archivo cada vez que se reinicia. Debido a que me da un BSOD cada vez, iniciar sesión cuando se apaga será difícil, así que tengo que obtenerlo cuando vuelva a encenderse. Esa es la parte fácil Debido al hecho de que esto es solo temporal hasta que descubra qué está mal en la computadora, no voy a escribir en el registro ni a convertirlo en un servicio para que se inicie en el momento del arranque. Y para que se reinicie cada vez que se apague, tendré que editar la BIOS.

Paso 1: editar la BIOS para que se reinicie en caso de falla de energía

No estoy seguro si mi problema es con la fuente de alimentación fallando o con mi tarjeta de video o qué es. Pero sé que la computadora se reinicia de vez en cuando. Entonces, para asegurarme de que se reinicia después de un corte de energía (es decir, la fuente de alimentación se apaga), quiero editar la BIOS. Debido al hecho de que hay tantos fabricantes de BIOS diferentes, sería demasiado difícil enumerar todas las formas diferentes de hacer esto en todas las diferentes pantallas de BIOS, por lo que solo le daré los conceptos básicos y le dejaré que lo descubra. los detalles por su cuenta Básicamente, para ingresar a su BIOS, deberá presionar un botón en el arranque. Por lo general, dirá algo como "presione Supr para ingresar a la configuración" o "F2". Los diferentes fabricantes le ofrecen diferentes formas, pero generalmente es la tecla "F2" o "Del". De cualquier manera, obsérvelo y presione la tecla que le indica que presione. Ahora llegará a una pantalla que generalmente es gris o azul, pero nuevamente depende de la marca de su BIOS. Estará buscando una opción de configuración de energía. O estará en una ventana propia como en la captura de pantalla de AMIBIOS (tomada de la guía de hardware de toms) o en algunas puede estar en una ventana de características avanzadas de BIOS. De todos modos, está buscando una configuración de "restauración en CA / pérdida de energía". Puede que se llame de otra manera, pero estará cerca de eso. Solo búscalo. Por lo general, tendrá tres opciones (último estado, encendido después de un corte de energía, apagado después de un corte de energía). Desea activarlo después de un corte de energía. Asegúrese de guardar su configuración y salir de la BIOS. Ahora, cuando falla la energía o desconecta su máquina, se reiniciará tan pronto como recupere la energía. Yeahhhhhh !!!!!!!!!!!!!!!!

Paso 2: redacción del guión Parte 1: elaboración de un plan

Lo primero que queremos hacer es crear un plan. ¿Qué queremos exactamente que haga el script? A.) Cuando falla la energía o aparece el BSOD, queremos que se reinicie. (Tenga cuidado en el paso 1 Editando el BiosB.) Tan pronto como se reinicie, queremos escribir en un archivo la fecha y hora exactas en que se reinició. C.) Queremos poder modificar ese archivo. Si se reinicia más de una vez, nunca lo sabríamos. D.) Queremos que tenga corrección de errores para que no se estropee y nos aseguramos de obtener todos nuestros reinicios sin perder ninguno debido a una mala codificación. E.) Lo queremos para que aparezca un mensaje que dice que se reinició. F.) Queremos que abra el archivo en el que escribimos para que podamos ver una lista de todos los reinicios cuando hagamos clic en Aceptar en la ventana emergente del mensaje.

Paso 3: escribir el guión Parte 2: crear el guión y asignar las variables

Ok, lo primero es lo primero, cree un documento de texto y cámbiele el nombre a any_name.vbs. Usé shutdown_catcher.vbs pero puedes usar cualquier cosa. Ahora simplemente haz clic derecho en el archivo vbs y presiona editar. Si usas notepad ++ ahora sería un buen momento para abrirlo, si no lo haces pero planeas hacer cualquier cantidad de codificación. Debería buscarlo. Ok, lo primero que queremos hacer es crear variables. Las variables son básicamente un marcador de posición, por lo que no tenemos que escribir un montón de cosas muchas veces. ejemplo: tenemos una oración que dice "el rápido zorro marrón salta por encima de los perros perezosos hacia atrás". pero está en nuestro código 20 veces. podemos escribir la oración completa 20 veces o crear una variable y asignar la oración a esa variable. Así que en este ejemplo creamos la variable strSentence y luego asignamos "el zorro marrón rápido salta sobre los perros perezosos" a esa variable. Ahora todo lo que tenemos que hacer es escribir strSentence cada vez que necesitamos la oración y sabe escribir "el rápido zorro marrón salta sobre los perros perezosos hacia atrás" cómo lo hacemos: si tenemos múltiples variables del mismo tipo podemos poner en la misma línea y separe las variables con comas. Para crear una variable necesitamos hacer lo que se llama dimensionar la variable. Para hacer esto, escribimos Dim antes de la variable y luego ponemos un prefijo en la variable para que sepamos qué representa la variable. Los ejemplos son str para una variable de cadena obj para una variable de objeto const para una constante … La lista sigue y sigue. estos son los que usaremos en este script, así que los explicaré un poco. una cadena suele ser texto como una oración. Un objeto suele ser algo físico como un archivo o un programa. y una constante es algo que siempre tendrá el mismo significado a lo largo del guión. NOTA: CUALQUIER MOMENTO QUE UNA LÍNEA TIENE UN SOLO 'ANTES DE ÉL, LA LÍNEA SERÁ IGNORADA POR EL GUIÓN. PUEDEN RECORDAR LO QUE HICIERON DESPUÉS AL REVISAR EL CÓDIGO. LOS UTILIZARÉ PARA HACER COMENTARIOS SOBRE EL CÓDIGO PARA QUE PUEDAN VER POR QUÉ HICE LAS COSAS DE LA MANERA QUE HICE. Y ESTARÁN POR ENCIMA DE LA LÍNEA SOBRE LA QUE ESTÁN COMENTANDO. Uso real: 'esta línea te obliga a definir todas las variables. Sin ella, cualquier variable indefinida será tratada como un objectOption Explicit 'ahora creamos 5 variables para las carpetas y archivos que necesitaremos' nómbrelos como desee, pero la convención es preNameDim objFiSyOb, objSysFold, objShell, objFile, objTextFile 'ahora necesitamos para crear variables de cadena para el directorio, archivo y nombre de archivo Dim strDir, strFile, strFileName 'ahora asigne valores a las variables' strDir es nuestro directorio, queremos la carpeta en strDir = "C: / Catcher" 'strFile es donde queremos el documento de texto y lo que se llama strFile = "\ Shutdown_catcher.txt" 'el nombre del strfile es así que tenemos el nombre del archivo para usar en pop upsstrFileName = "Shutdown_catcher.txt"' luego tenemos que asignar una constante para acceder al file tenemos tres opciones 'solo usaremos el adjunto en este código pero es bueno conocerlas todas. Const forReading = 1, forWriting = 2, ForAppending = 8' por último necesitamos establecer una variable para el sistema de archivos objeto para que podamos llamarlo más tarde cuando lo necesitemos Establecer objFiS yOb = CreateObject ("Scripting. FileSystemObject")

Paso 4: Explicaciones intermedias

Ahora que tenemos nuestras variables dimensionadas, todo lo que tenemos que hacer es recordar esa variable específica cada vez. Esto no solo reduce la cantidad de tipeo que hacemos, sino que también crea menos errores debido a errores ortográficos. Ahora, técnicamente, todo lo que tenemos que hacer es escribir el siguiente código y hemos terminado 'configurar el archivo para appendingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) 'escribe la nueva línea en el archivoobjTextFile. WriteLine ("Tu computadora apaga el" & date & "at" & time)' cierra el fileobjTextFile. Close'make a pop upWscript. Echo ("Your Apagar la computadora el "& date &" at "& time) 'abre el archivo en IESet objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") El problema es que no tendrá corrección de errores, y cualquier error simple, como un archivo que no existe o una variable ya asignada, bloqueará el script.

Paso 5: Escribir el guión Parte 3: Declaraciones If Then como corrección de errores

La forma más fácil de hacer la corrección de errores es usar declaraciones if / then. Básicamente, una declaración if then dice que si sucede algo, haz esto de lo contrario haz eso. Al anidar declaraciones if / then, puede crear una serie de cosas que tienen que suceder. Si a, b y c suceden, entonces haga lo siguiente, haga eso. Ejemplo: queremos asegurarnos de que el archivo en el que queremos escribir esté allí, si lo encontramos, no queremos hacer nada si no lo encontramos, queremos crearlo o no. queremos verificar si la carpeta está allí y, si no, crearla y luego verificar si el archivo está allí una vez que encontremos la carpeta y, si no lo creamos, el primero es un ejemplo de una declaración if then, el segundo es un if then anidado. lo hacemos: hay cuatro partes en una declaración if then if / then else end si es básicamente si esto es cierto, entonces haga esto, de lo contrario, haga eso, luego termine la declaración, una declaración if then correctamente codificada sería: Si algo = algo Entonces haga lo que necesita hacer Else hacer algo más Finalizar Si Puede usar cualquier argumento siempre que sea verdadero, seguirá la parte de entonces e ignorará la parte de otro, pero si es falso, omitirá el entonces y pasará a otro Entonces cuando terminemos la declaración if ponemos "end if", pero si hemos anidado las sentencias if tenemos que terminar todas las sentencias if. Los terminará de hijo a padre, por lo que el primer "end if" finaliza la declaración if dentro del padre, donde el segundo termina la declaración if original (padre). Para hacer una ventana emergente, simplemente tecleamos Wscript. Echo ("lo que sea queremos decir en el mensaje ") para agregarle un valor de variable, lo colocamos afuera o entre comillas dobles usando el signo comercial (&) como delimitador para que el script sepa que es una variable y no un texto.: Wscript. blah blah blah. Actual Usage: 'if the folder C; / exist If objFiSyOb. FolderExists (strDir) Then'get folder Set objSysFold = objFiSyOb. GetFolder (strDir)' elseElse 'crea la carpeta c; / catcher Set objSysFold = objFiSyOb. CreateFolder (strDir) 'y verifique si el archivo y la carpeta existen Si objFiSyOb. FileExists (strDir & strFile) Then' si obtiene la carpeta c: / catcher Set ob jSysFold = objFiSyOb. GetFolder (strDir) 'de lo contrario' crea un documento de texto shutdown_catcher.txt Establezca objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'luego aparecerá un mensaje para decir que los creó a ambos Wscript. Echo ("Hemos creado una carpeta llamado "& strDir &" y un archivo llamado "& strFilename &" y lo colocó en el directorio "& strDir & strFile &". ") 'end anidado if statementEnd If'end original if statementEnd If'now en el primer if ya buscamos la carpeta y la encontramos, así que ahora buscamos fileIf objFiSyOb. FileExists (strDir & strFile) Then'if found get folder Set objSysFold = objFiSyOb. GetFolder (strDir) 'de lo contrario' crea el texto doc Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) 'crea una ventana emergente que dice que creamos el documento de texto Wscript. Echo ("Hemos creado un archivo llamado" & strFileName & "en la carpeta" & strDir & ") End If

Paso 6: Explicaciones intermedias

Si observa detenidamente el código del paso anterior, verá una declaración if then anidada y no anidada. El primero es una declaración anidada. Busca la carpeta y el archivo y, si no los encuentra, crea ambos. El segundo busca solo un archivo y si no lo encuentra, crea solo el archivo. Se podría decir por qué ambos. Bueno, ¿qué pasa si el archivo se elimina pero la carpeta no? La primera instrucción if saltaría directamente sobre la creación del archivo porque encontró la carpeta y nunca activó la parte else de la instrucción. Entonces, cuando fue a escribir en el archivo, se produciría un error porque faltaría el archivo. Entonces, al tener el segundo allí, resuelve este problema. Técnicamente, podría eliminar la declaración anidada porque es casi la misma que la segunda declaración if then, pero entonces solo tendría una ventana emergente y no sería tan agradable. Además, me dio la oportunidad de mostrarle anidado en lugar de un - declaraciones if anidadas.

Paso 7: más corrección de errores

Ahora que hemos completado la mayor parte de la corrección de errores, queremos escribir en el archivo y mostrar las ventanas emergentes. El problema es que obtendremos errores de permisos si no liberamos la referencia del objeto anterior almacenado en la variable. Así que queremos poner un pequeño fragmento de código que dice establecer las variables en nada. Se ve así: set objFile = nothingset objSysFold = nothing Entonces, para aquellos de ustedes que siguen en casa, su código hasta este punto debería ser (tomé el comentario out): Opción ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher.txt" strFileName = "Shutdown_catcher paraRetadinging = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") Si objFiSyOb. FolderExists (strDir) Entonces establezca objSysFold = objFiSyOb. GetFolder (strDir) Else Set objSysFoldOb = obj. CreayFolists If Set objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Hemos creado una carpeta llamada" & strDir & "y un archivo llamado" & strFilename & "y lo colocamos en el directorio "& strDir & strFile &".) Fin I FEnd IfIf objFiSyOb. FileExists (strDir & strFile) Luego establezca objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo "& strDir &" carpeta de archivos. ") Fin Ifset objFile = nothingset objSysFold = nada

Paso 8: Escribir el guión Parte 4: Establecer atributos

Ahora necesitamos establecer los atributos del archivo para poder modificarlo. Anteriormente, configuramos tres variables constantes: forReading = 1forWriting = 2 forAppending = 8 si lo configura en forReading, podrá leerlo pero no escribir en él. Si lo configura en forWriting, sobrescribirá el archivo existente cada vez que ejecute el programa. Si lo configura en forAppending, agregará una nueva línea cada vez que el script se ejecute en el documento. Como queremos un registro de cada vez que se reinicia, queremos que se agregue y no se sobrescriba, por lo que usamos forAppending.: debe nombrar el objeto al que desea asignarle atributos. Dado que ya hemos realizado la mayor parte del trabajo en los pasos anteriores, solo necesitamos recordar las variables en este punto. Luego, configúrelo en true. Actual Usage: 'object to set = filesystemobject.action (directorio + nombre del archivo, atributo, verdadero o falso) Establecer objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True)

Paso 9: escribir el script Parte 5: escribir en un archivo

Escribir en un archivo es muy parecido a escribir una ventana emergente. Simplemente pones: objTextFile. WriteLine ("Lo que quieras decir" & Variable para introducir la línea de escritura) La única diferencia es la primera parte. En una ventana emergente pones: Wscript.echoin una línea de escritura pones: objTextFile. WriteLineY en una línea de escritura tienes que cerrar la línea de escritura para que sepa dejar de escribir y para eso usas: objTextFile. CloseActual Usage: objTextFile. WriteLine ("Your computer Shut down on" & date & "at" & time) objTextFile.close'ahora agregue una ventana emergente para decir que escribió en el archivo para que la persona sepa que sucedió 'y tienen que cerrarlo para abrir el archivo y verWscript. Echo ("Your computer Shut down on" & date & "at" & tiempo)

Paso 10: escribir el guión Parte 5: abrir el archivo para verlo

En este punto, la secuencia de comandos se detendrá hasta que alguien haga clic en la ventana emergente. Una vez que pase la ventana emergente, puede poner una línea que abra el archivo. Usar alguna corrección de errores ayuda a mantener el programa funcionando bien. Cuando crea un error en vbscript, agrega un valor a la variable "err.number" que es una variable predefinida en vbscript. No tiene que definirlo y puede usarlo como cualquier otra variable siempre que no viole sus reglas. El valor asignado a la variable err.number es el código del error que ocurrió. Ahora puede verificar todos los códigos de error conocidos en la base de datos vbscript y asegurarse de que no ocurrieron. O más fácil, es simplemente verificar que la variable err.number esté vacía. si está vacío no ocurrieron errores. Para hacer eso, solo verificamos si la variable es igual a vbEmpty. Entonces en nuestro script queremos usar otra declaración if then. Y verifique si ocurrió un error y si no abrió el archivo para verlo, pero si lo hizo, aparecerá un mensaje con el número de error para que podamos depurar. Luego, cuando hayamos terminado con nuestro script, escriba Wscript. Quit. Esto le dice al script que se termine. Esto ayuda a mantener bajas las pérdidas de memoria y los procesos no deseados en ejecución. Cómo se usa: si err.number es igual a vbEmpty, luego cree un shell, luego ejecute el programa desde el shell, de lo contrario, aparecerá un mensaje que dice que hubo una tendencia de error if. errorsSi err.number = vbEmpty then 'if none create a shell Set objShell = CreateObject ("WScript. Shell")' luego abra el archivo desde ese shell usando el explorador. en realidad se abrirá en IE aunque objShell.run ("Explorer" & "" & strDir & "\ shutdown_catcher.txt") 'de lo contrario, aparecerá un mensaje con el número de error Else WScript.echo "Error de VBScript:" & err.numberEnd If 'final scriptWscript.quit

Paso 11: hacer que el script se ejecute al iniciar

Hay una carpeta de archivos en el menú de inicio llamada Inicio. Todo lo que se coloque en esta carpeta se iniciará tan pronto como se inicie la computadora. Al colocar el archivo de secuencia de comandos en la carpeta de inicio, se ejecutará cada vez que se reinicie la computadora, ya sea intencionalmente o no. Dado que solo estoy usando esto como una herramienta de diagnóstico, no es necesario que se convierta en un servicio para iniciar, y no es necesario que lo coloque en el registro para iniciarlo, por lo que estará bien. Una vez que arregle la computadora, puedo eliminar el archivo de la carpeta de inicio y no se requiere ninguna otra limpieza.

Paso 12: Ejecutar el programa

Cuando ejecute el archivo vbscript, ahora A.) Verifique si la carpeta C: / Catcher existe y si no la crea. B:) Verifique si el archivo Shutdown_catcher.txt existe y si no, créelo. C:) Si creó una carpeta o un archivo, o ambos, aparecerá un mensaje que dice que sí los creó (Nota: solo debe hacer esto en la primera ejecución, después de eso ya debería estar allí a menos que se elimine, por lo que solo debería ver ese mensaje una vez. Puede ser una buena idea ejecutar este script una vez bajo un reinicio controlado para que pueda omitir estas ventanas emergentes o puede que no escriba nada en el archivo porque no omitirá las ventanas emergentes creadas por el archivo). D:) Escriba una línea en el documento de texto Shutdown_Catcher.txt que dice que la computadora se apagó en tal o tal fecha en tal y tal momento. E:) Aparece un mensaje que dice que hubo un reinicio F:) Abra el archivo para verlo. Si mira en el siguiente paso Verá el código tal como está escrito. Ahora todo lo que tengo que hacer es sentarme y esperar. Cada vez que la computadora se reinicia, tendré un registro de ello. Entonces puedo revisar el registro y ver si hay alguna coherencia en él. El ejemplo podría ser que se reinicia cada media hora o que se reinicia cada vez que hay un incremento o 45 en el reloj. Esta no es de ninguna manera la única forma en que estoy revisando la computadora, solo para que lo sepas. También tengo un programa de evaluación comparativa ejecutándose para verificar las temperaturas, de modo que sé qué tan caliente hace cuando se apaga, el voltaje para saber si la fuente de alimentación está fallando y algunas otras cosas útiles. Bueno, espero que esto haya sido útil. Sé que lo disfruto, así que quizás otros también lo hagan. Si usted tiene alguna pregunta no dude en preguntar. Puede que no llegue a ellos de inmediato, pero dentro de un poco y te responderé. Depende de cómo vaya mi día / semana.

Paso 13: el código

Este es el código tal como está escrito sin todas las sugerencias y comentarios_Option ExplicitDim objFiSyOb, objSysFold, objShell, objFile, objTextFileDim strDir, strFile, strFileNamestrDir = "C: / Catcher" strFile = "\ Shutdown_catcher_catcher.txt" strdown Const forReading = 1, forWriting = 2, ForAppending = 8Set objFiSyOb = CreateObject ("Scripting. FileSystemObject") If objFiSyOb. FolderExists (strDir) Entonces establezca objSysFold = objFiSyOb. GetFolder = objFiSyOb. GetFolderObjFolder If (strDir) objFiSyOb. FileExists (strDir & strFile) Luego establezca objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objFiSyOb. CreateTextFile (strDir & strFile) Wscript. Echo ("Hemos creado una carpeta y nombre" y strDir "& strFilename &" y lo colocó en el directorio "& strDir & strFile &".) End IfEnd IfIf objFiSyOb. FileExists (strDir & strFile) Luego establezca objSysFold = objFiSyOb. GetFolder (strDir) Else Set objFile = objreateSyFile. C strDir & strFile) Wscript. Echo ("Tenemos creó un archivo llamado "& strFileName &" en la carpeta "& strDir &".) End Ifset objFile = nothingset objSysFold = nothingSet objTextFile = objFiSyOb. OpenTextFile (strDir & strFile, ForAppending, True) objTextFile. WriteLine ("Su computadora Apague el "& date &" at "& time) objTextFile. CloseWscript. Echo (" Su computadora se apaga el "& date &" at "& time) Si err.number = vbEmpty, establezca objShell = CreateObject (" WScript. Shell ") objShell.run (" Explorer "&" "& strDir &" / shutdown_catcher.txt ") Else WScript.echo" Error de VBScript: "& err.numberEnd IfWScript. Quit