Den ultimata datorn Shutdown upptågen (2 / 3 steg)

Steg 2: Mitt manus (förklaring)...

Så vet jag kommer att förklara koden...

Den första raden är verkligen inte mycket, det hjälpte bara mig när jag skapade skriptet. Här är de följande tre raderna:

Dim IntCounter
Dim objWshShl: Ange objWshShl = WScript.CreateObjectWScript.Shell("")
Dim objVoice: Ange objVoice = WScript.CreateObject("sapi.spvoice")

Den första raden i koden förklarar den variabel som vi kommer att använda till kontroll är för... Nästa slinga. De följande två kodrader förklarar och sätter 2 variabler. objWshShl används för meddelanderutan och kör funktioner. objVoice används för att göra datorn "prata".

Här är en annan tre linjer:

ShutdownWarning()
TimedMessageBox()
ShutdownComputer()

Dessa rader kräver bara de tre funktionerna som finns i vårt skript.

Här är den första funktionen är skriptet.

Funktion ShutdownWarning
objVoice.Speak "Dator kommer nu avslutet i 10 sekunder."
WScript.Sleep 5000
Slutet funktion

Vi behöver egentligen funktioner i våra manus, men det hjälper bara till att hålla saker organiserade.

Så allt detta gör är talar meningen mellan citattecken och sedan pausar i 5 sekunder innan du fortsätter till nästa funktion.

Denna nästa del kan verka ganska knepigt men det är faktiskt ganska lätt att förstå:

Funktion TimedMessageBox
För IntCounter = 5 till 1 steg -1
objWshShl.Popup "Dator kommer att stänga i" _
& IntCounter & "sekunder", 1, "Dator avstängning", 0 + 48
Nästa
Slutet funktion

Så först skapar det en funktion som kallas TimedMessageBox.

Då är nästa 4 rader en för... Nästa slinga. Så denna loop kommer slinga fem gånger går ner av en varje gång.

objWshShl.Popup "Dator kommer att stänga i" _
& IntCounter & "sekunder", 1, "Dator avstängning", 0 + 48

Denna kod är faktiskt bara en kodrad, det separeras bara i en annan linje med tecknet "_" för att göra det lättare att läsa. Vad denna kod gör är att det skapar ett popup-meddelande som senast för 1 sekund Visa belopp sekunder kvar till avstängning med variabeln IntCounter.

När denna loop öglorna fem gånger, fortsätter det med skriptet.

Här är nästa funktion:

Funktion ShutdownComputer
objWshShl.Run "Shutdown/s/f/t 0", 0
Slutet funktion

Allt detta gör är avstängning av datorn med run-kommando. Här är växlarna som används: / s/f/t. Den/s innebär att avstängning, f innebär att stänga alla program utan förvarning, den/t är tiden i sekunder innan avstängning. Du kommer att märka efter som kommandot finns ett komma noll ", 0". Detta gör det bara så att ingen cmd änka blinkar när kommandot shutdown körs.