PureBasic

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);

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 

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 

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