Paso 2: Mi Script (explicación)...
Así que sé que voy a explicar el código...
La primera línea no hacer mucho, sólo me ayudó cuando estaba creando el script. Aquí son las siguientes tres líneas:
Dim IntCounterDim objWshShl : Set objWshShl = WScript.CreateObject("wscript.shell") Dim objVoice : Set objVoice = WScript.CreateObject("sapi.spvoice") La primera línea de código declara la variable que utilizaremos para el control de... Siguiente bucle. Las dos siguientes líneas de código declara y establece 2 variables. objWshShl es utilizado para el cuadro de mensaje y ejecutar funciones. objVoice se utiliza para hacer que el ordenador "hable".
Aquí hay otras tres líneas:
ShutdownWarning()TimedMessageBox() ShutdownComputer()
Estas líneas sólo llaman las tres funciones que se encuentran en nuestro script.
Aquí es la primera función de secuencia de comandos.
Function ShutdownWarning objVoice.Speak "This computer will now shutdown in 10 seconds." WScript.Sleep 5000 End Function
Realmente no necesitamos funciones en nuestro script, pero solo ayuda a mantener las cosas organizadas.
Todo esto hace es hablar de la frase entre las comillas y luego hace una pausa de 5 segundos antes de continuar a la siguiente función.
Esta parte puede parecer un poco complicada pero es realmente bastante fácil de entender:
Function TimedMessageBox For IntCounter = 5 To 1 Step -1 objWshShl.Popup "Computer will shutdown in " _ & IntCounter & " seconds",1,"Computer Shutdown", 0+48 Next End Function
Así que primero crea una función llamada TimedMessageBox.
Después las siguientes 4 líneas son un para... Siguiente bucle. Por lo que este bucle a bucle va hacia abajo cinco veces por uno cada vez.
objWshShl.Popup "Computer will shutdown in " _ & IntCounter & " seconds",1,"Computer Shutdown", 0+48
Este código es realmente sólo una línea de código, sólo se separa en otra línea con el carácter '_' para que sea más fácil de leer. Lo que hace este código es que crea un mensaje emergente que duran durante 1 segundo la pantalla la cantidad de segundos a la izquierda hasta el apagado utilizando la variable IntCounter.
Una vez que este bucle bucles cinco veces, sigue en con la escritura.
Aquí le damos la siguiente función:
Function ShutdownComputer objWshShl.Run "Shutdown /s /f /t 0",0 End Function
Todo esto hace es apagar el equipo mediante un comando de marcha. Aquí están los interruptores usados: /s /f /t. El /s significa apagado, el /f significa cerrar todas las aplicaciones sin previo aviso, el /t es el tiempo en segundos antes del apagado. Te darás cuenta después de que comando hay una coma cero ", 0". Esto sólo hace que ninguna viuda de cmd parpadea cuando se ejecuta el comando shutdown.
