Diversión con Easy VBS !!!: 5 pasos

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

Una guía para principiantes sobre guiones visuales básicos divertidos y fáciles de hacer. VSB puede parecer difícil para algunos, pero de hecho es realmente fácil. ¡Windows incluso puede ejecutarlo sin un compilador! Si conoce javascript, debería ser muy fácil para usted.

Paso 1: cuadros de mensajes básicos

Ok, repasemos los conceptos básicos. ¿Alguna vez has visto un cuadro de mensaje como el que se muestra a continuación? Estos se utilizan para alertar a los usuarios de lo que quieras decir. Puedes crear el tuyo propio usando la función Msgbox. Por lo tanto, el código de un cuadro de mensaje que dice hola se vería así, Msgbox ("hola"). cuadro de mensaje haciendo un bucle simple usando los comandos Do, Loop. Ahora que cubrimos cuadros de mensaje, pasemos a cuadros de mensaje más avanzados.

Paso 2: juegos y cosas

Si alguna vez te preguntas cómo hacer juegos de texto, no busques más. Puede que me equivoque, pero creo que usaron vbs. Ahora, muchos scripts vb usan un compilador, pero Windows no lo necesita. Simplemente escriba cscript antes de la ruta del archivo, ahora si sabe cómo hacer archivos bat, entonces puede automatizar este proceso, pero no entraremos en eso en este instructivo. Aquí hay un pequeño juego que hice Opción ExplicitDim Answer'types the questionWscript. StdOut. Escriba "Buen día, ¿no?" Answer = Wscript. StdIn. ReadLine 'si escribe sí tIf answer = "sí" Entonces Wscript.echo ("Espero que siga así")' Si escribe noElseIf answer = "no" ThenWscript.echo ("Espero que mejore") 'cualquier otra cosaElseWscript. Echo ("GoodDay to you")' endEnd Ifnow básicamente guarda esto como.vbs y usa el método antes de ejecutarlo.

Paso 3: Auto Typer

Este código es para escribir algo una y otra vez. No sé cómo es útil, pero si lo ejecuta, tendrá que eliminarlo en el conjunto de listas de tareas shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" doshellobj.sendkeys "Y" wscript.sleep 200Shellobj.sendkeys "o" wscript.sleep 200loop

Paso 4: El Matirx te tiene

¿Alguna vez te has preguntado cómo hacer que tu pc te hable?

option explicitOn Error Resume Next 'declare variablesdim wshshell, title, mystring, length, position, tmp, loopA, loopB, linesToWrite, columnas, objUser, objSysInfo, myName, myNameLength, col1, col2, col3, col4, col5, maximum, elementsset wshshell = wscript.createobject ("wscript.shell") title="la matriz" wshshell. SendKeys "{ALT}" + "{ENTER}" 'obtener información del usuario, usada para obtener el nameSet objSysInfo = CreateObject ("ADSystemInfo") Set objUser = GetObject ("LDAP: //" & objSysInfo. UserName) '--------------------------- sub waitfor (var)' set ventana arriba, establecer título, esperar a que se complete tmp = falsedo hasta tmpwscript.sleep 1000tmp = wshshell.appactivate (var) loopend sub '---------------------- ----- submatriz (elementos) 'imprime números aleatorios para hacer que "la matriz" se vea' supone que los elementos son divisibles por 5columns = 5col1 = truecol2 = true col3 = truecol4 = truecol5 = truerandomize () linesToWrite = elementos / columnas para loopA = 1 a linesToWritefor loopB = 1 a columnas Seleccione Case loopBCase 1 Si col1 = true Entonces w shshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Caso 2 Si col2 = true Entonces wshshell. SendKeys Int (Round (rnd ())) & "{TAB} "Else wshshell. SendKeys" {TAB} "Caso 3Si col3 = true Entonces wshshell. SendKeys Int (Round (rnd ())) &" {TAB} "Else wshshell. SendKeys" {TAB} "Caso 4Si col4 = true Entonces wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" Caso 5Si col5 = true Entonces wshshell. SendKeys Int (Round (rnd ())) & "{TAB}" Else wshshell. SendKeys "{TAB}" End Selectwscript.sleep 5nextwscript. Echo 'Esto cambia las columnas para mostrar el 20 por ciento del tiempo, independientemente entre sí.maximum = 0.20If rnd () <maximum ThenIf col1 = true Then col1 = falso Else col1 = trueEnd IfIf rnd () <máximo ThenIf col2 = true Then col2 = false Else col2 = trueEnd IfIf rnd () <máximo ThenIf col3 = true Then col3 = false Else col3 = trueEnd IfIf rnd () <máximo ThenIf col4 = true Entonces col4 = false Else col4 = trueEnd IfIf rnd () <máximo ThenIf col5 = true Then col5 = false Else col5 = trueEnd Ifnextwscript. Echowscript. Echoend sub '--------------------------- sub key (msg)' hacer impresiones de "la matriz" mensajes y borre loswscript.sleep 1500length = len (msg) para la posición = 1 a lengthwshshell. SendKeys mid (msg, position, 1) wscript.sleep 250nextwscript.sleep 3000for position = 1 to lengthwshshell. SendKeys "{BACKSPACE}" wscript. sleep 75nextend sub '---------------------------' iniciar ejecución "principal" aquí awaitfor (title) For loopA = 1 To 4Select Case loopACase 1mystring = "despierta, Neo …" Caso 2mystring = "La matriz te tiene …" Caso 3mystring = "Sigue al conejo blanco …" Caso 4mystring = "Toc toc …" Fin Seleccionar 'ahora imprime la clave de cadena correcta (mystring) siguiente' _ _ _ _ _ _ _ _ _ _ wscript.quit () guárdelo en C: / temp como matrix.vbs para crear los archivos bat @ echo offcolor 0atitle the matrixset / p matrix = | cscript / nologo (Reemplace esto con su ruta al archivo vbs) exitset / p matrix = Nombre ese RabbitHole.bat. ¡Entonces ejecútalo! Esto es algo genial, pero avanzado para hacer con vbs, lo acabo de poner porque es increíble

Paso 5: Finalizar

Ahí tienes

El cielo es el límite de lo que puedes hacer