Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Prog] Affichage de l'heure/date à la manière de Windows 8
Auteur Message
Répondre en citant
Message [Prog] Affichage de l'heure/date à la manière de Windows 8 
Salut !

Voici une petite application qui pour permet de voir l'heure et la date à la manière de Windows 8, c'est à dire, d'une part en déplaçant votre curseur dans le coin supérieur gauche (en haut à gauche), et d'autre part avec le design de la fenêtre. De plus, l'application est invisible dans la Barre des taches dans le Tray (Appuyez sur Echap si vous voulez quitter).






Code:
#Include <GUIConstants.Au3>
#Include <GUIConstantsEx.Au3>
#Include <WindowsConstants.Au3>

HotKeySet("{ESC}", _Quitter)

#NoTrayIcon

GUICreate("", 0, 0, 0, 0, $WS_POPUP, $WS_EX_TOOLWINDOW, $DS_MODALFRAME)
GUISetState(@SW_SHOW)

While 1
   $Pos = MouseGetPos()
   If $Pos[0] == "0" Then
     If $Pos[1] == "0" Then
       _Heure()
     EndIf
   EndIf
WEnd

Func _Heure()
   $GUI = GUICreate("", 335, 100, 10, @DesktopHeight-150, $WS_POPUP, $WS_EX_TOOLWINDOW, $DS_MODALFRAME)
   GUISetState(@SW_SHOW)
   GUISetBkColor("0x250040", $GUI)
   $Etat = "OK"
   _Afficher()
   _Date()
   While $Etat <> "KO"
     $Pos = MouseGetPos()
     If $Pos[0] <> "0" Then $Etat = "KO"
     If $Pos[1] <> "0" Then $Etat = "KO"
     If $Heure <> @HOUR Then
       GUICtrlDelete($Afficher)
       _Afficher()
     EndIf
     If $Minute <> @MIN Then
       GUICtrlDelete($Afficher)
       _Afficher()
     EndIf
   WEnd
   GUIDelete($GUI)
EndFunc

Func _Afficher()
   Global $Heure = @HOUR
   Global $Minute = @MIN

   Global $Afficher = GUICtrlCreateLabel($Heure & ":" & $Minute, 10, 8, 173, 80)
   GUICtrlSetBkColor($Afficher, "0x250040")
   GUICtrlSetColor($Afficher, "0xFFFFFF")
   GUICtrlSetFont($Afficher, 50, 100, 0, "Century Gothic")
EndFunc

Func _Date()
   Global $C = (14-@MON)/12
   Global $A = @YEAR-$C
   Global $M = @MON+12*$C-2
   Global $J = Round(Mod(@YDAY+$A/4-$A/100+$A/400+31*$M/12, 7), 0)
   Global $aMois = @MON

   If $J = "0" Then Global $Jour = "Lundi"
   If $J = "1" Then Global $Jour = "Mardi"
   If $J = "2" Then Global $Jour = "Mercredi"
   If $J = "3" Then Global $Jour = "Jeudi"
   If $J = "4" Then Global $Jour = "Vendredi"
   If $J = "5" Then Global $Jour = "Samedi"
   If $J = "6" Then Global $Jour = "Dimanche"

   If $aMois = "01" Then Global $Mois = "Janvier"
   If $aMois = "02" Then Global $Mois = "Fevrier"
   If $aMois = "03" Then Global $Mois = "Mars"
   If $aMois = "04" Then Global $Mois = "Avril"
   If $aMois = "05" Then Global $Mois = "Mai"
   If $aMois = "06" Then Global $Mois = "Juin"
   If $aMois = "07" Then Global $Mois = "Juiller"
   If $aMois = "08" Then Global $Mois = "Août"
   If $aMois = "09" Then Global $Mois = "Septembre"
   If $aMois = "10" Then Global $Mois = "Octobre"
   If $aMois = "11" Then Global $Mois = "Novembre"
   If $aMois = "12" Then Global $Mois = "Decembre"

   Global $AffJour = GUICtrlCreateLabel($Jour, 190, 23, 100, 20)
   GUICtrlSetBkColor($AffJour, "0x250040")
   GUICtrlSetColor($AffJour, "0xFFFFFF")
   GUICtrlSetFont($AffJour, 14, 100, 0, "Century Gothic")

   Global $AffDate = GUICtrlCreateLabel(@MDAY & " " & $Mois, 190, 57, 200, 20)
   GUICtrlSetBkColor($AffDate, "0x250040")
   GUICtrlSetColor($AffDate, "0xFFFFFF")
   GUICtrlSetFont($AffDate, 14, 100, 0, "Century Gothic")
