Stap 2: Mijn Script (uitleg)...
Zo weet ik de code zal uitleggen...
De eerste lijn doet echt niet veel, het hielp me, toen ik het maken van het script. Hier zijn de volgende drie regels:
Dim IntCounterDim objWshShl : Set objWshShl = WScript.CreateObject("wscript.shell") Dim objVoice : Set objVoice = WScript.CreateObject("sapi.spvoice") De eerste coderegel verklaart de variabele die we zullen gebruiken om te bepalen voor... Next-lus. De volgende twee coderegels verklaart en worden 2 variabelen ingesteld. objWshShl wordt gebruikt voor het berichtvenster en functies worden uitgevoerd. objVoice wordt gebruikt om de computer "praten".
Hier zijn een andere drie lijnen:
ShutdownWarning()TimedMessageBox() ShutdownComputer()
Deze lijnen belt net de drie functies die in onze script zijn.
Hier is de eerste functie in zijn script.
Function ShutdownWarning objVoice.Speak "This computer will now shutdown in 10 seconds." WScript.Sleep 5000 End Function
We hoeven niet echt functies in onze script, maar het helpt gewoon houden dingen georganiseerd.
Dus dit alles doet is spreken de zin tussen aanhalingstekens en vervolgens gedurende 5 seconden voordat u verdergaat met de volgende functie wordt onderbroken.
Dit volgende deel lijkt misschien nogal lastig maar het is eigenlijk vrij eenvoudig te begrijpen:
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
Het maakt dus eerst een functie genaamd TimedMessageBox.
Dan zijn de volgende 4 lijnen een voor... Next-lus. Dus deze lus zal vijf keer naar beneden door een lus elke keer.
objWshShl.Popup "Computer will shutdown in " _ & IntCounter & " seconds",1,"Computer Shutdown", 0+48
Deze code is eigenlijk maar één regel code, het is net gescheiden in een andere regel met behulp van het karakter "_" om het gemakkelijker te lezen. Wat deze code doet is dat een pop-upbericht dat laatste voor 1 seconde weergeven hoeveel seconden links tot afsluiten met behulp van de variabele IntCounter wordt gemaakt.
Zodra deze lus vijfmaal lussen, blijft het op met het script.
Hier is de volgende functie:
Function ShutdownComputer objWshShl.Run "Shutdown /s /f /t 0",0 End Function
Dit doet alles afsluiten de computer met behulp van een bevel van de looppas. Hier zijn de schakelopties gebruikt: /s /f /t. De /s wil afsluiten, de /f wil sluit alle toepassingen zonder waarschuwing, de /t is de tijd in seconden voordat wordt afgesloten. U zult opmerken nadat die opdracht er staat een komma nul ", 0". Dit maakt het gewoon zodat geen cmd weduwe, knippert het shutdown commando wordt uitgevoerd.
