Activer l'écran de veille

Soyez le premier à donner votre avis sur cette source.

Vue 8 291 fois - Téléchargée 339 fois

Télécharger le projet
Commenter

Description

Permet de lancer la mise en veille de votre écran

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
-
wow! une nouvelle source qui n<existe pas dejas sur le site!!! c rare ca!
7/10
Signaler
cs_Ordiman
Messages postés
40
Date d'inscription
mercredi 5 juin 2002
Statut
Membre
Dernière intervention
28 avril 2004
 -
C'est bien mais si tu ferme la feuille pendant la veille , la veille se ferme aussi :|
Signaler
phoenix591
Messages postés
32
Date d'inscription
mercredi 5 décembre 2007
Statut
Membre
Dernière intervention
18 mai 2012
 -
Je trouve ton code très intéressant, je cherchais le moyen d'activer l'écran de veille et tu me l'a donné d'une façon extrêmement simple.
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?
Signaler
moulisme1
Messages postés
9
Date d'inscription
samedi 2 janvier 2010
Statut
Membre
Dernière intervention
10 octobre 2018
 -
Salut ,aidez-moi! je suis débutant en C# , j'ai petit truc d'animation
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.
S'inscrire maintenant

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.

Du même auteur (cs_Willi)