Introducción a VB Script: una guía para principiantes: 11 pasos

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

*** ((((ALERTA: Aunque hay muchos pasos. En realidad, esto es bastante fácil. Solo explico todo en detalle para los principiantes. Si solo desea el código, salte al último paso y encontrará el código allí.)))) *** Juego mucho a Xbox en vivo y siempre tengo que desactivar Internet en mi computadora porque consume ancho de banda. Principalmente porque estoy descargando o subiendo cosas todo el tiempo. El problema no es apagarlo, sino volver a encenderlo, lo que olvido, lo que es donde pierdo todo ese tiempo de carga / descarga, así que decidí crear un programa para hacerlo por mí. Iba a escribirlo en Vb.net, pero recientemente tuve que bombardear y pavimentar mi sistema operativo en mi computadora debido a una fuerte tormenta que frió mi disco duro, y aún no he reinstalado VB.net, así que pensé que esto lo haría. dame una razón para jugar con vbscript. También hice una imagen en pintura para mostrar en el fondo, así que sabía que se estaba ejecutando.

Paso 1: Descubra lo que quiere hacer

Lo primero que siempre hago es hacer un plan. ¿Qué quiero que haga el programa? A) Quiero poder abrir el script y automáticamente apagará la conexión. B) Quiero que muestre una pantalla gigante de fondo para que no haya ningún error de que Internet está apagado, de esta manera no me olvido de volver a encenderlo. C) Quiero que me dé la opción de encenderlo volver a encenderlo y luego esperar una respuesta. D) Quiero asegurarme de que lo vuelva a encender para no olvidarlo. E) Luego, una vez que realmente digo que sí para volver a encenderlo, el script lo vuelve a encender y luego cierra el fondo. F) Salir de todo.

Paso 2: Cosas que uso pero que realmente no necesito

Todo lo que realmente necesita es un editor de texto como un bloc de notas. Todo lo demás es opcional Utilizo Notepad ++ cuando hago un script VB porque lo trata como lo hace vb.net con colores y conoce el idioma. Ayuda a evitar errores. También numera las líneas para que pueda diagnosticar cuál es el problema cuando obtiene un código de error. Se puede obtener desde aquí el bloc de notas ++

Paso 3: Comience a programar

Bueno, lo primero que quieres hacer es crear un archivo de texto y guardarlo con el nombre que quieras con la extensión de archivo.vbs Ejemplo: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbs Ejemplo 2: games.vbs Todo lo que importa es que le pongas un nombre..vbs Normalmente hago esto en el escritorio porque lo abro alrededor de un trillón de veces mientras estoy trabajando en él. Ahora simplemente haga clic derecho en el archivo y presione editar o editar con el bloc de notas ++

Paso 4: Paso 1: Abrir una ventana de símbolo del sistema

Así que decidí hacer la mayor parte del trabajo, usaría programas que ya estaban almacenados en la computadora para hacer lo que yo quisiera. Menos codificación y sin descargas… Woohoo. Lo más fácil es el símbolo del sistema. Por lo tanto, queremos abrir una ventana del símbolo del sistema para hacerlo, por lo que queremos construir un objeto. Para hacerlo, escribimos: set shellobj = CreateObject ("WScript. Shell") Qué hace: Establezca una instancia de shellobj para que sea igual para crear el objeto w script shell. De esta manera, todo lo que tenemos que hacer es escribir shellobj en lugar de CreateObject ("WScript. Shell") cada vez que necesitamos un nuevo comando. Ahora que hemos creado un objeto, le indicamos al objeto que abra una ventana del símbolo del sistema. Para hacerlo, escribimos: shellobj.run "cmd" Qué hace: Esto sería el equivalente a escribir CMD en el cuadro de ejecución en el menú de inicio. Si no hubiéramos establecido la variable shellobject, tendríamos que haber escrito: CreateObject ("WScript. Shell"). Ejecutar "cmd" … ver cuánto más fácil es ahora. Menos espacio para errores. Haga clic en archivo … luego Guardar … luego vaya al escritorio y haga doble clic en el archivo vbs que creó, debería ejecutarse Si todo va bien, debería aparecer un símbolo del sistema de Windows … tu codificación, hasta ahora deberías tener: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Puedes agregar comentarios en tu script para recordar lo que hiciste más tarde poniendo una coma delante de la línea como esto: 'esto es para abrir un símbolo del sistema Cuando estoy codificando muchas veces lo haré para recordar lo que hice más tarde cuando lo esté buscando. El guión simplemente ignora esa línea y sigue adelante. Si los ve, puede hacer lo mismo.

Paso 5: Paso 2: Configurar temporizadores

Ok, ahora que tenemos una nueva ventana elegante, necesitamos completarla con comandos para que podamos hacer lo que queremos. El problema es que algunas computadoras tardan más que otras en abrir las ventanas, por lo que queremos que el script espere un poco. poco para empezar. si se inicia demasiado pronto, la computadora llenará el espacio en blanco antes de que se abra la ventana y obtendrá un comando parcial o ninguno, por lo que debemos configurar un temporizador. Para hacer esto, escribimos: wscript.sleep 200 Qué hace: Le dice al script que espere una cantidad de tiempo X antes de ejecutar el siguiente comando. 1000 es igual a un segundo, por lo que el mío está esperando un quinto de segundo. Es posible que su computadora necesite esperar más tiempo o menos. Si observa la computadora y no escribe los comandos correctamente, cambie el número a un número más alto, como 2000 sería 2 segundos y probablemente mucho tiempo. Guarde el archivo ahora, su código en este punto debería ser: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

Paso 6: Paso 3: Haz una imagen

Acabo de abrir paint y tecleé "Internet desconectado" y lo hice 800x600 y lo guardé como id.bmp y lo guardé en mi directorio raíz, en mi caso k: / pero el tuyo probablemente sea c:

Paso 7: Paso 4: Enviar comandos, abrir la imagen

Bien, ahora que tenemos una ventana de comandos esperando comandos, todo lo que tenemos que hacer es escribir los comandos en la ventana usando el comando sendkeys. Cuando usamos el comando sendkeys es como escribir pero escribirá lo que queramos que escriba. Todo lo que podamos escribir lo podemos enviar, incluidas las teclas de entrada necesarias para ejecutar los programas. Ahora que sabemos cómo enviar las teclas, abramos la imagen que acabamos de hacer y luego agreguemos otro epílogo del temporizador para que la imagen tenga tiempo de cargarse. Para hacer esto, escribimos: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200 Qué hace: Esto es lo mismo que escribir k: / id.bmp en el cuadro de ejecución. Debería abrir su imagen en el visor de imágenes predeterminado para un bmp … en mi caso es el visor de imágenes y fax de Windows, pero la mayoría de las personas instalan programas posteriores al mercado que también hacen esto, así que quién sabe en qué se abrirá el suyo. Ahora guarde su archivo y Ejecutarlo Debería obtener un símbolo del sistema y una imagen emergente. hasta ahora todo bien !!! su código hasta ahora debería ser: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript. dormir 200

Paso 8: Paso 5: Enviar comandos, apagar Internet

En este punto, si aún no lo ha hecho, descargue el archivo pdf al final para que, si lo arruina, tenga un Instructable descargado sobre cómo solucionarlo. Ahora aquí es donde comienza la diversión. Ok, usaremos ipconfig para liberar nuestra dirección IP. Sin una dirección IP no podemos obtener tráfico de Internet porque el enrutador no sabe a dónde enviarlo a la computadora. Para hacer esto, escribimos: shellobj.sendkeys "ipconfig / release {enter}" Qué hace: Esto le indica al programa IPCONFIG que libere la dirección IP. {enter} le está diciendo a la computadora que presionó la tecla enter. esto sería como escribir ipconfig / release en la ventana de ejecución y presionar enter. Por lo general, después de hacer esto, si ejecuta ipconfig, le dirá que su dirección IP es 0.0.0.0. Esto es lo que queremos. Sin una dirección IP, el enrutador no sabe que estamos aquí y ningún programa puede "marcar", por así decirlo. Ahora que hemos terminado con éxito de apagar la IP, queremos cerrar la ventana. Ahora podríamos escribir otra línea que diga: shellobj.sendkeys "exit {enter}" Pero sería más fácil editar la línea anterior y agregarla al final para que tenga: shellobj.sendkeys "ipconfig / release {enter} exit {enter} "Ahora guárdelo pero no lo ejecute porque apagará su conexión a Internet. Si lo ejecuta, y su Internet se apaga, simplemente cambie el interruptor de ipconfig / release a ipconfig / renew y vuelva a ejecutarlo y debería volver a encenderlo. Y si todo lo demás falla, reinicie y debería estar bien. Su código hasta ahora debería ser: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { ingrese} "wscript.sleep 200shellobj.sendkeys" ipconfig / release {enter} exit {enter}"

Paso 9: Paso 6: Crear un cuadro de mensaje y esperar una respuesta

Bien, ahora que apagamos Internet con éxito y cerramos la ventana del símbolo del sistema, queremos que aparezca un cuadro de mensaje que nos pregunte si queremos volver a activar Internet, pero aquí es donde se pone complicado, queremos que espere para un sí, pero si hacemos clic en no, no queremos que desaparezca, así que usaremos una instrucción while para hacer esto. Primero, necesitamos dimensionar una variable para el cuadro de mensaje para poder asignarle variables numéricas. Sé que suena confuso, pero en realidad no lo es. ya lo hicimos una vez con la línea: set shellobj = CreateObject ("WScript. Shell") este es aún más fácil para configurarlo simplemente tecleamos: Dim MyVar Lo que hace: Ahora hemos dimensionado una variable llamada MyVar Cuando obtienes un "yes / no "aparecerá un cuadro de mensaje en la pantalla y, al hacer clic en los botones, se asignará un valor a cada botón, en este caso," sí "es 1 y" no "es 2. Queremos que la variable comience con un" no ". le asignamos el número 2 por defecto, de esta manera se detiene hasta que se hace clic en un botón Para hacer esto escribimos: myvar = 2 Qué hace: ahora MyVar es igual a 2, de esta manera en la siguiente línea se detendrá y esperará la entrada. Ahora solo queremos que se quede allí y espere hasta que estemos listos para volver a encender Internet. Para hacer esto, escribimos: while myvar = 2 Qué hace: Al hacer esto, le hemos dicho al script que siempre que el valor de myvar = 2, luego siga haciendo un bucle en el cuadro de mensaje hasta que obtengamos cualquier otro valor que no sea 2, que en este caso solo podría ser 1. A continuación, en realidad queremos que aparezca un cuadro de mensaje con botones de sí / no. esto escribimos: MyVar = MsgBox ("Activar la conexión a Internet", 65, "Activar la conexión a Internet") Qué hace: Ahora a la variable MyVar se le asignará el valor asignado al botón que se hace clic en el cuadro de mensaje. la primera parte de las comillas es lo que realmente dirá el cuadro de mensaje. El 65 lo designa como un cuadro de mensaje Sí / No. y la última parte entre comillas es la etiqueta del cuadro de mensaje. para verificar qué valor asigna cuando hace clic en sí o no, puede agregar una línea que diga msgbox (myVar) e imprimirá cualquier valor asignado a myvar en un cuadro de mensaje. Ahora que tenemos un cuadro de mensaje, debemos cerrar la instrucción while. Todo lo que esté entre la apertura y el cierre de la instrucción while se ejecutará cada vez que haga clic en no, porque si hace clic en no, sigue siendo un valor de 2 y vuelve a la primera parte. Para finalizar la instrucción while, escriba: wendWhat it does: Una vez que ponga un final a una instrucción while, actuará como un bucle hasta que el argumento ya no se cumpla. Entonces, si continúa presionando no, se repetirá, pero una vez que presione sí, se liberará del ciclo y continuará con el script. Guarde el archivo pero espere a ejecutarlo hasta el siguiente paso. Su código hasta ahora debería ser: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig / release {enter} salir {enter} "Dim MyVarmyvar = 2 while myvar = 2MyVar = MsgBox (" Activar la conexión a Internet ", 65," Activar la conexión a Internet ") wend

Paso 10: Paso 7: Volver a encender Internet

Ahora que alguien finalmente hizo clic en sí y pasó la declaración while, debemos activar Internet. Por lo general, aparece una confirmación para que el usuario final sepa lo que está sucediendo, pero es puramente opcional. Para que aparezca un mensaje de confirmación, escriba: msgbox ("¡¡¡Ahora volveremos a activar la conexión a Internet !!!") Qué hace: envía un cuadro de mensaje que dice ¡¡¡Ahora volveremos a activar la conexión a Internet !!! y le da un botón de aceptar para hacer clic. Ahora todo lo que tenemos que hacer es volver a encender Internet y cerrar todo. para volver a encender Internet, simplemente abrimos un símbolo del sistema, configuramos el temporizador y luego usamos ipcionfig nuevamente. para hacer esto escriba: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig / renew {enter}" Qué hace: invierte el comando de apagado anterior y renueva su dirección IP. Una vez que haya renovado su dirección IP, ahora puede volver a conectarse a Internet. Ahora todo lo que tenemos que hacer es limpiar las ventanas abiertas. Nuevamente, podríamos usar un comando sendkeys, pero también agregaré la última línea para mantener las limpiezas. En este caso, voy a usar el programa taskkill para eliminar el programa que muestra la imagen. En este caso, es el visor de imágenes y fax de Windows y aparece como rundll32.exe en la pestaña de procesos del administrador de tareas, así que eso es lo que debemos eliminar. Si su imagen se abre usando otro programa, como irfanview o acdsee, busque el nombre por el que pasa en la pestaña de procesos y luego coloque rundll32.exe con el nombre que encuentre. hace: el taskkill es el nombre del programa el modificador / F le dice que fuerce un kill y el modificador / IM le dice el nombre de la imagen Así que ahora agregamos eso a la última línea, agregamos un enter para ejecutar el comando y luego un comando exit y otro enter y se ve así: shellobj.sendkeys "ipconfig / renew {enter} taskkill / F / IM rundll32.exe {enter} exit {enter}" Guarde su archivo.

Paso 11: Producto terminado

Si todo salió bien, su producto terminado debería verse así: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200shellobj.sendkeys "ipconfig / release {enter} exit {enter}" Dim MyVarmyvar = 2 while myvar = 2MyVar = MsgBox ("Activar la conexión a Internet", 65, "Activar la conexión a Internet") wendmsgbox ("Ahora activaremos Internet ¡¡¡Conexión de nuevo encendida !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig / renew {enter} taskkill / F / IM rundll32.exe {enter} exit {enter} "_end of script_Now que la programación está Una vez hecho, puede ejecutar el programa. pero no verá esto 3.) Su imagen debería abrirse.4.) Debería aparecer una ventana emergente preguntándole si desea volver a encender Internet.5.) No importa cuántas veces haga clic en No, el cuadro de mensaje debería sonar en pero vuelva a abrir preguntando si desea volver a encender Internet.6.) Una vez que haga clic en Sí, el cuadro de mensaje debería desaparecer y una ventana de CMD debería aparecer de nuevo 7.) Una vez que se renueve la dirección IP, la ventana de CMD y la imagen debería cerrar Ahí lo tienes. Un VBscript muy fácil para encender y apagar Internet. Espero que te guste. De hecho, hice otro script que es casi idéntico a este que apaga los adaptadores de red usando un programa llamado DevCon, que es como un administrador de dispositivos de línea de comandos. Funciona muy bien para. El script es idéntico a este, excepto que en este tiene comandos para ipconfig que uno tiene comandos para DevCon.