EndFunc

Func _Quitter()
   Exit
EndFunc



Télécharger: https://www.sendspace.com/file/ye6gt1

ASTUCE: En mettant Heure.exe dans le fichier Démarrage (C:\Users\<Nom d'utilisateur>\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup), le programme s’exécutera lors du démarrage de Windows Wink

Dylan




______________________________________________________
Viens découvrir INTERPOL, un nouveau langage interprété !

Yahoo Messenger
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Prog] Affichage de l'heure/date à la manière de Windows 8 
Salut, superbe ! Chez moi ça fonctionne nickel. Merci du partage Very Happy




______________________________________________________
Une question ? N'hésitez pas à me contacter par Message Privé ou via le topique concerné.
Visiter le site web du posteur
Répondre en citant
Message [Prog] Affichage de l'heure/date à la manière de Windows 8 
Merci Smile




______________________________________________________
Viens découvrir INTERPOL, un nouveau langage interprété !

Yahoo Messenger
Répondre en citant
Message [Prog] Affichage de l'heure/date à la manière de Windows 8 
Juste un truck, peut-on modifier l'endroit ou ça apparait ? Car ma barre de tache est à droite de l'écran du coup l'heure n'est pas tt à fait en bas à gauche Wink Tiens moi au courant Smile

@+




______________________________________________________
Une question ? N'hésitez pas à me contacter par Message Privé ou via le topique concerné.
Visiter le site web du posteur
Répondre en citant
Message [Prog] Affichage de l'heure/date à la manière de Windows 8 
Salut !
Oui, je compte faire une mise à jour pour que l'utilisateur puisse gérer les paramètres de la fenêtre, à savoir la couleur, la position, ainsi que l'angle pour la faire apparaître Wink




______________________________________________________
Viens découvrir INTERPOL, un nouveau langage interprété !

Yahoo Messenger
Répondre en citant
Message [Prog] Affichage de l'heure/date à la manière de Windows 8 
Marche pas chez moi (PS je suis sur Win 8.1)




______________________________________________________
Visiter le site web du posteur
Répondre en citant
Message [Prog] Affichage de l'heure/date à la manière de Windows 8 
Cela vient peut être du fait que tu es sous Windows 8, et que peut être que l'application est caché par la ChamBar ou autres chose...




______________________________________________________
Viens découvrir INTERPOL, un nouveau langage interprété !

Yahoo Messenger
Répondre en citant
Message [Prog] Affichage de l'heure/date à la manière de Windows 8 
Apparament, elle n'est pas caché car l'application n'est même ps dans les processus :/ (je l'ai téléchargé avec le link)




______________________________________________________
Visiter le site web du posteur
Répondre en citant
Message [Prog] Affichage de l'heure/date à la manière de Windows 8 
Vérifie encore une fois car le processus n'est pas Heure.exe mais AutoIt3.exe.
De plus, l'application est invisible dans la barre des taches ainsi que dans les icônes cachées.

Sinon, je n'ai pas de solution possible, désolé.




______________________________________________________
Viens découvrir INTERPOL, un nouveau langage interprété !

Yahoo Messenger
Répondre en citant
Message [Prog] Affichage de l'heure/date à la manière de Windows 8 
C'est bon, désolé, Avast bloquait ^^
Sous Windows 8.1 ça fonctionne et ça donne ça :





Et sous mon Windows 8.1 (la version originale si je puis dire ^^ )






______________________________________________________
Visiter le site web du posteur
Répondre en citant
Message J'adore 
Super !!!!




______________________________________________________
Visiter le site web du posteur Skype
Message [Prog] Affichage de l'heure/date à la manière de Windows 8 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch