extinction PC XPRésolu

Question

Bonjour,

je voudrais faire un petit programme en VB6 afin d'éteindre mon PC apres un délai saisie par l'utilisateur (notamment moi !!!)
donc tout simplement j'ai une textBox pour saisir le délai et un bouton pour le lancer.

code : Private sub command_click()
       delai = val(text1.text)
       shell ("shutdown -s -f -t " & "delai")
       end sub

mais il me renvoie l'erreur d'execution '424' : un objet est requis

Je ne vois pas du tout pourquoi, pourriez vous m'aider.

Merci

i386 · Accepted Answer

ca y est j'ai trouvé !!!!!!!!!!!!!!!

c'est tout bête.
Voici la source en une ligne qui marche chez moi (windows XP pro et home):

Private Sub Command1_Click()
    Shell ("shutdown -s -f -t " & Val(Text1.Text))
    End
End Sub

Juste besoin d'une textbox et d'un bouton !!! et deux lignes de code !!!!
J'espère qu'il pourra servir à d'autres (j'avais pas trouver de code ou des bien plus compliqué pour cette action toute bête !!!).

Merci à iloveprog pour les guillemets et à violent_ken.

Salut

ps : ah enfin, une journée pour un petit truc de rien du tout mais qui a payé, je vais pouvoir mater des films sans avoir besoin de me relever pour éteindre le PC ou a tapé une ligne de code sous l'invite de commande.

violent_ken · Answer

Violent Ken

Salut. Je vais &#234;tre franc, la m&#233;thode de "shell(shutdown)...." et plein d'autres n'ont JAMAIS march&#233; chez moi non plus. J'avais tout essay&#233; (sous XP) et rien n'a march&#233; ... sauf http://www.vbfrance.com/code.aspx?id=2397.   L&#224; c'est nickel. Je te coneille d'utiliser cette source aussi !
@+

i386 · Answer

Merci Violent_Ken

Mais a part des commentaires, j'ai pas trouvé de source ...
Pourrais tu m'aider un peu plus.

Merci encore .

violent_ken · Answer

Violent Ken

Salut. En fait je viens de me rendre compte que la source n'existe plus ? Il y a les commentaires, mais pas de code.
Donc voil&#224; le code, litt&#233;ralement tir&#233; de la source que je t'ai conseill&#233; : (&#224; mettre dans un MODULE)



' d&#233;clarations des constantes pour l'api (c po moi ki les d&#233;finis !!! lol demand&#233; o kro$)
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const EWX_POWERDOWN = 8
Private Const TOKEN_ADJUST_PRIVILEGES = &H20
Private Const TOKEN_QUERY = &H8
Private Const SE_PRIVILEGE_ENABLED = &H2
Private Const ANYSIZE_ARRAY = 1
Private Const VER_PLATFORM_WIN32_NT = 2

' structure pour la version de l'OS
Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

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

'bon alors ici on d&#233;clare les fonctions API Win32 (cf. API Win32)
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 Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long

' fonction ki renvoi si l'OS est de type NT (interne)
Public Function IsWinNT() As Boolean
Dim myOS As OSVERSIONINFO
myOS.dwOSVersionInfoSize = Len(myOS)
GetVersionEx myOSIsWinNT (myOS.dwPlatformId VER_PLATFORM_WIN32_NT)
End Function

' fonction qui active le ShutDown, au cas ou le syst&#232;me serais de type NT
Private Sub EnableShutDown()
Dim hProc As Long
Dim hToken As Long
Dim mLUID As LUID
Dim mPriv As TOKEN_PRIVILEGES
Dim mNewPriv As TOKEN_PRIVILEGES
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)
End Sub

' fonction qui &#233;teint le PC (Force=true oblige le traitement)
Public Sub ShutDownNT(Force As Boolean)
Dim ret As Long
Dim FLAGS As Long
FLAGS = EWX_SHUTDOWN
If Force Then FLAGS = FLAGS + EWX_FORCE
If IsWinNT Then EnableShutDown
ExitWindowsEx FLAGS, 0
End Sub

