Die uiteindelike grap vir rekenaarstop: drie stappe

2024 Outeur: John Day | [email protected]. Laas verander: 2024-01-30 07:24

Dit is 'n.vbs -afsluitskrif wat ek as 'n grap gemaak het. Die rede waarom dit so cool is, is omdat die rekenaar met u praat, in plaas daarvan om die rekenaar dadelik af te sluit, en u waarsku dat die rekenaar binne 10 sekondes sal afsluit, en dan 'n bietjie animasie wat die laaste 5 sekondes voor aftel dit sluit die rekenaar af.

Ek hou ook daarvan om dit saam te stel na 'n.exe met 'n omskakelaar, maar u hoef dit nie te doen nie. Kyk na my vbs Screen Lock as u wil weet hoe u dit moet doen. Daar is ook 'n paar skakels vir vbs -redakteurs in die instruksies.

Maar anders as my skermslot, is hierdie program baie korter, so ek sal probeer om dit so goed moontlik te verduidelik.

OPMERKING: as u nog nie vbs ken nie, beveel ek aan dat u hierdie instruksie raadpleeg, sodat u 'n basiese begrip kan hê van sommige van die funksies wat gebruik word in hierdie script.

Stap 1: My skrif …

Hier is die script..

U sal een van die 's' aan die einde moet verwyder sodat dit eindig met 'Shutdown.vbs' of wat u ook al wil, solank dit eindig in.vbs.

Stap 2: My skrif (verduideliking) …

So weet, ek sal die kode verduidelik …

Die eerste reël doen nie veel nie; dit het my net gehelp toe ek die draaiboek gemaak het. Hier is die volgende drie reëls:

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

Die eerste reël kode verklaar die veranderlike wat ons sal gebruik om te beheer, is For … Next Loop. Die volgende twee reëls kode verklaar en stel 2 veranderlikes. objWshShl word gebruik vir die boodskapkassie en uitvoerfunksies. objVoice word gebruik om die rekenaar te laat "praat".

Hier is nog drie reëls:

ShutdownWarning () TimedMessageBox () ShutdownComputer ()

Hierdie reëls noem net die drie funksies in ons skrif.

Hier is die eerste funksie in are script.

Funksie ShutdownWarning objVoice. Speak "Hierdie rekenaar sal nou binne 10 sekondes afskakel." WScript. Sleep 5000 Eindfunksie

Ons het nie regtig funksies in ons skrif nodig nie, maar dit help net om dinge georganiseer te hou.

Dit is dus net om die sin tussen die aanhalings te spreek en dan vir 5 sekondes te wag voordat u na die volgende funksie gaan.

Hierdie volgende deel lyk miskien nogal lastig, maar dit is eintlik redelik maklik om te verstaan:

Function TimedMessageBox For IntCounter = 5 to 1 Step -1 objWshShl. Popup "Computer will shut down in" _ & IntCounter & "seconds", 1, "Computer Shutdown", 0+48 Next End Function

Dus skep dit eers 'n funksie genaamd TimedMessageBox.

Dan is die volgende 4 reëls 'n For … Next Loop. Hierdie lus loop dus vyf keer, elke keer met een.

objWshShl. Popup "Rekenaar sal afskakel binne" _ & IntCounter & "sekondes", 1, "Rekenaar afskakel", 0+48

Hierdie kode is eintlik slegs een reël kode, dit word net in 'n ander reël geskei deur die '_' karakter te gebruik om dit makliker te maak om te lees. Wat hierdie kode doen, is dat dit 'n opspringboodskap skep wat 1 sekonde duur, en die hoeveelheid sekondes wat vertoon word totdat dit afgeskakel word, vertoon met behulp van die IntCounter -veranderlike.

As hierdie lus vyf keer loop, gaan dit voort met die script.

Hier is die volgende funksie:

Funksie ShutdownComputer objWshShl. Run "Shutdown /s /f /t 0", 0 Einde funksie

Dit alles is om die rekenaar af te sluit met 'n run -opdrag. Hier is die skakelaars wat gebruik word: /s /f /t. Die /s beteken om af te sluit, die /f beteken om alle toepassings sonder waarskuwing te sluit, die /t is die tyd in sekondes voor die sluiting. U sal agterkom dat die opdrag 'n komma nul ", 0" is. Dit maak dit net so dat geen cmd -weduwee flits as die beëindigingskommando uitgevoer word nie.

Stap 3: Hoop dit was nuttig

Hoop dat hierdie instruksies nuttig was as u meer hulp nodig het of vrae het, stuur 'n boodskap aan my of laat 'n opmerking agter.