Monitor Off ..... On

Codes specifiques à Windows
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Monitor Off ..... On

Message par falsam »

Code : Tout sélectionner

;Monitor Off/On

#Monitor_OFF=2
#Monitor_ON=-1

;Ecran eteint
SendMessage_(#HWND_BROADCAST, #WM_SYSCOMMAND, #SC_MONITORPOWER, #Monitor_OFF);

;On patiente un peu
Delay(400)

;Ecran allumé
SendMessage_(#HWND_BROADCAST, #WM_SYSCOMMAND, #SC_MONITORPOWER, #Monitor_ON);
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Monitor Off ..... On

Message par Backup »

Clavier/souris on-off

Code : Tout sélectionner

; Chris
If OpenWindow(0, 0, 0, 200, 40, "BlockInput", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    
    If CreateGadgetList(WindowID(0))
        TextGadget(0, 10, 10, 180, 20, "", #PB_Text_Center)
    EndIf
EndIf
 
top = 10
SetTimer_(WindowID(0), 1, 1000, 0)
SetGadgetText(0, RSet(Str(top), 2, "0") +" - Tout est bloqué")
BlockInput_(#True)
Repeat
    
    Select WaitWindowEvent()
        Case #PB_Event_CloseWindow : Quit = #True
            
        Case #WM_TIMER
            If top = 0
                BlockInput_(#False) : KillTimer_(WindowID(0), 1)
                SetGadgetText(0, RSet(Str(top), 2, "0") +" - Clavier et souris débloqués")
            Else
                SetGadgetText(0, RSet(Str(top), 2, "0") +" - Tout est bloqué")
            EndIf
            top - 1
            
    EndSelect
Until Quit

; 
; EPb 

Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Monitor Off ..... On

Message par Backup »

tiroire CD on-off

Code : Tout sélectionner


; ouvre le tiroir du cd 

mciSendString_("open F:\ type cdaudio alias cdaudio"); // le lecteur est ici F

mciSendString_( "set cdaudio door open", "", 0,0)
Delay(5000)
 ;ferme le tiroire du CD
mciSendString_( "set cdaudio door closed", "", 0,0)

mciSendString_("close cdaudio", 0, 0, 0);


; 
; EPb 

Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Monitor Off ..... On

Message par Backup »

Ecran on-off :

Code : Tout sélectionner

#OFF=2
#ON=-1

;#HWND_BROADCAST=0

#WM_SYSCOMMAND=$0112
#SC_MONITORPOWER=$F170

;WM_SYSCOMMAND = &H112
;SC_MONITORPOWER = &HF170

SendMessage_(#HWND_BROADCAST, #WM_SYSCOMMAND, #SC_MONITORPOWER, #OFF);
Debug "Ecran eteind..."

Delay(5000)

SendMessage_(#HWND_BROADCAST, #WM_SYSCOMMAND, #SC_MONITORPOWER, #ON);
Debug "Ecran allumé..."

; 
; EPb 

p: essaye de donner tes sources ..... la prochaine fois ..... ce code est tres ancien ;)

voir ici : ;)

http://www.purebasic.fr/french/viewtopi ... ran+eteind...+
Dernière modification par Backup le mer. 13/juin/2012 11:30, modifié 1 fois.
Avatar de l’utilisateur
Kwai chang caine
Messages : 6962
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Re: Monitor Off ..... On

Message par Kwai chang caine »

Cool !!! Ca marche niquel
Merci FALSAM 8)

@XXXXX
Ca bloque rien, je peux cliquer et ecrire partout avec VISTA et v4.51 :(
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Monitor Off ..... On

Message par Backup »

Kwai chang caine a écrit : @XXXXX
Ca bloque rien, je peux cliquer et ecrire partout avec VISTA et v4.51 :(
marche tres bien sous Seven 64 bit Purebasic 4.60
Avatar de l’utilisateur
falsam
Messages : 7244
Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :

Re: Monitor Off ..... On

Message par falsam »

Dobro a écrit :p: essaye de donner tes sources ..... la prochaine fois ..... ce code est tres ancien ;)
Je ne me souviens pas ou plus que j'avais vu ça quelques part. Tu remarqueras aussi que je ne défini pas les constantes #WM_SYSCOMMAND et #SC_MONITORPOWER dans mon code.

Mes seules lignes se résument à
SendMessage_(#HWND_BROADCAST, #WM_SYSCOMMAND, #SC_MONITORPOWER, #Monitor_OFF);
Source Microsoft http://social.msdn.microsoft.com/Forums ... 72f403d8cd (Exactement la meme hein ?)
Delay(400) (Source Pure basic)

SendMessage_(#HWND_BROADCAST, #WM_SYSCOMMAND, #SC_MONITORPOWER, #Monitor_ON);
Source Microsoft http://social.msdn.microsoft.com/Forums ... 72f403d8cd

Le code complet est sur le même lien.

Tout ça pour te dire que je n'ai pas l'habitude de citer des codes PB appartenant à d'autres sans le mentionner. !!!
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Re: Monitor Off ..... On

Message par Backup »

au temps pour moi alors ;)
Répondre