Commentaires sur une source : ETEINDRE SON ÉCRAN

papopipu Messages postés 2 Date d'inscription mercredi 25 juillet 2012 Statut Membre Dernière intervention 9 août 2012
25 juil. 2012 à 20:33

Const SC_ECRANPOWER As Integer = &HF170 <= dépassement de capacité

cs_sandrine29 Messages postés 21 Date d'inscription vendredi 2 mai 2003 Statut Membre Dernière intervention 8 décembre 2007
25 mai 2009 à 20:53

Parfait.
Fonctionne aussi avec l'écran de son PC fixe, sous XP.

cs_magicgus Messages postés 206 Date d'inscription mardi 10 février 2004 Statut Membre Dernière intervention 14 septembre 2011
29 avril 2009 à 22:17

Ca doit être pas mal, mais ça n'a pas fonctionner chez moi, je pense qu'il peut y'avoir plein d'utilité à un tel code...

Perso je serait interessé pour un truc similaire avec tout de fois la possibilité de choisir l'ecran a eteindre.

PS : je suis sous vista utli 64

cs_intik Messages postés 33 Date d'inscription dimanche 6 juillet 2003 Statut Membre Dernière intervention 12 septembre 2007
30 mars 2009 à 22:26

mdr lol j'ai pas vu... c'est le code d'origine j'ai juste adapter pr vista et le dernier vb...

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
25 mars 2009 à 08:22

inutile de commenter pour paraphraser...
If t2 True Then 'si t2 true

cs_intik Messages postés 33 Date d'inscription dimanche 6 juillet 2003 Statut Membre Dernière intervention 12 septembre 2007
25 mars 2009 à 07:44

MISE A JOUR POUR COMPATIBILITE VISTA :
NOTE :
Attention sur vista l'ecran se rallume et s'eteing, dans le cas ou vous bougea la souris ou quoi... je suis en train de chercher une alternative a sa... si non voila le code...

Option Strict Off
Option Explicit On
Friend Class Form1
Inherits System.Windows.Forms.Form
'UPGRADE_ISSUE: La déclaration d'un paramètre 'As Any' n'est pas prise en charge. Cliquez ici : 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="FAE78A8D-8978-4FD4-8208-5B7324A8F795"'
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal nVirtKey As Integer) As Short
'fonction pour récuperer les touches du clavier
Const WM_SYSCOMMAND As Integer = &H112
Const SC_ECRANPOWER As Integer = &HF170
Const ECRAN_ON As Integer = -1
Const ECRAN_OFF As Integer = 2
Public A As Integer 'Pour dire si on garde lécran allumé ou fermé.

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Me.Hide() 'On cache l'aplication.
End Sub

Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
Dim t As Boolean 't comme touche
Dim t2 As Boolean
Dim t3 As Booleant GetAsyncKeyState(System.Windows.Forms.Keys.F12) 'Quand on appuie sur F12 t trueIf t True Or A 1 Then 'si t = true ou que a = 1 (donc si on demande de garder l'écran fermé)
A = 1 'on demande de garder l'écran fermé
SendMessage(Me.Handle.ToInt32, WM_SYSCOMMAND, SC_ECRANPOWER, ECRAN_OFF) 'on éteint l'écran
Me.Visible = True
End Ift2 GetAsyncKeyState(System.Windows.Forms.Keys.F11) 'Quand on appuie sur F11 t2 trueIf t2 True Then 'si t2 true
A = 0 'on demande d'arreter d'éteindre l'écran
Me.Visible = False
End Ift3 GetAsyncKeyState(System.Windows.Forms.Keys.F10) 'si on fait F10 t3 trueIf t3 True Then 'si t3 True alors
End 'on éteint l'écran
End If
End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub
End Class

PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
27 août 2008 à 15:07

pas d'exe dans les zip, c'est aussi indiqué dans la FAQ.
il te faut VB6, toujours expliqué dans la FAQ lue...

pas de solution miracle, tu es sur un site de développeurs, pas sur télécharger.com

bonne journée

cs_maht Messages postés 2 Date d'inscription mercredi 27 août 2008 Statut Membre Dernière intervention 27 août 2008
27 août 2008 à 14:46

J'ai lu le faq mais il n'existerais pas un programme . exe ?

Un truc simple ou on a juste double-cliquer ?

Parce que là je dl le fichier zip mais je sais pas quoi faire des trucs téléchargé.

PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
27 août 2008 à 14:33

FAQ : http://www.vbfrance.com/doc/faq.aspx#vb_src

cs_maht Messages postés 2 Date d'inscription mercredi 27 août 2008 Statut Membre Dernière intervention 27 août 2008
27 août 2008 à 14:30

Je télécharge le dossier zip mais je sais pas comment faire pour lancer le programme...

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
2 nov. 2007 à 06:57

en adaptant très legerement le code, ca fonctionnera effectivement dans VB2005 (la version Express est gratuite)

FireJeff Messages postés 5 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 1 novembre 2007
1 nov. 2007 à 18:24

Ouai, of course. Au début j'ai cru que c'était à cause de ça, mais mêem après l'avoir installé ça marchait pas. Fin, c'est pas grave, j'en ai pas besoin pour cet ordi (j'aurai qu'à appuyer sur le bouton de l'écran pour l'éteindre ^^ L'autres c'est un portable, c'est différent, mais là le log marche...). Pour compiler la source, il faut utiliser le logiciel "Visual Basic 6"?! C'est ça? Il est payant nan? Est ce que avec la nouvelle version ça marche (Visual Basic 2005)? (parce que je crois que certaines normes ont changé....) Heuu, j'ai pas réussi à trouver de version d'évaluation pour Visual basic 6, dommage....

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
1 nov. 2007 à 16:39