' fonction qui &#233;teint totalement la tour (Force=true oblige le traitement)
Public Sub PowerDownNT(Force As Boolean)
Dim ret As Long
Dim FLAGS As Long
FLAGS = EWX_POWERDOWN
If Force Then FLAGS = FLAGS + EWX_FORCE
If IsWinNT Then EnableShutDown
ExitWindowsEx FLAGS, 0
End Sub

' fonction qui fait rebooter l'OS (Force=true oblige le traitement)
Public Sub RebootNT(Force As Boolean)
Dim ret As Long
Dim FLAGS As Long
FLAGS = EWX_REBOOT
If Force Then FLAGS = FLAGS + EWX_FORCE
If IsWinNT Then EnableShutDown
ExitWindowsEx FLAGS, 0
End Sub

' fonction qui d&#233;logue l'user (Force=true oblige le traitement)
Public Sub LogOffNT(Force As Boolean)
Dim ret As Long
Dim FLAGS As Long
FLAGS = EWX_LOGOFF
If Force Then FLAGS = FLAGS + EWX_FORCE
ExitWindowsEx FLAGS, 0
End Sub

Voil&#224; ! Pour l'utilisation, tu fait un truc du genre :

Private Sub Form_Load()
      timer1.enabled=false
end sub

Private sub Eteindre_PC()
       delai = val(text1.text)
       timer1.enabled=true
       timer1.interval=delai         ' donc au maximum le temps g&#233;r&#233; par un timer ! Attention !
'si tu veux &#233;teindre &#224; une HEURE pr&#233;cise, utilise Date$ et Time$
       PowerDownNT(true)
end sub
end sub

Voil&#224; !!
@+

i386 · Answer

Merci Viloent_ken,

ouhlala, ca va etre tendu de comprendre tout ca pour un débutant comme moi, je pensais qu'en deux lignes, c'était jouable, mais non ...

Va falloir que j'apprenne ce qu'est une API win32 ... c'est pas gagné

merci encore !!!

violent_ken · Answer

Violent Ken


Tu n'est pas oblig&#233; de tout garder dans le programme. Si tu ne veux qu'ETEINDRE sous WINDOWS XP, tu peux simplement utiliser cette partie :


Private Const EWX_SHUTDOWN = 1
Private Const EWX_FORCE = 4
Private Const EWX_POWERDOWN = 8
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long


' fonction qui &#233;teint le PC (Force=true oblige le traitement)
Public Sub ShutDownNT(Force As Boolean)
    Dim ret As Long
    Dim FLAGS As Long
    FLAGS = EWX_SHUTDOWN
    If Force Then FLAGS = FLAGS + EWX_FORCE
    ExitWindowsEx FLAGS, 0
End Sub


' fonction qui &#233;teint totalement la tour (Force=true oblige le traitement)
Public Sub PowerDownNT(Force As Boolean)
    Dim ret As Long
    Dim FLAGS As Long
    FLAGS = EWX_POWERDOWN
    If Force Then FLAGS = FLAGS + EWX_FORCE
    ExitWindowsEx FLAGS, 0
End Sub 


Voil&#224;. Le programme g&#233;rais en fait aussi le reboot et le deloguage, mais aussi supportait diff&#233;rent OS (XP,NT,2000...)
Donc le voil&#224; &#233;pur&#233; pour &#233;teindre windows XP.
Je n'ai pas vraiment retest&#233;, mais &#231;&#224; devrais marcher sans soucis !
Tu peux utiliser aussi bien PowerDownNT que ShutDownNT, la diff&#233;rence est que sur certain PC, seul PowerDownNT &#233;teind totalement le PC.
Voil&#224; !!
@+

iloveprog · Answer

Je ne suis pas sur que ca marche mais remplace ton code par :

 Private sub command_click()
       delai = val(text1.text)
       shell ("shutdown -s -f -t " & delai)
       end sub


delai ne doit pas etre entre guillemet ; c'est une valeur pas une phrase

