ETEINDRE WINDOWS XP, ETC...
cs_paprika
Messages postés
12
Date d'inscription
samedi 23 mars 2002
Statut
Membre
Dernière intervention
8 avril 2002
-
4 avril 2002 à 17:50
ThibautXSG Messages postés 337 Date d'inscription jeudi 25 février 2010 Statut Membre Dernière intervention 26 août 2012 - 9 nov. 2010 à 15:35
ThibautXSG Messages postés 337 Date d'inscription jeudi 25 février 2010 Statut Membre Dernière intervention 26 août 2012 - 9 nov. 2010 à 15:35
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2960-eteindre-windows-xp-etc
https://codes-sources.commentcamarche.net/source/2960-eteindre-windows-xp-etc
9 nov. 2010 à 15:35
25 févr. 2007 à 22:10
27 mai 2005 à 13:54
27 mars 2005 à 12:38
27 nov. 2004 à 19:27
22 avril 2004 à 12:20
Au boulot, figurez-vous que c'est du win2000 pro ultra-administré... Alors finalement, aucune des solutions que j'ai pu trouver dans vos commentaires n'ont pu fonctionner... En même temps, je dois avouer que je suis une grosse brelle en matière de V'éh-béh !... Quoi qu'il en soit, j'ai opté pour adapter le code de Paprika au program manager de win2k...
Rendez-vous sur ma source ! ;)
ben.
1 sept. 2003 à 17:54
alors, la boite de dialogue de fermeture de choix de windows n'est plus la meme, et le tab ne fonctionne plus, voila pkoi je te mets la note de 10/10 en originalité, mais il t'aurais fallu verifier les parametres de windows pour etre sur que la solution du shutdown n'etait pas la plus simple avec un shell...
17 juin 2003 à 01:50
shell "Shutdown -t 01 -s"
pour redemarrer:
shell "Shutdown -t 01 -r"
vas voir mes sources ya un porg qui eteint windowsXP
Coder :)))
11 juin 2003 à 14:31
donc 8/10.
lol
12 avril 2003 à 09:14
Merci
31 déc. 2002 à 14:54
Bravo !!!
8 avril 2002 à 15:36
8 avril 2002 à 13:27
'----- Le code
Option Explicit
'----- Déclaration des variables locales
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const EWX_POWEROFF = 8 '<---- Très important !!!
Private Const TOKEN_ADJUST_PRIVILEGES = &H20
Private Const TOKEN_QUERY = &H8
Private Const SE_PRIVILEGE_ENABLED = &H2
Private Const ANYSIZE_ARRAY = 1
'----- Déclaration des types privés
Type LUID
LowPart As Long
HighPart As Long
End Type
Type LUID_AND_ATTRIBUTES
pLuid As LUID
Attributes As Long
End Type
Type TOKEN_PRIVILEGES
PrivilegeCount As Long
Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
End Type
'----- Déclaration des fonctions et procédures
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Command1_Click()
'----- Déclaration des variables locales
Dim hProc As Long
Dim hToken As Long
Dim mLUID As LUID
Dim mPriv As TOKEN_PRIVILEGES
Dim mNewPriv As TOKEN_PRIVILEGES
'----- Autorise le programme à quitter Windows
hProc = GetCurrentProcess()
OpenProcessToken hProc, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, hToken
LookupPrivilegeValue "", "SeShutdownPrivilege", mLUID
mPriv.PrivilegeCount = 1
mPriv.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
mPriv.Privileges(0).pLuid = mLUID
AdjustTokenPrivileges hToken, False, mPriv, 4 + (12 * mPriv.PrivilegeCount), mNewPriv, 4 + (12 * mNewPriv.PrivilegeCount)
'----- Fermeture de Windows et extinction de l'ordinateur
ExitWindowsEx EWX_POWEROFF + EWX_SHUTDOWN + EWX_FORCE, 0
end sub
'----- Fin du code
Voilà, amusez-vous bien !
@+
6 avril 2002 à 18:34
5 avril 2002 à 12:25
5 avril 2002 à 09:31
Voilà une idée bien originale.
Pour arrêter Windows, tu peux aussi utiliser la ligne de code suivante :
Call Shell("Rundll32.exe user,exitwindows", vbHide)
Si tu veux utiliser les API de Windows pour arrêter, redémarrer, te déconnecter d'une session, ou forcer l'arrêt de Windows en cas de plantage, utilises le code suivant :
1) Dans un module standard :
'Arrête Windows
Public Const EWX_SHUTDOWN = 1
'Déconnecte une session active :
Public Const EWX_LOGOFF = 0
'Redémarre Windows :
Public Const EWX_REBOOT = 2
'Force l'arrêt de Windows
Public Const EWX_FORCE = 4
'Appel de l'API :
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dw As Long) As Long
2) Dans une Form, insére 4 boutons et colle le code suivant :
'Déconnecte une session ouverte
Private Sub Command1_Click()
ExitWindowsEx 0, 0
End Sub
'Arrête Windows
Private Sub Command2_Click()
ExitWindowsEx 1, 0
End Sub
'Redémarre Windows
Private Sub Command3_Click()
ExitWindowsEx 2, 0
End Sub
'Force l'arrêt de Windows
Private Sub Command4_Click()
ExitWindowsEx 4, 0
End Sub
Et voilà.
En espèrant que celà vous sera utile ;-)
@+
Mercury.
5 avril 2002 à 09:15
Félicitation!!!!
4 avril 2002 à 23:36
A++
4 avril 2002 à 18:10
4 avril 2002 à 18:06
Mais j'aimerais bien savoir à quoi sert le "%" devant les accolades...
C'est pour envoyer le signe % ? Mais ça sert à quoi ?
Nico
4 avril 2002 à 17:50