PureBasic

Forums PureBasic
Nous sommes le Lun 18/Nov/2019 7:51

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 8 messages ] 
Auteur Message
 Sujet du message: Monitor Off ..... On
MessagePosté: Mer 13/Juin/2012 10:57 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 22/Aoû/2010 15:24
Messages: 6857
Localisation: IDF (Yvelines)
Code:
;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);

_________________

➽ Config PureBasic : i3, RAM 4Go, NVidia (1024 Mo), Windows 10 - PB 5.70 LTS
➽ Je papote aussi sur http://purebasic.chat

➽ Sites personnels http://falsam.com & EasySprite.js

➽ Je ne réponds pas aux MP techniques


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Monitor Off ..... On
MessagePosté: Mer 13/Juin/2012 11:22 
Hors ligne

Inscription: Lun 26/Avr/2004 0:40
Messages: 14535
Clavier/souris on-off

Code:
; 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



Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Monitor Off ..... On
MessagePosté: Mer 13/Juin/2012 11:24 
Hors ligne

Inscription: Lun 26/Avr/2004 0:40
Messages: 14535
tiroire CD on-off

Code:

; 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



Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Monitor Off ..... On
MessagePosté: Mer 13/Juin/2012 11:24 
Hors ligne

Inscription: Lun 26/Avr/2004 0:40
Messages: 14535
Ecran on-off :

Code:
#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 : ;)

viewtopic.php?f=1&t=11941&hilit=Debug+Ecran+eteind...+


Dernière édition par Backup le Mer 13/Juin/2012 11:30, édité 1 fois.

Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Monitor Off ..... On
MessagePosté: Mer 13/Juin/2012 11:29 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 23/Sep/2006 18:32
Messages: 6659
Localisation: Isere
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


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Monitor Off ..... On
MessagePosté: Mer 13/Juin/2012 11:35 
Hors ligne

Inscription: Lun 26/Avr/2004 0:40
Messages: 14535
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


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Monitor Off ..... On
MessagePosté: Mer 13/Juin/2012 12:03 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 22/Aoû/2010 15:24
Messages: 6857
Localisation: IDF (Yvelines)
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. !!!

_________________

➽ Config PureBasic : i3, RAM 4Go, NVidia (1024 Mo), Windows 10 - PB 5.70 LTS
➽ Je papote aussi sur http://purebasic.chat

➽ Sites personnels http://falsam.com & EasySprite.js

➽ Je ne réponds pas aux MP techniques


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Monitor Off ..... On
MessagePosté: Mer 13/Juin/2012 15:00 
Hors ligne

Inscription: Lun 26/Avr/2004 0:40
Messages: 14535
au temps pour moi alors ;)


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 8 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  
cron

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye