Discussion :

[pirouge]

Bonjour,
J’aimerai que lorsque j’exécute mon programme (en VB6) il empêche mon pc (sous XP) de se mettre en veille.
Avez-vous une solution ?
Merci d’avance.

[ProgElecT]

Salut

Je n'ai jamais utilisé

Options de la ligne de commande Powercfg
Comment faire pour désactiver et réactiver la mise en veille prolongée sur un ordinateur Windows

-HIBERNATE, -H
Active ou désactive la fonction de veille prolongée.
Le délai pris en charge sur tous les systèmes.

Syntaxe: POWERCFG -H <ON|OFF>
POWERCFG -H -Size <Taille_%>
-Size Spécifie la taille souhaitée du fichier de mise en veille prolongée
en pourcentage de la mémoire totale.
La taille par défaut ne peut pas être inférieure à 50.
Ce commutateur activera aussi automatiquement le fichier de mise en veille prolongée.

Donc a essayer avec un shell Cmd DOS, powercfg -H off en entrée du programme, powercfg -H on en sortie

[pirouge]

Bonjour,
J’aimerai que lorsque j’exécute mon programme (en VB6) il empêche mon pc (sous XP) de se mettre en veille.
Avez-vous une solution ?
Merci d’avance.

Bonjour,
Merci,de m’avoir donné une reponse que je ne croyais plus mais dans mon ignorance ce texte ne me suffit pas ,il faut me donner plus d’explication ? Ou plutôt toute la formule S.V. P.je suis un type, qui a beaucoup d’idées mais je ne sais pas les appliquer, Merci d’Avance

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim RetVal
RetVal = Shell("powercfg -H off", 2)
If RetVal = 0 Then
  MsgBox "problèmé", vbCritical
  Else
  MsgBox "Réussite, mais je rétabli", vbInformation
  RetVal = Shell("powercfg -H on", 2)
End If

Mais je le répète, je n'ai jamais eu besoin de cette commande, donc tu devras faire des essais.

[pirouge]

Bonjour,
Merci,de m’avoir donné la soloution complete
Si j’ai bien compris ,mettre en première ligne du programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim RetVal
RetVal = Shell("powercfg -H off", 2)
If RetVal = 0 Then
  MsgBox "problèmé", vbCritical
  End If

Et en fin de programme avant " End "mettre : RetVal = Shell("powercfg -H on", 2)
Me corriger si c’est faut S.V.P.

Merci,de m’avoir donné la solution complète vous êtes très très bien je l’ai essayée ce matin sur mon portable et cela fonctionne très bien,jai mis la mise en veille PC à 10 minutes et j’ai démarré le programme je l’ai fait fonctionner environ 1h sans rien toucher et il ne s’est pas mis en veille donc c’est que ça fonctionne et après j’ai arrête le programme et au bout de 10 min il s’est mis en veille ,conclusion ça fonctionne très bien