De ultieme grap over computeruitschakeling - Ajarnpa

2024 Auteur: John Day | [email protected]. Laatst gewijzigd: 2024-01-30 11:15

Dit is een.vbs-afsluitscript dat ik als grap heb gemaakt. De reden waarom het zo cool is, is omdat in plaats van de computer meteen uit te schakelen, de computer tegen je spreekt en je waarschuwt dat de computer over 10 seconden wordt afgesloten, waarna een kleine animatie wordt weergegeven die aftelt van de laatste 5 seconden ervoor het sluit de computer af.

Ik vind het ook leuk om het te compileren naar een.exe met behulp van een converter, maar je hoeft dit niet te doen. Bekijk mijn vbs Schermvergrendeling als je wilt weten hoe je dit moet doen. Er zijn ook enkele links voor vbs-editors in die instructable.

Maar in tegenstelling tot mijn schermvergrendeling is dit programma een stuk korter, dus ik zal proberen het zo goed mogelijk uit te leggen.

OPMERKING: als u vbs nog niet kent, raad ik u aan deze Instructable te bekijken, zodat u een basiskennis hebt van enkele van de gebruikte functies in dit script.

Stap 1: Mijn Script…

Hier is het script..

Je zult een van de "s" aan het einde moeten verwijderen, zodat het eindigt op "Shutdown.vbs" of wat je maar wilt, zolang het maar eindigt op.vbs.

Stap 2: Mijn Script (uitleg)…

Dus weet dat ik de code zal uitleggen …

De eerste regel doet niet echt veel, het heeft me alleen geholpen toen ik het script aan het maken was. Dit zijn de volgende drie regels:

Dim IntCounterDim objWshShl: Stel objWshShl = WScript. CreateObject("wscript.shell") Dim objVoice in: Stel objVoice = WScript. CreateObject("sapi.spvoice") in

De eerste regel code declareert de variabele die we zullen gebruiken om te controleren For…Next Loop. De volgende twee regels code declareren en stellen 2 variabelen in. objWshShl wordt gebruikt voor de berichtenbox en run-functies. objVoice wordt gebruikt om de computer te laten "praten".

Hier zijn nog drie regels:

ShutdownWarning()TimedMessageBox() ShutdownComputer()

Deze regels roepen gewoon de drie functies op die in ons script staan.

Hier is de eerste functie in zijn script.

Functie ShutdownWarning objVoice. Speak "Deze computer wordt nu over 10 seconden afgesloten." WScript. Sleep 5000 Einde Functie

We hebben niet echt functies nodig in ons script, maar het helpt gewoon om dingen georganiseerd te houden.

Dit doet dus alleen maar de zin tussen de aanhalingstekens uitspreken en dan 5 seconden pauzeren voordat je doorgaat naar de volgende functie.

Dit volgende deel lijkt misschien een beetje lastig, maar het is eigenlijk vrij eenvoudig te begrijpen:

Functie TimedMessageBox For IntCounter = 5 To 1 Step -1 objWshShl. Popup "Computer wordt afgesloten in " _ & IntCounter & "seconden", 1, "Computer Shutdown", 0+48 Volgende Einde Functie

Dus eerst maakt het een functie aan met de naam TimedMessageBox.

Dan zijn de volgende 4 regels een For…Next Loop. Dus deze lus loopt vijf keer en gaat elke keer één keer omlaag.

objWshShl. Popup "Computer zal afsluiten in " _ & IntCounter & " seconden", 1, "Computer afsluiten", 0+48

Deze code is eigenlijk maar één regel code, hij is alleen gescheiden in een andere regel met het teken "_" om het gemakkelijker te kunnen lezen. Wat deze code doet, is dat er een pop-upbericht wordt gemaakt dat 1 seconde duurt en het aantal resterende seconden tot het afsluiten weergeeft met behulp van de IntCounter-variabele.

Zodra deze lus vijf keer wordt herhaald, gaat het verder met het script.

Hier is de volgende functie:

Functie ShutdownComputer objWshShl. Run "Shutdown /s /f /t 0", 0 End Function

Het enige dat dit doet, is de computer afsluiten met een run-opdracht. Dit zijn de gebruikte schakelaars: /s /f /t. De /s betekent afsluiten, de /f betekent alle applicaties sluiten zonder waarschuwing, de /t is de tijd in seconden voor het afsluiten. Je zult zien dat er na dat commando een komma nul ", 0" staat. Dit zorgt ervoor dat er geen cmd-weduwe knippert wanneer het shutdown-commando wordt uitgevoerd.

Stap 3: Ik hoop dat dit nuttig was

Ik hoop dat dit Instructable nuttig was als je meer hulp nodig hebt of vragen hebt, stuur me dan een pb of laat een reactie achter.