Hello la ML,
Question comme ça, en passant, une bribe de souvenir : est-ce que
l'utilitaire en line de commande appelé NirCMD n'a pas parmi ses options
quelque chose en rapport avec l'extinction de l'écran justement? IL
n'est peut-être pas différent des autres, mais est-ce que quelqu'un le
connaît mieux que je n'en parle?
J.-F.
Le 27/03/2012 22:46, Yannick Youalé écrit :
>
> Re-salut à tous !
>
> Sur son lit de mort, entouré par ses généraux, à la question de savoir à qui
> il léguait son empire, Alexendre le grand répondit:
>
> "<Je lègue mon empire au plus fort d'entre vous."
>
> Ce qui était une façon de dire que le pouvoir ne se donne pas, il s'arrache.
>
> Notre autonomie, notre confort, nous devront également l'arracher. En nous
> servant de ce qui a déja été conçu pour les autres, et que nous adapterons
> nous même à nos besoins.
>
> Après une petite recherche, j'ai trouvé des exemples de code, démontrant en
> plusieurs langages comment éteindre et ralumer le moniteur de l'ordinateur.
> Mais etant pensé par des voyants, ils prévoient le ralumage de l'ordinateur
> dès un mouvement de la souris. Cela au moins pour deux des quatre codes que
> je vous propose plus bas. Les autres, je ne les ai pas testé.
>
> Quittes à nous maintenant de trouver un moyen pour annuler cette réaction.
>
> Les langages abordés sont:
> * VB6
> * VB.net
> * c#
> * delphy
>
> Mais le code devrait être transportable sans trop de problèmes.
>
> D'après ma première observation, cela se fait en paramétrant la fonction
> SendMessage.
>
> Je vous laisse regarder.
>
>
> Langage : VB6 , VBA
> Date ajout : 07/12/2008
> Posté par PCPT [Liste]
> DateMAJ : 07/12/2008
> Private Const WM_SYSCOMMAND As Long =&H112
> Private Const SC_MONITORPOWER As Long =&HF170&
> Private Const HWND_BROADCAST As Long =&HFFFF
> 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
> '
> Public Sub SetScreenPowerOff()
> Call SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 1&)
> End Sub
> Public Sub SetScreenPowerOn()
> Call SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 0&)
> End Sub
>
> Remarque :
> après un appel à SetScreenPowerOff, le mouvement de la souris rallume
>
> naturellement l'écran
> Ajouter aux favoris Snippet VS 2005 (VB)
> Langage : VB.NET 1.x , VB 2005 , VB 2008
> Date ajout : 08/12/2008
> Posté par Charles Racaud [Liste]
> Private Const WM_SYSCOMMAND As Integer =&H112UI
> Private Const SC_MONITORPOWER As Integer =&HF170I
> Private ReadOnly HWND_BROADCAST As IntPtr = New IntPtr(&HFFFFI)
>
> <DllImport("user32")> _
> Private Function SendMessage(ByVal hwnd As IntPtr, ByVal wMsg As UInteger,
>
> ByVal wParam As Integer, ByVal lParam As Integer) As Integer
> End Function
>
> Public Sub SetScreenPowerOff()
> Call SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 1)
> End Sub
> Public Sub SetScreenPowerOn()
> Call SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 0)
> End Sub
> Ajouter aux favoris Snippet VS 2005 (C#)
> Langage : C# 1.x , C# 2.x , C# 3.x
> Date ajout : 08/12/2008
> Posté par Charles Racaud [Liste]
> private const uint WM_SYSCOMMAND = 0x112U;
> private const int SC_MONITORPOWER = 0xF170;
> private static readonly IntPtr HWND_BROADCAST = new IntPtr(0xFFFF);
>
> [DllImport("user32")]
> private static extern int SendMessage(IntPtr Handle, uint wMsg, int wParam,
>
> int lParam ) ;
>
> public static void SetScreenPowerOff() {
> SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
> }
> public static void SetScreenPowerOn() {
> SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 0);
> }
> Ajouter aux favoris
> Langage : Delphi 5
> Date ajout : 14/05/2009
> Posté par Alcofribas_Nasier [Liste]
> procedure Syst_MonitorSleep(Valeur: boolean);
> var
> hWnd: THandle;
> begin
> //handle de broadcast, la procedure fonctionne aussi avec application.handle
> hWnd := 65535;
> if Valeur then //si Valeur est a TRUE on met le moniteur en veille
> SendMessage(hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2)
> else //sinon on le force à sortir de la veille
> SendMessage(hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
> end;
>
> Remarque :
> N'oubliez pas d'ajouter "Tlhelp32" dans vos uses...
>
>
> Voilà !
>
> J'essaierai de m'y pencher plus en profondeur un peu plus tard.
>
> Yannick Daniel Youalé
> La programmation est une religion. Aimez-la, ou quittez-la.
>
>
>
>
> ----- Original Message -----
> From: "daniel serge free"<daniel.se...@free.fr>
> To:<progliste@ml.free.fr>
> Sent: Tuesday, March 27, 2012 8:29 PM
> Subject: [progliste] Re: Comment masquer l'écran de son ordi
>
>
>>
>> bonjour,
>>
>> Simple mon économiseur d'écran :
>> la touche off de l'écran ne dérange pas jaws !
>>
>> Bon je sais l'effort intellectuel pour trouver ceci est incommensurable...
>>
>> Mais j'économise car j'ai le même écran depuis mon premier ordi sous xp et
>> maintenant sous w7...
>>
>> En fait ceci me permet de consulter les dossiers de mes patients avec les
>> informations médicales que je dois protéger...
>>
>> Donc avec une oreillette et l'écran éteint.
>>
>> Amicalmement
>> Serge
>>
>>
>>
>> --------------------------------------------------
>> From: "Yannick Youalé"<mailtoloco2...@gmail.com>
>> Sent: Tuesday, March 27, 2012 7:07 PM
>> To:<progliste@ml.free.fr>
>> Subject: [progliste] Comment masquer l'écran de son ordi
>>
>>>
>>> Salut à tous !
>>>
>>> Je viens vous demander des idées sur une astuce qui consisterait à
>>> masquer
>>> son écran tout en étant capable de continuer à manipuler l'ordinateur
>>> avec
>>> jaws..
>>>
>>> Je m'explique. Au boulot je travaille avec des écouteurs. Donc sur ce
>>> point là, personnes à part moi ne peu savoir ce que j'écoute.
>>> Mais pour ce qui est de la vue, quelqu'un peu très bien passer derrière
>>> moi, et cela arrive souvent, et découvrir sur mon écran ce que je suis en
>>> train de faire.
>>>
>>> Je me demandais s'il n'y avait pas un moyen, un logiciel, une astuce,
>>> n'importe quoi qui pourrait me permettre aumieux d'afficher quelque
>>> chose
>>> qui n'a rien à voir avec la fenêtre sur laquelle je suis en réalité, ou
>>> au
>>> moins d'éteindre temporairement l'écran pour me permettre de faire des
>>> trucs pas autorisé au bureau.
>>>
>>> Comme tentative Jusqu'ici, je me suis fait un code pour manipuler la
>>> luminosité de l'écran, mais les voyants arrivent malgré tout à lire les
>>> écritures à l'écran même quand c'est réglé à 0%.
>>>
>>> Aidez-moi !
>>>
>>> Yannick Daniel Youalé
>>> La programmation est une religion. Aimez-la, ou quittez-la.
>>> Progliste :
>>> Pour se désinscrire de la liste :
>>> mailto:progliste-requ...@ml.free.fr?subject=unsubscribe
>>>
>>> Pour voir les archives de la liste :
>>> http://www.mail-archive.com/progliste@ml.free.fr/
>>>
>>> Pour accéder aux fichiers de la liste
>>> http://outils.archive-host.com/partage.php?id=2Qar9Hy6ftzr
>>> Pour y ajouter des fichiers demandez-moi le ou sur la liste ou en privé,
>>> je vous répondrez en privé.
>>>
>>
>> Progliste :
>> Pour se désinscrire de la liste :
>> mailto:progliste-requ...@ml.free.fr?subject=unsubscribe
>>
>> Pour voir les archives de la liste :
>> http://www.mail-archive.com/progliste@ml.free.fr/
>>
>> Pour accéder aux fichiers de la liste
>> http://outils.archive-host.com/partage.php?id=2Qar9Hy6ftzr
>> Pour y ajouter des fichiers demandez-moi le ou sur la liste ou en privé,
>> je vous répondrez en privé.
>>
>
>
> Progliste :
> Pour se désinscrire de la liste :
> mailto:progliste-requ...@ml.free.fr?subject=unsubscribe
>
> Pour voir les archives de la liste :
> http://www.mail-archive.com/progliste@ml.free.fr/
>
> Pour accéder aux fichiers de la liste
> http://outils.archive-host.com/partage.php?id=2Qar9Hy6ftzr
> Pour y ajouter des fichiers demandez-moi le ou sur la liste ou en privé, je
> vous répondrez en privé.
Progliste :
Pour se désinscrire de la liste :
mailto:progliste-requ...@ml.free.fr?subject=unsubscribe
Pour voir les archives de la liste :
http://www.mail-archive.com/progliste@ml.free.fr/
Pour accéder aux fichiers de la liste
http://outils.archive-host.com/partage.php?id=2Qar9Hy6ftzr
Pour y ajouter des fichiers demandez-moi le ou sur la liste ou en privé, je
vous répondrez en privé.
