Activer l'écran de veille
Soyez le premier à donner votre avis sur cette source.
Vue 8 417 fois - Téléchargée 355 fois
Description
Permet de lancer la mise en veille de votre écran
Il vous faut bien évidement une feuille et puis un bouton de commande
Il vous faut bien évidement une feuille et puis un bouton de commande
Source / Exemple :
Option Explicit
'Déclaration de l'API
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'Déclaration des constantes
Private Const WM_SYSCOMMAND = &H112&
Private Const SC_SCREENSAVE = &HF140&
Private Sub Command1_Click()
Dim startSS As Long
startSS = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub
Codes Sources
A voir également
- Sc_screensave
- Activer - désactiver l'ecran de veille - Codes sources - Visual Basic / VB.NET (Ecrans de veille)
- (vbs)information sur l'écran de veille : pass, activé... - Codes sources - Visual Basic / VB.NET (Sécurité)
- (des) activer ecran de veille - Codes sources - Visual Basic / VB.NET (API)
- C# / .NET : Savoir si l'écran de veille (screensaver) est activé (configuré co - Guide
- Modifier le temps au bout duquel l'écran de veille s'active ✓ - Forum - Visual Basic
Commentaires
enfaîte mon problème est de pouvoir désactiver la mise en veille de mon PC
pour que mon animation reste sur l'ecrant!
Merci
Cordialement.
Pour une de mes appli VB6, j'ai besoin de tester et d'arrêter l'écran de veille (en programme VB6, sans mouvement de souris ni frappe clavier), peux tu m'aider?
7/10
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.