Paso 6: sub key()
El método clave es abajo.Sub key(msg)
' hacer impresiones de los mensajes de "la matriz" y los borre
Wscript.Sleep 1500
longitud = len(msg)
posición = 1 to longitud
WshShell. SendKeys mediados (msg, posicion, 1)
Wscript.Sleep 250
siguiente
Wscript.Sleep 3000
posición = 1 to longitud
WshShell. SendKeys "{borrar}"
Wscript.Sleep 75
siguiente
sub final
Este método imprime una cadena "msg". A imprimir cualquier cosa que pase. Este método se llama más adelante en el código.
El primer bucle imprime cada carácter de la cadena, uno a la vez y hace una pausa de 250 milisegundos entre cada carácter. Nosotros entonces dormir para 3000 millis (3 segundos) y escribir un retroceso por cada carácter que previamente impreso, para dormir esta vez un poco menos.
Eso es todo allí está a él. En el cuerpo principal del programa, donde todo confluye.