Voilà, je cherchais un moyen pour éteindre Windows XP, mais je n'ai rien trouvé de convainquant, alors j'ai essayé d'écrire un petit code tout simple à l'aide des SendKeys, voilà ce que ça donne :
Source / Exemple :
Private Sub Command1_Click()
AppActivate ("Program Manager") 'Ouvre la fenêtre d'arrêt de l'ordinateur
SendKeys "%{F4}" & "{TAB}" & "{ENTER}" 'Commande pour arrêter l'ordinateur
End Sub
'------------// Voici le code pour mettre en veille l'ordinateur //----------------------
Private Sub Command1_Click()
AppActivate ("Program Manager") 'Ouvre la fenêtre d'arrêt de l'ordinateur
SendKeys "%{F4}" & "{ENTER}"
End Sub
'------------// Voici le code pour redémarrer l'ordinateur //----------------------
Private Sub Command1_Click()
AppActivate ("Program Manager") 'Ouvre la fenêtre d'arrêt de l'ordinateur
SendKeys "%{F4}" & "{TAB}" & "{TAB}" & "{ENTER}"
End Sub
Conclusion :
Bon, j'espère en avoir aidé plus d'un! Et si ce code est déjà sur le site, je m'en excuse d'avance, car je n'ai vraiment rien vu de tel. L'erreur est humaine...
PS : Nix, si tu lis ce mesage, peux-tu me réactiver l'accès au chat? Merci.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.