Codes specifiques à Windows
falsam
Messages : 7244 Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :
Message
par falsam » mer. 13/juin/2012 10:57
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
Message
par Backup » mer. 13/juin/2012 11:22
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
Message
par Backup » mer. 13/juin/2012 11:24
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
Message
par Backup » mer. 13/juin/2012 11:24
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.
Kwai chang caine
Messages : 6962 Inscription : sam. 23/sept./2006 18:32
Localisation : Isere
Message
par Kwai chang caine » mer. 13/juin/2012 11:29
Cool !!! Ca marche niquel
Merci FALSAM
@XXXXX
Ca bloque rien, je peux cliquer et ecrire partout avec VISTA et v4.51
Backup
Messages : 14526 Inscription : lun. 26/avr./2004 0:40
Message
par Backup » mer. 13/juin/2012 11:35
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
falsam
Messages : 7244 Inscription : dim. 22/août/2010 15:24
Localisation : IDF (Yvelines)
Contact :
Message
par falsam » mer. 13/juin/2012 12:03
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
Message
par Backup » mer. 13/juin/2012 15:00
au temps pour moi alors