The Ultimate Computer Shutdown Prank: 3 steg

2024 Författare: John Day | [email protected]. Senast ändrad: 2024-01-30 12:38

Detta är ett.vbs -avstängningsskript som jag gjorde som en upptåg. Anledningen till att den är så cool, är att istället för att bara stänga av datorn direkt, talar datorn till dig och varnar dig för att datorn stängs av om 10 sekunder, då visar den en liten animation som räknar ner de senaste 5 sekunderna innan det stängde av datorn.

Jag gillar också att kompilera den till en.exe med en omvandlare, men du behöver inte göra det här. Se mitt vbs -skärmlås om du vill veta hur du gör detta. Det finns också några länkar för vbs -redaktörer i den instruerbara.

Men till skillnad från mitt skärmlås är detta program mycket kortare, så jag ska försöka förklara det så gott jag kan.

OBS: Om du inte redan vet vbs, rekommenderar jag att du kollar in den här instruktionsboken så att du har en grundläggande förståelse för några av de funktioner som används är detta skript.

Steg 1: Mitt skript …

Här är manuset..

Du måste ta bort en av "s" i slutet så att den slutar i "Shutdown.vbs" eller vad du än vill så länge den slutar på.vbs.

Steg 2: Mitt skript (förklaring) …

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

Den första raden gör inte så mycket, den hjälpte mig bara när jag skapade manuset. Här är de tre följande raderna:

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

Den första kodraden förklarar variabeln som vi kommer att använda för att styra är För … Nästa loop. Nästa två rader med kod deklarerar och sätter 2 variabler. objWshShl används för meddelandefältet och körfunktioner. objVoice används för att få datorn att "prata".

Här är ytterligare tre rader:

ShutdownWarning () TimedMessageBox () ShutdownComputer ()

Dessa rader kallar bara de tre funktioner som finns i vårt manus.

Här är den första funktionen i are script.

Funktion ShutdownWarning objVoice. Speak "Den här datorn stängs nu av om 10 sekunder." WScript. Sleep 5000 slutfunktion

Vi behöver egentligen inte funktioner i vårt manus, men det hjälper bara att hålla sakerna organiserade.

Så allt detta är att tala meningen mellan citattecken och sedan pausa i 5 sekunder innan vi fortsätter till nästa funktion.

Denna nästa del kan tyckas lite knepig men den är faktiskt ganska lätt att förstå:

Funktion TimedMessageBox For IntCounter = 5 till 1 Steg -1 objWshShl. Popup "Datorn stängs av i" _ & IntCounter & "sekunder", 1, "Computer Shutdown", 0+48 Next End Function

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

Sedan är de fyra följande raderna en For … Next Loop. Så den här slingan kommer att slinga fem gånger och gå ner med en varje gång.

objWshShl. Popup "Datorn stängs av inom" _ & IntCounter & "sekunder", 1, "Datoravstängning", 0+48

Denna kod är faktiskt bara en kodrad, den är bara avgränsad till en annan rad med "_" -tecknet för att göra det lättare att läsa. Vad den här koden gör är att den skapar ett popup -meddelande som varar i 1 sekund och visar hur många sekunder som är kvar till avstängning med IntCounter -variabeln.

När den här slingan slingas fem gånger fortsätter den med skriptet.

Här är nästa funktion:

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

Allt detta gör är att stänga av datorn med ett körkommando. Här är omkopplarna som används: /s /f /t. /S betyder att avstängning, /f betyder att stänga alla applikationer utan förvarning, /t är tiden i sekunder före avstängning. Du kommer att märka efter det kommandot att det finns ett komma -noll ", 0". Detta gör det bara så att ingen cmd -änka blinkar när avstängningskommandot körs.

Steg 3: Hoppas detta var till hjälp

Hoppas att den här instruktionsboken var till hjälp om du behöver mer hjälp eller har några frågor, skicka ett pm till mig eller lämna en kommentar.