The Ultimate Computer Shutdown Prank: 3 trinn

2025 Forfatter: John Day | [email protected]. Sist endret: 2025-01-23 15:02

Dette er et.vbs nedleggelsesskript som jeg lagde som en tull. Grunnen til at den er så kul, er at i stedet for å slå av datamaskinen med en gang, snakker datamaskinen til deg og advarer deg om at datamaskinen vil slå seg av om 10 sekunder, så viser den en liten animasjon som teller ned de siste 5 sekundene før den slår av datamaskinen.

Jeg liker også å kompilere den til en.exe ved hjelp av en omformer, men du trenger ikke gjøre dette. Se min vbs -skjermlås hvis du vil vite hvordan du gjør dette. Det er også noen lenker for vbs -redaktører i den instruerbare.

Men i motsetning til skjermlåsen min, er dette programmet mye kortere, så jeg skal prøve å forklare det så godt jeg kan.

MERK: Hvis du ikke allerede vet vbs, anbefaler jeg å sjekke denne instruksjonsboken slik at du har en grunnleggende forståelse av noen av funksjonene som brukes, er dette skriptet.

Trinn 1: Skriptet mitt …

Her er manuset..

Du må slette en av "s" på slutten slik at den ender med "Shutdown.vbs" eller hva du vil så lenge den ender på.vbs.

Trinn 2: Skriptet mitt (forklaring) …

Så vet at jeg skal forklare koden …

Den første linjen gjør egentlig ikke så mye, den hjalp meg bare da jeg laget skriptet. Her er de tre neste linjene:

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

Den første kodelinjen erklærer variabelen som vi skal bruke til å kontrollere er For … Next Loop. De to neste kodelinjene deklarerer og angir 2 variabler. objWshShl brukes til meldingsboksen og kjørefunksjonene. objVoice brukes til å få datamaskinen til å "snakke".

Her er ytterligere tre linjer:

ShutdownWarning () TimedMessageBox () ShutdownComputer ()

Disse linjene kaller bare de tre funksjonene som er i skriptet vårt.

Her er den første funksjonen i are script.

Funksjon ShutdownWarning objVoice. Speak "Denne datamaskinen vil nå stenge om 10 sekunder." WScript. Sleep 5000 sluttfunksjon

Vi trenger egentlig ikke funksjoner i skriptet vårt, men det hjelper bare med å holde ting organisert.

Så alt dette er å snakke setningen mellom anførselstegnene og deretter stoppe i 5 sekunder før du fortsetter til neste funksjon.

Denne neste delen kan virke litt vanskelig, men den er faktisk ganske lett å forstå:

Funksjon TimedMessageBox For IntCounter = 5 til 1 trinn -1 objWshShl. Popup "Datamaskinen vil slå seg av i" _ & IntCounter & "sekunder", 1, "Computer Shutdown", 0+48 Next End Function

Så først oppretter den en funksjon som heter TimedMessageBox.

Så er de neste 4 linjene en For … Next Loop. Så denne løkken vil sløyfe fem ganger og gå ned med en hver gang.

objWshShl. Popup "Datamaskinen vil stenge om" _ & IntCounter & "sekunder", 1, "Computer Shutdown", 0+48

Denne koden er faktisk bare en linje med kode, den er bare atskilt til en annen linje ved hjelp av "_" -tegnet for å gjøre det lettere å lese. Hva denne koden gjør er at den oppretter en popup -melding som varer i 1 sekund, og viser hvor mange sekunder det er igjen til nedstengning ved hjelp av IntCounter -variabelen.

Når denne løkken sløyfes fem ganger, fortsetter den med skriptet.

Her er neste funksjon:

Funksjon ShutdownComputer objWshShl. Run "Shutdown /s /f /t 0", 0 Sluttfunksjon

Alt dette gjør er å slå av datamaskinen ved hjelp av en run -kommando. Her er bryterne som brukes: /s /f /t. /S betyr å slå av, /f betyr å lukke alle applikasjoner uten forvarsel. /T er tiden i sekunder før du slår den av. Du vil legge merke til etter den kommandoen at det er et komma -null ", 0". Dette gjør det bare slik at ingen cmd -enke blinker når avslutningskommandoen utføres.

Trinn 3: Håper dette var nyttig

Håper denne instruksjonsboken var nyttig hvis du trenger mer hjelp eller har spørsmål, vennligst send meg en pm eller legg igjen en kommentar.