O glumă de închidere a computerului: 3 pași

2024 Autor: John Day | [email protected]. Modificat ultima dată: 2024-01-30 11:41

Acesta este un script de închidere.vbs pe care l-am făcut ca o farsă. Motivul pentru care este atât de mișto este că, în loc să opriți computerul imediat, computerul vă vorbește, avertizându-vă că computerul se va opri în 10 secunde, apoi afișează o mică animație numărând în ultimele 5 secunde înainte a oprit computerul.

De asemenea, îmi place să îl compilez într-un.exe folosind un convertor, dar nu trebuie să faceți acest lucru. Vizualizați blocarea ecranului meu vbs, dacă doriți să știți cum să faceți acest lucru. Există, de asemenea, câteva linkuri pentru editori vbs, de asemenea, în acest instructable.

Dar, spre deosebire de blocarea ecranului meu, acest program este mult mai scurt, așa că voi încerca să-l explic cât mai bine.

NOTĂ: Dacă nu cunoașteți deja vbs, vă recomand să verificați acest Instructable, astfel încât să aveți o înțelegere de bază a unora dintre funcțiile utilizate este acest script.

Pasul 1: Scriptul meu …

Iată scenariul..

Va trebui să ștergeți unul dintre „s” la final, astfel încât acesta să se termine în „Shutdown.vbs” sau ceea ce vreți vreodată, atâta timp cât se termină în.vbs.

Pasul 2: Scriptul meu (explicație) …

Deci, știu că voi explica codul …

Prima linie nu prea face, ci doar m-a ajutat când am creat scenariul. Iată următoarele trei rânduri:

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

Prima linie de cod declară că variabila pe care o vom folosi pentru a controla sunt Pentru … Următorul Buclă. Următoarele două linii de cod declară și setează 2 variabile. objWshShl este utilizat pentru caseta de mesaje și funcțiile de rulare. objVoice este folosit pentru a face computerul să „vorbească”.

Iată alte trei rânduri:

ShutdownWarning () TimedMessageBox () ShutdownComputer ()

Aceste linii apelează doar cele trei funcții din scriptul nostru.

Iată prima funcție din scriptul are.

Funcție ShutdownWarning objVoice. Speak "Acest computer se va închide acum în 10 secunde." Funcția de finalizare WScript. Sleep 5000

Nu avem nevoie de funcții în scenariul nostru, dar ne ajută să menținem lucrurile organizate.

Deci, toate acestea fac doar să rostească propoziția între ghilimele și apoi să se oprească timp de 5 secunde înainte de a continua la următoarea funcție.

Această parte următoare poate părea cam dificilă, dar este de fapt destul de ușor de înțeles:

Funcție TimedMessageBox pentru IntCounter = 5 la 1 Pas -1 objWshShl. Popup "Computerul se va opri în" _ & IntCounter & "secunde", 1, "Computer Shutdown", 0 + 48 Next End Function

Deci, mai întâi creează o funcție numită TimedMessageBox.

Apoi următoarele 4 linii sunt pentru Bucla … Următoarea. Deci, această buclă se va bucla de cinci ori, coborând cu una de fiecare dată.

objWshShl. Popup "Computerul se va opri în" _ & IntCounter & "secunde", 1, "Computer Shutdown", 0 + 48

Acest cod este de fapt doar o linie de cod, este doar separat într-o altă linie folosind caracterul „_” pentru a ușura citirea. Ce face acest cod este că creează un mesaj popup care durează 1 secundă afișează cantitatea de secunde rămase până la oprire utilizând variabila IntCounter.

Odată ce această buclă se bucură de cinci ori, continuă cu scriptul.

Iată următoarea funcție:

Funcție ShutdownComputer objWshShl. Run "Shutdown / s / f / t 0", 0 End Function

Tot ce face este să opriți computerul utilizând o comandă de rulare. Iată comutatoarele utilizate: / s / f / t. / S înseamnă închidere, / f înseamnă închiderea tuturor aplicațiilor fără avertisment, / t este timpul în secunde înainte de oprire. Veți observa după acea comandă că există o virgulă zero, "0". Acest lucru face doar ca nici o văduvă cmd să nu clipească atunci când comanda de oprire este executată.

Pasul 3: Sper că acest lucru a fost util

Sper că acest instructable a fost util dacă aveți nevoie de mai mult ajutor sau dacă aveți întrebări, vă rog să-mi dați un comentariu.