Galutinis kompiuterio išjungimo pokštas: 3 žingsniai

2024 Autorius: John Day | [email protected]. Paskutinį kartą keistas: 2024-01-30 10:45

Tai.vbs išjungimo scenarijus, kurį padariau kaip išdaigas. Priežastis, kodėl taip šaunu, yra ta, kad užuot iš karto išjungęs kompiuterį, kompiuteris kalba su jumis ir įspėja, kad kompiuteris išsijungs po 10 sekundžių, tada bus rodoma maža animacija, skaičiuojanti paskutines 5 sekundes prieš tai išjungė kompiuterį.

Man taip pat patinka kompiliuoti jį į.exe naudojant keitiklį, tačiau jums to nereikia daryti. Peržiūrėkite mano vbs ekrano užraktą, jei norite sužinoti, kaip tai padaryti. Taip pat yra keletas nuorodų, skirtų vbs redaktoriams.

Tačiau, skirtingai nei mano ekrano užraktas, ši programa yra daug trumpesnė, todėl pabandysiu tai paaiškinti kuo geriau.

PASTABA: Jei dar nežinote vbs, rekomenduoju patikrinti šį „Instructable“, kad suprastumėte kai kurias naudojamas funkcijas.

1 veiksmas: mano scenarijus …

Čia yra scenarijus..

Pabaigoje turėsite ištrinti vieną iš „s“, kad jis baigtųsi „Shutdown.vbs“arba ką tik norite, jei jis baigiasi.vbs.

2 veiksmas: mano scenarijus (paaiškinimas)…

Taigi žinok, kad paaiškinsiu kodą …

Pirmoji eilutė tikrai neduoda daug, ji man tik padėjo kuriant scenarijų. Toliau pateikiamos trys eilutės:

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

Pirmoje kodo eilutėje nurodomas kintamasis, kurį mes naudosime valdymui: For… Next Loop. Kitos dvi kodo eilutės deklaruoja ir nustato 2 kintamuosius. „objWshShl“naudojamas pranešimų laukeliui ir vykdymo funkcijoms. „objVoice“naudojamas kompiuteriui „kalbėti“.

Štai dar trys eilutės:

ShutdownWarning () TimedMessageBox () ShutdownComputer ()

Šios eilutės tik šaukia tris funkcijas, kurios yra mūsų scenarijuje.

Čia yra pirmoji „script“funkcija.

Funkcija ShutdownWarning objVoice. Speak "Šis kompiuteris dabar išsijungs per 10 sekundžių." WScript. Miego 5000 pabaigos funkcija

Mums iš tikrųjų nereikia scenarijaus funkcijų, tačiau tai tik padeda tvarkyti dalykus.

Taigi visa tai yra pasakyti sakinį tarp kabučių ir tada 5 sekundes padaryti pertrauką prieš tęsiant kitą funkciją.

Ši kita dalis gali atrodyti gana sudėtinga, tačiau iš tikrųjų ją gana lengva suprasti:

Funkcija „TimedMessageBox“, skirta „IntCounter“= nuo 5 iki 1 1 veiksmas objWshShl. Popup "Kompiuteris išsijungs po„ _ & IntCounter & "sekundžių", 1, „Kompiuterio išjungimas", 0+48 Kitas pabaigos veiksmas

Taigi pirmiausia sukuriama funkcija, vadinama „TimedMessageBox“.

Tada kitos 4 eilutės yra skirtos „For… Next Loop“. Taigi ši kilpa suksis penkis kartus kiekvieną kartą po vieną.

objWshShl. Popup "Kompiuteris išsijungs po" _ & IntCounter & "sekundžių", 1, "Kompiuterio išjungimas", 0+48

Šis kodas iš tikrųjų yra tik viena kodo eilutė, jis yra tiesiog atskirtas į kitą eilutę, naudojant simbolį „_“, kad būtų lengviau skaityti. Naudojant šį kodą sukuriamas iššokantis pranešimas, kuris trunka 1 sekundę, naudojant „IntCounter“kintamąjį ir parodo, kiek sekundžių liko iki išjungimo.

Kai ši kilpa kartojasi penkis kartus, ji tęsiama su scenarijumi.

Čia yra kita funkcija:

Funkcija ShutdownComputer objWshShl. Run "Shutdown /s /f /t 0", 0 Pabaigos funkcija

Visa tai yra kompiuterio išjungimas naudojant paleidimo komandą. Čia naudojami jungikliai: /s /f /t. /S reiškia išjungimą, /f reiškia visų programų uždarymą be įspėjimo, /t yra laikas sekundėmis iki išjungimo. Po šios komandos pastebėsite, kad kablelis yra nulis ", 0". Dėl to vykdant išjungimo komandą nemirksi nė viena cmd našlė.

3 žingsnis: tikiuosi, kad tai buvo naudinga

Tikimės, kad ši instrukcija buvo naudinga, jei jums reikia daugiau pagalbos ar turite klausimų, parašykite man pm arba palikite komentarą.