Programmeer uw pc om automatisch uit te schakelen door aan te geven op welk tijdstip u dat wilt doen: 4 stappen

2024 Auteur: John Day | [email protected]. Laatst gewijzigd: 2024-01-30 11:19

hey, dat is nog een instructabel uit mijn dagelijks leven …

de laatste keer dat ik veel software naar mijn pc moest downloaden en ik moest het 's nachts laten downloaden, ik wilde mijn pc niet de hele nacht aan laten staan nadat ik de downloads had voltooid en tegelijkertijd kon ik niet wakker blijven om erop te wachten om de downloads te voltooien en uit te schakelen! daarom heb ik een VBscript gemaakt waarmee de pc op een interactieve manier automatisch kan worden uitgeschakeld! schakel uit na de tijd die nodig is om te downloaden voor het geval er een snelheidsdaling is, maar ik blijf tenminste niet wakker en ik zal mijn pc de hele nacht aanzetten terwijl ik niets doe! en de pc zal in dit geval interactief zijn met de gebruiker omdat ik er ook wat spraak en gesproken tekst aan heb toegevoegd! kijk daarom op mijn instructabel! en als je het leuk vindt, plaats dan een reactie! Met dank

Stap 1: Begin met het schrijven van het script…

open kladblok en schrijf het volgende script in kladblok: Dim xDim yset oShell = createobject("wscript.shell") Set Sapi = Wscript. CreateObject("SAPI. SpVoice") x = InputBox("Wilt u uw pc afsluiten na antwoord: ja/nee", "AUTOMATISCH SYSTEEM SHUTDOWN! by SCRIPTmaster") if x = "yes" then y = InputBox("Voer de resterende tijd in om automatisch uit te schakelen (tijd in minuten…):", "AUTOMATISCH SYSTEEM UITGESCHAKELD!") sapi.speak y + "minuten over voor afsluiten" oShell. Run "shutdown.exe -s -t " & (y * 60) & " -f -c ""Het systeem is nu ingesteld op automatisch shutdown! wacht niet tot de downloads zijn voltooid, u kunt gaan slapen! GOOD NIGHT! see you 2morow! >>>>om deze automatische shutdown te beëindigen, voert u het script opnieuw uit en typt u no""" end if if x = "no " dan sapi.speak "oke, zoals je wilt, vaarwel, script geschreven door Ayman Farhat de SCRIPTmaster" oShell.run "shutdown.exe -a" eindigen als

Stap 2: Gedetailleerde beschrijving van de code in het script…

Dim x en Dim y ///declareren de variabelen x en y die respectievelijk verantwoordelijk zijn voor het antwoord en de tijd.set oShell = createobject("wscript.shell") /// roept de OS-shell aan en maakt het object wscript.shellSet Sapi = Wscript. CreateObject("SAPI. SpVoice") /// roept de Windows SAPI aan en maakt het object SAPI. SpVoice aan dat verantwoordelijk is voor de spraak in dit script terwijl het de gebruiker vertelt…x = InputBox("Wilt u afsluiten uw pc na verloop van tijd antwoord: ja/nee", "AUTOMATISCH SYSTEEM AFSLUITEN! " /// roept de invoer op waar de gebruiker zegt of hij zijn pc wil afsluiten als x = "ja" dan /// is a branching statementy = InputBox ("Voer de resterende tijd in voordat het afsluiten automatisch plaatsvindt (tijd in minuten…):", "AUTOMATISCH SYSTEEM UITSCHAKELEN!") // als de gebruiker ja kiest, wordt hij door een andere invoer gevraagd om de resterende tijd toe te wijzen voor afsluiten sapi.speak y + "minutes left for shutdown" ///de windows SAPI leest de resterende minuten oShell. Run "shutdown.exe -s -t " & (y * 60) & " -f -c ""Systeem is nu ingesteld voor automatische uitschakeling! wacht niet tot de downloads zijn voltooid, je kunt gaan slapen! GOEDENACHT! zie je over 2 dagen! >>>>om deze automatische afsluiting te beëindigen, voert u het script opnieuw uit en typt u no""" ///dit is de shutdown-instructie die het uitvoerbare bestand van het systeem aanroept om te starten en de pc afsluit volgens de opgegeven tijd, in dit geval de variabele y! end if // beëindigt de eerste if-instructie die in dit geval ja is als x = "nee" dan //.another is de instructie die verantwoordelijk is voor het nee-antwoord sapi.speak "oke, as you wish good bye, script geschreven door Ayman Farhat de SCRIPTmaster" ///de SAPI spreekt tot de gebruiker en zegt hem gedag het toevoegen van -a! end if // end of the if statement! dat was een korte maar gedetailleerde beschrijving, weet ga naar de volgende stap om te zien wat je moet doen…

Stap 3: Uw script opslaan

nadat u uw script in Kladblok hebt ingevoerd, moet u het opslaan, klik op opslaan, en op de plaats waar u de naam van uw bestand typt, plaatst u de naam van uw bestand gevolgd door.vbs zoals weergegeven in de afbeelding …

Stap 4: Voer uw script uit…

dubbelklik op het VB-programma dat u zojuist hebt opgeslagen en zie de magie!

u wordt eerst gevraagd door een invoer die u vraagt of u wilt afsluiten of niet, zoals weergegeven in de afbeelding. als u ervoor kiest om niet af te sluiten door nee te typen, wordt het programma automatisch beëindigd… als u ervoor kiest om af te sluiten door ja te typen, wordt u door een andere invoer gevraagd hoeveel minuten u wilt dat uw pc ingeschakeld blijft, zoals weergegeven in de afbeelding onderstaand. en dan zal het aftellen beginnen als je dat afsluiten om welke reden dan ook wilt beëindigen, voer het programma gewoon opnieuw uit terwijl het afsluiten plaatsvindt en typ nee en het zal autonoom eindigen! Dus dat was een oplossing voor een probleem waar veel pc-gebruikers last van hebben! Ik hoop dat je mijn instructable leuk vond, als je dat doet, laat dan een reactie achter, ik zal zo blij zijn om van je te horen. VEEL GELUK en GOEDE NACHT!