Ajouter un raccourci pour éteindre rapidement Windows 10 - Windows 10

Plutôt que de passer par le menu Démarrer pour arrêter votre ordinateur, vous pouvez créer un raccourci sur le Bureau ou dans la barre des tâches pour l'éteindre rapidement.

Lien vers l'article : http://www.pcastuces.com/pratique/astuces/4532.htm

Bon, j'ai installé ce raccourci pour fermer rapidement Windows 10 sans problème et tout fonctionne comme il se doit - sauf que depuis que je l'ai exécuté, j'ai perdu le menu Démarrer qui est devenu inopérant ! Si j'y clique avec le bouton droit de la souris, s'ouvre un menu contextuel qui comprend quelques unes des commandes du menu Démarrer, comme fermer le système ou ouvrir le panneau de configuration. Ce n'est pas une situation satisfaisante ... Que faire ?

Mon raccourci est plus élaboré :

=======
Stop.vba
=======
Option Explicit
On Error Resume Next
'---
Dim Wsh, Result, MsgResult, MsgA, AppName
'---
MsgA = "Voulez-vous vraiment éteindre le PC ?"
AppName = "Arrêt PC"
Set Wsh = CreateObject("WScript.Shell")
' --- if Result = "" then
MsgResult = Msgbox (MsgA, vbYesNo + vbDefaultButton2 + vbCritical, AppName)
If MsgResult = vbYes then
Wsh.Run "%windir%\system32\shutdown.exe -f -s -t 3"
else
WScript.Quit
end if
WScript.Quit
=====================
Ecrire ce programme 'Stop.vba' dans le dossier 'Programmes' (ou dans un sous-dossier)
Puis 'Bouton droit' dessus
Sur le Bureau 'Bouton droit' 'Coller le raccourci'
Changer l'icône et le glisser (éventuellement) sur la Barre de Tâches

Précision : Ce raccourci marche très bien dans Win 7

Bonsoir,

par défaut chez moi (7 et 10) les vba ne sont pas associés à wscript ni cscript ; avec vbs c'est bon.

je les fait sa fonctionne très bien avec Windows 10 ,merci pour cette astuce clement a bientôt

Erreur de ma part : Le programme bien sûr ne doit pas être ".vba' mais ".vbs".

Le même pour redémarrer :
===================================

Option Explicit
On Error Resume Next
'---
Dim Wsh, Result, MsgResult, MsgA, AppName
'---
MsgA = "Voulez-vous redémarrer le PC ?"
AppName = "Restart PC"
Set Wsh = CreateObject("WScript.Shell")
' ---
MsgResult = Msgbox (MsgA, vbYesNo + vbDefaultButton2 + vbCritical, AppName)
If MsgResult = vbYes then
Wsh.Run "%windir%\system32\shutdown.exe -f -r -t 3"
else
WScript.Quit
' ---
end if
WScript.Quit

===================================
Appelez le programme, par exemple "Restart.vbs"

La seule différence (en dehors du message d'ouverture) avec le programme d'arrêt, est le deuxième paramètre
du module "shutdown.exe' qui de "s" (comme stop) devient "r" (comme restart)

Pour la veille, c'est la commande :

rundll32 powrprof.dll,SetSuspendState

L'action exacte dépendra du paramètre indiqué dans Panneau de configuration>Options d'alimentation>onglet "Avancé">"Lorsque j'appuie sur le bouton de mise en veille de l'ordinateur :".
Donc ça peut être veille simple ou veille prolongée (ou hybride, c'est-à-dire prolongée si coupure d'alim et simple sinon).

(on peut peut-être dés/activer à la volée la veille prolongée pour l'occasion, avec powercfg -h on/off)

Merci!

bonjour a tous

je clic sur suivant il me dit le fichier %windir%\System32\shutdown.exe /s /t 0 est introuvable

merci pour une réponse

Bienvenue,

à part revérifier la syntaxe je ne vois rien, désolé.

Up !