iloveprog · Answer

Je ne suis pas sur que ca marche mais remplace ton code par :

 Private sub command_click()
       delai = val(text1.text)
       shell ("shutdown -s -f -t " & delai)
       end sub


delai ne doit pas etre entre guillemet ; c'est une valeur pas une phrase

cs_mateo1975 · Answer

comme violantken le shell shutdown ne marche pas a tous les coups chez moi

par contre l'utilisation de l'api ExitWindowsEx  c'est du 100 %

i386 · Answer

Salut,

Oui c'est sur que le code de Violent_ken marche &#224; tous les coups, mais pour le comprendre faut pas etre un d&#233;butant (comme moi !!!).
En tout cas les deux lignes que j'ai &#233;crite marche &#224; chaque fois chez moi, ce qui me satisfait pour l'instant ...

Au revoir

cs_pompomp · Answer

bonjour,
je voualis moi aussi faire un petit utilitaire pour &#233;teindre l'ordi, et j'ai donc essay&#233; de suivre vos exemples comme suit :



Private 
Sub Timer1_Tick(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Timer1.Tick


EteindrePC(
True)



End 
Sub

/*et dans un module*/


Private 
Declare 
Function ExitWindowsEx 
Lib "user32" (
ByVal uFlags 
As 
Integer, 
ByVal dwReserved 
As 
Integer) 
As 
Boolean



Private 
Const EWX_SHUTDOWN 
As 
Integer = 1

Private 
Const EWX_FORCE 
As 
Integer = 4

Private 
Const EWX_POWERDOWN 
As 
Integer = 8



Public 
Sub EteindrePC(
ByVal Force 
As 
Boolean)
   
Dim FLAGS 
As 
Integer
   FLAGS = EWX_SHUTDOWN
   
If Force 
Then FLAGS = FLAGS + EWX_FORCE
   ExitWindowsEx(FLAGS, 0)

End 
Sub

j'avais aussi essay&#233; en pla&#231;ant directement dans la fonction du timer :

Shell ("shutdown -s -f -t ")

mais rien de tout &#231;a ne marche.

Par contre, j'avais utilis&#233; la premi&#232;re m&#233;thode avec la constante EWX_LOGOFF, et l&#224; pas de pb.
Si vous avez une solution &#224; mon probl&#232;me, merci.

i386 · Answer

Salut PomPom,

Pour ma solution il n'y a pas de timer, en fait dans une texte box tu précise le temps en seconde et quand tu appui sur le bouton cmdOk, ca passe à l'invite de commande de windows le code "shutdown -s -f -t" .le temps précisé dans la texte box se met derrière le t de la commande (car la temporisation par défaut est de 20s)

Voila, je ne sais pas si j'ai été assez clair.

De plus, la solution de ViloentKen marchera partout car elle utilise des api windows, mais bon la mienne marche sur XP home & Pro au moins (en tout cas chez moi).

Bon courrage, tiens nous au courrant.

Salut

cs_pompomp · Answer

moi, j'aimerais que le pc s'eteigne &#224; la fin du d&#233;compte du timer. Je n'ai donc pas de valeur &#224; pr&#233;ciser derri&#232;re le "shutdown" et c'est ce que j'ai fait (et je pense que cela devrait etre bon).
Quand j'utilise un point d'arr&#234;t, je remarque que la fonction EteindrePc() est bien prise en compte, que FLAGS 1 (donc &#224; Shutdown, sachant que j'ai enlev&#233; la ligne FLAGS FLAGS + EWX_FORCE parce que sinon, je trouvais Flags = 5 et je ne sais pas &#224; quelle constante 5 correspond).
Ensuite, quand je laisse le pointeur sur ExitWindowsEx, j'obtiens le message : "Declare Ansi function ExitWindowsEx lib "user32" ( 
uFlags As Integer, ByVal dwReserved As Integer)"

Voil&#224;, merci pour votre aide

Extinction PC XP

13 réponses

Discussions similaires