le Runtime VB6 est il egalement installé ?

FireJeff Messages postés 5 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 1 novembre 2007
1 nov. 2007 à 12:16

Oki, fin, j'ai réussi à trouver le fichier compiler en .exe sur un autre site. Tu peux le télécharger ici: http://www.vosfichiers.com/8355555
Par contre, je sais pas pourquoi, mais le exe ne marche pas (il veut pas s'ouvrir) sur un de mes ordis. Pourtant c'est le même OS d'installé...

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
1 nov. 2007 à 02:34

le Runtime te permet uniquement de lancer des programmes effectivement ecrits en VB6, mais avec cette nuance qu'ils doivent avoir été compilés (un .exe, quoi)

donc là, ca ne t'avance pas...

FireJeff Messages postés 5 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 1 novembre 2007
31 oct. 2007 à 18:57

Alors, c'est bizarre....
J'ai installé VB6 runtime, normalement, je dois pourvoir exécuter le fichier VBP. Mais il est associé à aucun logiciel..., comment je fait?? Quand je double clique dessus, il me demande avec quel log je dois l'ouvrir...

FireJeff Messages postés 5 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 1 novembre 2007
31 oct. 2007 à 17:41

Merci beaucoup RENFIELD!
Jte tiens au courant si j'y arrive... xD

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
31 oct. 2007 à 16:42

il faut le logiciel 'Visual Basic 6'

http://logiciel.codes-sources.com/logiciels/Visual-Basic-131.aspx

et lancer le fichier VBP

FireJeff Messages postés 5 Date d'inscription lundi 19 mars 2007 Statut Membre Dernière intervention 1 novembre 2007
31 oct. 2007 à 16:17

NCasanova, j'ai le même soucis que toi. Je suis nouveau sur le site, et je mis connait pas trop en programmation... Si vous pouvez m'expliquer comment on le lance...
Merci d'avance

NCasanova Messages postés 1 Date d'inscription dimanche 5 août 2007 Statut Membre Dernière intervention 6 août 2007
6 août 2007 à 22:10

Euh...excusez moi si j'ai l'air un peu idiot mais...comment on utilise ce code? Comment on le lance? Désolé mais je suis débutant, et un exe me serait plus simple.
Excusez moi du dérangement, mais j'ai vraiment besoin de ça!
D'avance merci de vos futures réponses.

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
6 mars 2007 à 13:13

extraies le code qui va bien dans un nouvel exe...

appelle cet exe depuis le planificateur de taches, ou bien lance le (serrvice?) en permanence, et a l'heure dite, jouer avec l'ecran...

TOUT le code utile est là :

SendMessage Me.hWnd, WM_SYSCOMMAND, SC_ECRANPOWER, ECRAN_OFF
ou
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_ECRANPOWER, ECRAN_ON

ptifranfran Messages postés 6 Date d'inscription dimanche 12 novembre 2000 Statut Membre Dernière intervention 6 mars 2007
6 mars 2007 à 13:06

bonjour, pour moi aussi ce programme est vraiment ce qu'il me faut mais j'aimerais, au lieu d'appuyer sur une touche pour éteindre et allumer, donner une heure pour éteindre et une heure pour allumer l'écran.
ex : 18h00 eteint et 9h00 allumé.
Quelqu'un a une idée ???

mstaub Messages postés 51 Date d'inscription dimanche 24 août 2003 Statut Membre Dernière intervention 29 octobre 2010 2
1 févr. 2007 à 16:55

Coucou,
Merci à vous tous ! ça MARCHE !! c'est exactement ce qu'il me fallait . merci encore

ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 26
15 janv. 2007 à 20:52

salut,

peut être que tu peux trouver la solution dans les liens suivants :
http://www.codeproject.com/system/display_states.asp
http://www.codeproject.com/useritems/Monitor_management_guide.asp

j'aurais tendance à dire qu'il faut utiliser HWND_BROADCAST ou GetDesktopWindow à la place du hwnd de la fenêtre

ShareVB

mstaub Messages postés 51 Date d'inscription dimanche 24 août 2003 Statut Membre Dernière intervention 29 octobre 2010 2
15 janv. 2007 à 12:08

Salut cette astuce est vraiment ce que je cherche sauf que:
j'aimerai que c'est dans un timer que l'extinction et le rallumage se passe.
l'extinction se passe super bien mais pas le rallumage !!
j'ai meme essayer avec un sendkey histoire de simuler la frappe d'une touche RIEN n'y fait je suis obliger d'appuyer sur une touche moi meme et la ça marche QUE FAIRE ? si vous avez une idée ... je suis preneur !!!

ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 26
13 déc. 2006 à 16:09

oupss...ca serait même :

const ECRAN_ON as long = -1
const ECRAN_OFF as long = 2
const ECRAN_STANBY as long = 1

ShareVB

ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 26
13 déc. 2006 à 16:04

salut,

astuce très intéressante...

cependant, d'après mes tests, les constantes ECRAN_ON et ECRAN_OFF devrait être :
Const ECRAN_ON As Long = -1
Const ECRAN_OFF As Long = 1

du moins avec un portable sous XP Pro SP2...

ShareVB

helefkaem Messages postés 3 Date d'inscription jeudi 19 juin 2003 Statut Membre Dernière intervention 4 septembre 2006
4 sept. 2006 à 10:14

Génial, juste ce que je cherchais !!

Aurazed Messages postés 36 Date d'inscription jeudi 16 février 2006 Statut Membre Dernière intervention 26 mai 2008
14 juil. 2006 à 11:27

Pas mal comme source.
Tu as pensé a l'adapter en .Net.?

cs_azerty25 Messages postés 1114 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 6 mai 2007
17 nov. 2005 à 12:20

Apprend à lire

lsp972 Messages postés 1 Date d'inscription mercredi 16 novembre 2005 Statut Membre Dernière intervention 16 novembre 2005
16 nov. 2005 à 11:40

je ne trouve pa le fichier exe. ou je peux le trouver??

ratala Messages postés 248 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 22 juin 2008
1 nov. 2005 à 17:24

Normal il y en a pas !
il a été suprimé pandant l'upload.

Omegalex Messages postés 5 Date d'inscription samedi 29 octobre 2005 Statut Membre Dernière intervention 31 octobre 2005
31 oct. 2005 à 23:44

Je ne trouve pas le .exe dans le zip.

ratala Messages postés 248 Date d'inscription jeudi 3 février 2005 Statut Membre Dernière intervention 22 juin 2008
25 oct. 2005 à 13:05

NAH666 comment est le led de ton écran après avoir fait F12 ? Quand tu fais F10 ou F11 après est-ce que ton écran se rallume ?

cs_azerty25 Messages postés 1114 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 6 mai 2007
25 oct. 2005 à 07:28

C'est ce que je voulais dire ;) Sinon, c'est bien

The_Diablange Messages postés 20 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 15 mars 2008
24 oct. 2005 à 12:37

Petite amélioration a mediter....
Trouver comment éteindre un des deux écrans quand on utilise un ordinateur en double écran

Diablange

nah666 Messages postés 75 Date d'inscription samedi 30 août 2003 Statut Membre Dernière intervention 7 janvier 2008 1
24 oct. 2005 à 08:48

J'ai un probleme, quand je lance ton programme, mon ecran tombe en panne et je suis obligé de redemarrer l'ordinateur.

Tu crois que c'est les drivers de ma carte graphique ?

IApplication Messages postés 16 Date d'inscription dimanche 30 décembre 2001 Statut Membre Dernière intervention 21 juillet 2006
23 oct. 2005 à 12:42

Bien joué pour la constante ;-)

cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
22 oct. 2005 à 16:45

C'est excellent cà, je connaissait pas cette constante pour éteindre l'écran.

J'espère juste qu'on ne va pas voir arriver une floppée de source dans ce genre comme on l'a vu avec l'ouverture du lecteur de CD-ROM.

Petit code tout simple qui remplit son office : 9/10

DarK Sidious

ETEINDRE SON ÉCRAN

Votre réponse

Discussions similaires