Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprivate Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long ... Call SendMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
Public Const WM_SYSCOMMAND = &H112& Public Const SC_SCREENSAVE = &HF140& 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 Private Declare Function GetDesktopWindow Lib "user32" () As Long
Sub es() Call SendMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0&) End Sub
dimanche 15 novembre 2009 à 18:09:27 | Ecran de veille
Bonsoir, désolé de reposter un sujet qui vient d'être bloqué mais je lance bien la macro es(), mais la macro se lance seulement si je change le type d'ecran de veille (dans les parametres de l'ecran de veille) juste avant de la lancer et qu'une seule fois après plus rien.
Merci Footale.
Private Sub CommandButton1_Click() Call SendMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0&) End Sub
Public Const WM_SYSCOMMAND = &H112& Public Const SC_SCREENSAVE = &HF140& 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 Declare Function GetDesktopWindow Lib "user32" () As Long