Soyez le premier à donner votre avis sur cette source.
Vue 8 519 fois - Téléchargée 358 fois
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
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.