[..] Detecter la fermeture ou l'ouv. de l'ecran d'u portable

[xeno]

j'aimerais pouvoir lancer des actions quand je referme l'ecran d'un ordinateur portable
et l'inverse aussi, quand j'ouvre l'écran.

je précise que l'ordinateur est utilisé avec un ecran déporté, et ne se met donc pas en veille lorsque l'ecran est fermé.

Je ne vois pas trop comment faire, pour détecter cet état, des idées ?

Merci

[Tlem]

Il semble que ce ne soit pas simple :
http://www.autoitscript.com/forum/topic ... _p__687164
http://www.autoitscript.com/forum/topic ... _p__632091

[xeno]

a priori GUID_LIDSWITCH_STATE_CHANGE & GUID_LIDCLOSE_ACTION

permettrait de connaitre l'état, mais du coup est ce qu'il est possible de faire la connexion avec autoit ?

http://social.msdn.microsoft.com/Forums ... 6b57211b3a

voici d'autres liens de ce que j'ai trouvé, que je met au cas où quelqu'un y verrait une solution
il y a aussi >> RegisterPowerSettingNotification <<>> WM_POWERBROADCAST <<>> PBT_POWERSETTINGCHANGE <<

http://msdn.microsoft.com/en-us/library/aa372723.aspx

apparement il y aurait une solution sous autohotkey içi,
http://www.autohotkey.com/forum/topic67426.html

http://www.autohotkey.com/forum/topic18472.html
http://msdn.microsoft.com/en-us/library/aa373196.aspx

je nage en ce moment

[sylvanie]

Yaarrrrghhhh (ie : Cette problèmatique très intéressante m'a donné du fil à retordre, et c'est pénible à tester)

J'ai réussi à stimuler la bête mais pas avec l'évènement GUID_LIDSWITCH_STATE_CHANGE, d'ailleurs je n'ai pas vu le lien avec RegisterPowerSettingNotification sur le forum MSDN
J'ai donc enregistrer l'évènement avec GUID_POWERSCHEME_PERSONALITY, en m'inpirant d'un portage en C++.

Au début je pensait que le handle avec lequel on s'enregistre pouvait être un pointeur vers une fonction callback, mais ça ne marche pas. C'est alors que j'ai bien lu et vu qu'il s'agit d'un handle sur une GUI.
Donc on créé une GUI (dont on récupère le handle), on l'enregistre à RegisterPowerSettingNotification , ce qui fait qu'on peut obtenir les message de notification de GUID_POWERSCHEME_PERSONALITY via un broadcast par le message WM_POWERBROADCAST (=0x218). Et pour écouter ce broadcast on utilise GUIRegisterMsg en passant en argument le nom d'une fonction à nous (et c'est donc la le code que tu désires exécuter)
Dans mon exple je me suis contenter de faire du "print" console + fichier.
Et donc en fermant et réouvrant mon clap (modulo une mise en veille), j'ai constaté 3 appels.
En espérant que ça puisse aider :

► Afficher le texte

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Change2CUI=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;#Include <Array.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>


;dim $GUID_LIDSWITCH_STATE_CHANGE[11]=[0xBA3E0F4D,0xB817,0x4094,0xA2,0xD1,0xD5,0x63,0x79,0xE6,0xA0,0xF3]

Dim $GUID_POWERSCHEME_PERSONALITY[6]=[ 0x245d8541,0x3943,0x4422,0xb025,0x13A7,0x84F679B7 ]
$dimension=ubound($GUID_POWERSCHEME_PERSONALITY)
$structstate=DllStructCreate("dword state["&$dimension&"]")
For $ind=0 To $dimension-1
    DllStructSetData($structstate,"state",$GUID_POWERSCHEME_PERSONALITY[$ind],$ind)
Next
$ptrstate=DllStructGetPtr($structstate,"state")

;$GUID_POWERSCHEME_PERSONALITY='{245D8541-3943-4422-B025-13A784F679B7}'

;$handle = DLLCallbackRegister ("RegisterPowerSettingNotification", "int", "HANDLE;ptr;dword")
;$hnd =  DllCallbackGetPtr($handle)
;$hnd= WinGetHandle("")
$hnd = GUICreate("test")

$resul=DllCall("User32.dll", "int", "RegisterPowerSettingNotification", "HANDLE",$hnd,"ptr",$ptrstate,"dword",0)
ConsoleWrite(@error&@CRLF)
If IsArray($resul) Then
    ConsoleWrite("retours = "&$resul[0]&@CRLF)
    ;_ArrayDisplay($resul)
    If $resul[0] = 0 Then Exit 2
Else
    Exit 3
EndIf

GUISetState()
ConsoleWrite("register = "&GUIRegisterMsg ( 0x218, "MyRegisterPowerSettingNotification" )&@CRLF)

While 1
    $msg =GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop

    Sleep(250)
WEnd
func MyRegisterPowerSettingNotification($hwnd,$Msg, $wParam, $lParam)

    FileWrite(@ScriptDir&"\gdbclap.txt",$hwnd&" "&$Msg&" "&$wParam&" "&$lParam)
    ConsoleWrite("Dbg="&$Msg&@CRLF)
EndFunc
 

[xeno]

je te remercie de ton implication,

j'ai testé et la seul action que j'ai, c'est quand je coupe l'alim et la rebranche.

sous quel version de windows as tu fais tes test ?, moi c'est sous seven x86

j'essaye de décortiqué ton code pour mieux comprendre, mais je m'arrache les cheveux

[sylvanie]

Bonjour,
je l'ai fait sur un Seven 64 bits, code compilé en 32 bits, cependant, je pense que ça marche chez moi parce que mon PC se met en hibernation lors de la fermeture du clap, contrairement à la problématique exposée.

Il faudrait peut être essayer avec d'autres options que GUID_POWERSCHEME_PERSONALITY, de mémoire je croie qu'il y a 2 autres valeurs possibles. Là je commence à me lancer plutôt dans le petit chimiste ...

Bon courage

[xeno]

Il faudrait peut être essayer avec d'autres options que GUID_POWERSCHEME_PERSONALITY, de mémoire je croie qu'il y a 2 autres valeurs possibles. Là je commence à me lancer plutôt dans le petit chimiste ...

c'est ce que j'ai commencé a essayé de faire, je m'y prend surement mal pour l'instant, mais bon... il faut bien essayer

[sylvanie]

Je n'ai plus vraiment l'opportunité de tester (mon portable est en mode "partage" avec Madame en mode 70%-30%) donc je ne vais pas pouvoir y replonger avant qq tps ... (je suis le 30% )
Sinon ça donne quoi avec les deux autres variables ?

[xeno]

j'ai essayer avec d'autres variables, mais sans grand succès

Comme je l'ai déjà dis je ne maitrise pas encore cette histoire de dll, mais c'est déjà mieux que cela à été

a tout hasard je met içi ce que j'ai bidouillé à partir de ton code, si cela peut inspirer du monde..

► Afficher le texte

Code : Tout sélectionner

;~ http://www.autoitscript.fr/forum/viewtopic.php?f=4&t=7190
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Change2CUI=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <Array.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
;#RequireAdmin


;~ dim $GUID_LIDSWITCH_STATE_CHANGE[11]=[0xBA3E0F4D,0xB817,0x4094,0xA2,0xD1,0xD5,0x63,0x79,0xE6,0xA0,0xF3]
;~ dim $GUID_LIDSWITCH_STATE_CHANGE[5]=[0xBA3E0F4D,0xB817,0x4094,0xA2,0xD1D56379E6A0F3]
;~ GUID_LIDCLOSE_ACTION/GUID_LIDOPEN_POWERSTATE


Dim $GUID_MONITOR_POWER_ON[6]=[0x02731015,0x4510,0x4526,0x99e6,0xe5a1,0x7ebd1aea]


;~ GUID_LIDOPEN_POWERSTATE ,0x99FF10E7,0x23B1,0x4C07,0xA9,0xD1,0x5C,0x32,0x06,0xD7,0x41,0xB4 ;http://doxygen.reactos.org/d1/d86/xdk_2potypes_8h_a830d15451d4148e77f51ec655bf4b16a.html
;~ dim $GUID_LIDCLOSE_ACTION[11]=[0x5CA83367, 0x6E45, 0x459F, 0xA2, 0x7B, 0x47, 0x6B, 0x1D, 0x01, 0xC9, 0x36]
dim $GUID_LIDCLOSE_ACTION[11]=[0x5ca83367,0x6e45,0x459f,0xa2,0x7b,0x47,0x6b,0x1d,0x01,0xc9,0x36]
;~ dim $GUID_LIDCLOSE_ACTION[11]=[0xBA3E0F4D,0xB817,0x4094,0xA2,0xD1,0xD5,0x63,0x79,0xE6,0xA0,0xF3]
;~ GUID_LIDCLOSE_ACTION_FLAGS, 0x97E969AC, 0x0D6C, 0x4D08, 0x92, 0x7C, 0xD7, 0xBD, 0x7A, 0xD7, 0x85, 0x7B);
;~ GUID_LIDOPEN_POWERSTATE, 0x99FF10E7, 0x23B1, 0x4C07, 0xA9, 0xD1, 0x5C, 0x32, 0x06, 0xD7, 0x41, 0xB4);


Dim $GUID_POWERSCHEME_PERSONALITY[6]=[ 0x245d8541,0x3943,0x4422,0xb025,0x13A7,0x84F679B7 ]
;~ $dimension=ubound($GUID_POWERSCHEME_PERSONALITY)
$dimension=ubound($GUID_LIDCLOSE_ACTION)
$structstate=DllStructCreate("dword state["&$dimension&"]")
For $ind=0 To $dimension-1
    DllStructSetData($structstate,"state",$GUID_LIDCLOSE_ACTION[$ind],$ind)
Next
$ptrstate=DllStructGetPtr($structstate,"state")

;$GUID_POWERSCHEME_PERSONALITY='{245D8541-3943-4422-B025-13A784F679B7}'

;~   GUID_MONITOR_POWER_ON ='{02731015-4510-4526-99e6-e5a17ebd1aea}';
;~   GUID_BATTERY_PERCENTAGE_REMAINING ='{a7ad8041-b45a-4cae-87a3-eecbb468a9e1}';
;~   GUID_POWERSCHEME_PERSONALITY ='{245D8541-3943-4422-B025-13A784F679B7}';
;~ "{5ca83367-6e45-459f-a27b-476b1d01c936}"



;~ $handle = DLLCallbackRegister ("RegisterPowerSettingNotification", "int", "HANDLE;ptr;dword")
;~ $hnd =  DllCallbackGetPtr($handle)
;$hnd= WinGetHandle("")
$hnd = GUICreate("test")

$resul=DllCall("User32.dll", "int", "registerPowerSettingNotification", "HANDLE",$hnd,"ptr",$ptrstate,"dword",0)
ConsoleWrite(@error&@CRLF)
If IsArray($resul) Then
    ConsoleWrite("retours = "&$resul[0]&@CRLF)
    _ArrayDisplay($resul)
;~     If $resul[0] = 0 Then Exit 2
Else
;~     Exit 3
EndIf

GUISetState()
ConsoleWrite("register = "&GUIRegisterMsg ( 0x0, "_MyRegisterPowerSettingNotification" )&@CRLF)

While 1
    $msg =GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop

    Sleep(250)
WEnd
func _MyRegisterPowerSettingNotification($hwnd,$Msg, $wParam, $lParam)

    FileWrite(@ScriptDir&"\gdbclap.txt",'$hwnd '&$hwnd&" "&'$Msg '&$Msg&" "&'$wParam '&$wParam&" "&'$lParam '&$lParam&@CRLF)
    ConsoleWrite("Dbg="&$Msg&@CRLF)
EndFunc