- Inscription
- 29 Juillet 2012
- Messages
- 729
- Réactions
- 157
- Points
- 19 831
Salut tout le monde c'est LaDz ! 
Aujourd'hui je poste un petit tutoriel pour comment mettre un bouton d'arrêt et redémarrer sur Windows 8 car comme tout les possesseurs de W8 le savent, pour éteindre son ordi il faut passer par plusieurs menus et c'est très chiant!
Mais grâce à moi je vais vous expliquer comment aller plus rapidement
Tout d'abord, ouvez votre bloc notes Windows et copiez y ce code :
r = MsgBox("Voulez-vous installer les boutons dans l'écran Démarrer",1,"Windows 8")
if r = 1 then
set WShell = WScript.CreateObject("WScript.Shell")
StartMenuPath = WShell.SpecialFolders("StartMenu")
set oLink = WShell.CreateShortcut(StartMenuPath & "\Redémarrer PC.lnk")
oLink.TargetPath = "%systemroot%\System32\shutdown.exe"
oLink.Arguments = "-r -t 0"
oLink.WindowStyle = 1
oLink.WorkingDirectory = "%systemroot%\System32\"
oLink.IconLocation = "%systemroot%\System32\shell32.dll,238"
oLink.Description = "Redémarrer PC"
oLink.Save
Set oLink = Nothing
set oLink = WShell.CreateShortcut(StartMenuPath & "\Éteindre PC.lnk")
oLink.TargetPath = "%systemroot%\System32\shutdown.exe"
oLink.Arguments = "-s -t 0"
oLink.WorkingDirectory = "%systemroot%\System32\"
oLink.IconLocation = "%systemroot%\System32\shell32.dll,27"
oLink.Description = "Eteindre PC"
oLink.WindowStyle = 1
oLink.Save
MsgBox "Les raccourcis ont été créés dans le répertoire..." + vbcrlf + StartMenuPath
Else
MsgBox "Les raccourcis n'ont pas été créés..."
End If
Une fois cela fait, faites enregistrer sous, type : Tous les fichiers, nommez le fichier comme : ICONES.VBS et enregistrez sur le bureau
Là cliquez sur votre fichier et cliquez sur oui, les icônes vont être créées dans votre fichier Appdata/Microsoft/Windows/MenuDemarrer
Pour ouvrir Le fichier AppData, cliquez sur le bouton WINDOWS de votre clavier et appuyer sur R en meme temps et saisissez : %appdata%
Voilà en espérant vous avoir aidé
LaDz
Source :
Aujourd'hui je poste un petit tutoriel pour comment mettre un bouton d'arrêt et redémarrer sur Windows 8 car comme tout les possesseurs de W8 le savent, pour éteindre son ordi il faut passer par plusieurs menus et c'est très chiant!
Mais grâce à moi je vais vous expliquer comment aller plus rapidement
Tout d'abord, ouvez votre bloc notes Windows et copiez y ce code :
r = MsgBox("Voulez-vous installer les boutons dans l'écran Démarrer",1,"Windows 8")
if r = 1 then
set WShell = WScript.CreateObject("WScript.Shell")
StartMenuPath = WShell.SpecialFolders("StartMenu")
set oLink = WShell.CreateShortcut(StartMenuPath & "\Redémarrer PC.lnk")
oLink.TargetPath = "%systemroot%\System32\shutdown.exe"
oLink.Arguments = "-r -t 0"
oLink.WindowStyle = 1
oLink.WorkingDirectory = "%systemroot%\System32\"
oLink.IconLocation = "%systemroot%\System32\shell32.dll,238"
oLink.Description = "Redémarrer PC"
oLink.Save
Set oLink = Nothing
set oLink = WShell.CreateShortcut(StartMenuPath & "\Éteindre PC.lnk")
oLink.TargetPath = "%systemroot%\System32\shutdown.exe"
oLink.Arguments = "-s -t 0"
oLink.WorkingDirectory = "%systemroot%\System32\"
oLink.IconLocation = "%systemroot%\System32\shell32.dll,27"
oLink.Description = "Eteindre PC"
oLink.WindowStyle = 1
oLink.Save
MsgBox "Les raccourcis ont été créés dans le répertoire..." + vbcrlf + StartMenuPath
Else
MsgBox "Les raccourcis n'ont pas été créés..."
End If
Une fois cela fait, faites enregistrer sous, type : Tous les fichiers, nommez le fichier comme : ICONES.VBS et enregistrez sur le bureau
Là cliquez sur votre fichier et cliquez sur oui, les icônes vont être créées dans votre fichier Appdata/Microsoft/Windows/MenuDemarrer
Pour ouvrir Le fichier AppData, cliquez sur le bouton WINDOWS de votre clavier et appuyer sur R en meme temps et saisissez : %appdata%
Voilà en espérant vous avoir aidé
LaDz
Source :
Vous devez être inscrit pour voir les liens ! Inscrivez-vous ou connectez-vous ici.
