Eteindre le PC

Question

Salut &#224; tous
Je cherche un code en vb6 pour &#233;teindre directement mon pc en clickant sur un bouton sous Windows 2000

Marpi66

cs_Stephane · Answer

Salut



une petite recherche t'aurais montr&#233; le nombre de sources &#224; ce sujet



++

<hr size="2" width="100%">Merci lorsque vous posez vos questions, d'etre Fairplay, Courtois et Poli.
Soyez Pr&#233;cis dans l'explication de votre probleme.
Validez les messages qui r&#233;solvent le

Zlub · Answer

Salut,



Essais le code de [auteur/PCPUNCH/8577.aspx pcpunch] 





Public Sub ShutDownPc()

      AppActivate ("Program Manager")

      SendKeys "%{F4}" & "E" & "S" & "%{T}" & "%{R}" & "{ENTER}"

  End Sub



++

Zlub

<hr size="2" width="100%">

violent_ken · Answer

Violent Ken

Salut, salut, salut...
Zlub, le code que tu donne n'est pas tr&#232;s fiable: il s'agit en effet d'une simulation de l'arr&#234;t du PC en cliquant sur alt+fa4 ...etc sur le bureau. Pour l'avoir essayer, je peut dire que &#231;&#224; ne marche pas &#224; tout les coups.
Mais marpi66, si tu veux &#233;teindre correctement ton PC, essaye http://www.vbfrance.com/code.aspx?id=2397
Moi je poss&#232;de XP, je ne peux dond pas te confirmer que &#231;&#224; marche sous Windows 2000, mais vu l'excellent r&#233;sultat chez moi (c'est la seule source qui marche chez moi, les keybd_event et autres sendkeys foireuses, faut pas trop s'y fier), je pense que tu peux lui faire confiance (l'auteur affirme que cela marche sur WIN 9X/NT/2K/XP).
@+

BruNews · Answer

Les SendKeys sont &#224; bannir de tout prog, avec un syst&#232;me multitache on n'a jamais la garantie de qui recevra les touches.
L'API (ExitWindowsEx ici) est la seule voie correcte.

ciao...
BruNews, MVP VC++

marpi66 · Answer

Merci &#224; tous
J' ai trouv&#233; le code de  vbfrance_source_20130 qui fonctionne bien
Mais je suis tent&#233; par un sendkeys, je n'ai jamais essay&#233; cette m&#233;thode et je dois apprendre a m'en servir.

Marpi66

Zlub · Answer

Salut, ça va les mecs pour le sendkey j'avoue, Shell "shutdown -s -t 00" sinon ExitWindows X, EWX_SHUTDOWN où EWX_SHUTDOWN=1 (bug parfois sous sous XP SP2) ou Public Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&) Public Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&) Public Const SE_SHUTDOWN_PRIVILEGE& = 19 Public Const SHUTDOWN& = 0 Public Const RESTART& = 1 Public Const POWEROFF& = 2 Sub EteindrePC() RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0 NtShutdownSystem SHUTDOWN End Sub ++ Zlub

violent_ken · Answer

Violent Ken

marpi66, suis le conseil de Brunews : les sendkeys, keybd_event et autres manips foireuses sont &#224; BANNIR !
Bon, allez @+

cs_casy · Answer

Hey Zlub, Shell "shutdown -s -t 00" ne marche pas sous W2000 si j'ai bon souvenir, le petit logiciel Shutdown n'est livré qu'à partir de WinXP. Par contre Shutdown.exe est la méthode la plus propre sous XP pour arreter un PC (local ou distant d'ailleurs, chose que ne permet pas ExitWindows)

Si le cerveau était assez simple pour que nous puissions le comprendre, nous serions assez bête pour ne pas le comprendre malgré tout.

Zlub · Answer

Salut,

J'avais pas fait gaffe que c'&#233;tait pour win 2k ... trop l'habitude de win xp ;)

Mer&#231;i d'avoir corrig&#233; ma boulette...

++

Zlub

<hr size="2" width="100%">

rylryl · Answer

Salut,
Peut &#234;tre : Shell "TSSHUTDN.EXE 0 /DELAY:0 /POWERDOWN"
A+
ryl...

Eteindre le PC

10 réponses

Discussions similaires