2025 Autor: John Day | [email protected]. Naposledy zmenené: 2025-01-23 15:05
Toto je skript vypínania.vbs, ktorý som urobil ako žart. Dôvod, prečo je taký úžasný, je ten, že namiesto toho, aby ste počítač okamžite vypli, k vám prehovorí a upozorní vás, že sa počítač vypne do 10 sekúnd, a potom zobrazí malú animáciu, ktorá odpočítava posledných 5 sekúnd pred vypol počítač.
Tiež sa mi páči kompilácia do súboru.exe pomocou prevodníka, ale nemusíte to robiť. Ak chcete vedieť, ako to urobiť, pozrite si môj zámok obrazovky vbs. V tomto návode je tiež niekoľko odkazov na editory vbs.
Na rozdiel od zámku obrazovky je však tento program oveľa kratší, takže sa ho pokúsim vysvetliť čo najlepšie.
POZNÁMKA: Ak ešte neviete vbs, odporúčam vám pozrieť si tento návod, aby ste získali základné znalosti o niektorých použitých funkciách, ktorými je tento skript.
Krok 1: Môj skript…
Tu je scenár..
Na konci budete musieť odstrániť jedno z písmen „s“, aby sa skončilo na „Shutdown.vbs“alebo na čomkoľvek inom, pokiaľ končí na.vbs.
Krok 2: Môj skript (vysvetlenie)…
Vedzte, že kód vysvetlím …
Prvý riadok toho vlastne veľa neznamená, iba mi to pomohlo pri vytváraní scenára. Tu sú nasledujúce tri riadky:
Dim IntCounterDim objWshShl: Set objWshShl = WScript. CreateObject ("wscript.shell") Dim objVoice: Set objVoice = WScript. CreateObject ("sapi.spvoice")
Prvý riadok kódu deklaruje premenné, ktoré použijeme na ovládanie, sú For… Next Loop. Nasledujúce dva riadky kódu deklarujú a nastavujú 2 premenné. objWshShl sa používa pre funkcie okna so správou a spúšťania. objVoice sa používa na to, aby počítač „rozprával“.
Tu sú ďalšie tri riadky:
ShutdownWarning () TimedMessageBox () ShutdownComputer ()
Tieto riadky práve volajú tri funkcie, ktoré sú v našom skripte.
Tu je prvá funkcia v sú skriptu.
Funkcia ShutdownWarning objVoice. Speak "Tento počítač sa teraz vypne o 10 sekúnd." Funkcia WScript. Sleep 5000 End
V našom scenári nepotrebujeme funkcie, ale len pomáha udržiavať poriadok.
Všetko, čo musíte urobiť, je povedať vetu medzi úvodzovkami a potom sa na 5 sekúnd pozastaviť, než prejdete na ďalšiu funkciu.
Táto ďalšia časť sa môže zdať trochu zložitá, ale v skutočnosti je celkom ľahké ju pochopiť:
Funkcia TimedMessageBox pre IntCounter = 5 až 1 krok -1 objWshShl. Popup "Počítač sa vypne za" _ & IntCounter & "sekúnd", 1, "Vypnutie počítača", 0+48 Nasledujúca koncová funkcia
Najprv teda vytvorí funkciu s názvom TimedMessageBox.
Potom sú nasledujúce 4 riadky slučkou For… Next. Táto slučka sa teda bude opakovať päťkrát a zakaždým sa zníži o jednu.
objWshShl. Popup "Počítač sa vypne za" _ & IntCounter & "sekúnd", 1, "Vypnutie počítača", 0+48
Tento kód je v skutočnosti iba jedným riadkom kódu, je len oddelený do iného riadka pomocou znaku „_“, aby bol čitateľnejší. Tento kód robí, že vytvorí kontextovú správu, ktorá trvá 1 sekundu a zobrazuje počet sekúnd, ktoré zostávajú do vypnutia, pomocou premennej IntCounter.
Keď sa táto slučka päťkrát zacyklí, pokračuje v skripte.
Tu je ďalšia funkcia:
Funkcia ShutdownComputer objWshShl. Run "Shutdown /s /f /t 0", 0 End Function
Všetko, čo urobí, je vypnutie počítača pomocou príkazu run. Tu sú použité prepínače: /s /f /t. /S znamená vypnutie, /f znamená zatvorenie všetkých aplikácií bez varovania, /t je čas v sekundách pred vypnutím. Všimnite si, že po tomto príkaze je čiarka nula ", 0". Vďaka tomu už pri vykonávaní príkazu vypnutia nebliká žiadna vdova cmd.
Krok 3: Dúfam, že to bolo užitočné
Dúfam, že tento návod bol nápomocný, ak potrebujete ďalšiu pomoc alebo máte otázky, napíšte mi alebo zanechajte komentár.
Odporúča:
The Ultimate Knife Block: 11 Steps (with Pictures)
The Ultimate Knife Block: Všetci sme tam boli, sekanie zeleniny nožom tak tupým, že by bolo efektívnejšie použiť čajovú lyžičku. V tom okamihu premýšľate o tom, ako ste sa tam dostali: vaše nože boli pri ich kúpe ostré ako žiletky, ale teraz, o tri roky neskôr,
Hacking the Hexbug Spider XL to add Computer Vision using an Android Smartphone: 9 Steps (with Pictures)
Hacking the Hexbug Spider XL to add Computer Vision using an Android Smartphone: I am big fan the original Hexbug ™ Pavúk. Vlastnil som viac ako tucet a všetky som hackol. Kedykoľvek jeden z mojich synov ide k priateľom ’ narodeninovú oslavu, priateľ dostane Hexbug ™ pavúk ako darček. Hackol som alebo
The Ultimate Beer Pong Machine - PongMate CyberCannon Mark III: 6 Steps (with Pictures)
The Ultimate Beer Pong Machine - PongMate CyberCannon Mark III: IntroductionPongMate CyberCannon Mark III je najnovšia a najpokročilejšia technológia pivného pongu, ktorá sa kedy predáva verejnosti. S novým CyberCannon sa každá osoba môže stať najobávanejším hráčom pri stole pri pivnom pongu. Ako je tento p
Ultimate Guide to Building Your Multirotor Frames Cheap: 7 Steps
Ultimate Guide to building your Multirotor Frames Cheap: Hey there guys! Dlho sme nevideli. Tak tu je, ako to chodí, nakupoval som na eBay diely, keď vidím všetky tieto dosť slabé a chromé kvadrotorové trikoptéry hexa a octa, ako aj rámy y6 a y4, pohybujúce sa kdekoľvek od 800 do 6 500 rs. Myslel som na stavbu
The Ultimate PVC Quadcopter: 16 Steps (with Pictures)
Ultimátna kvadrokoptéra z PVC: Či už ste začiatočník, ktorý hľadá kvadrokoptéru, ktorá vám pomôže zmoknúť nohami v škrabancoch, alebo ste o niečo skúsenejší a hľadáte lacný a spoľahlivý rám, nehľadajte nič iné ako Špičková kvadrokoptéra z PVC! Toto ja