Bonjour à tous je me permet de partager un script (HTA)

Un Script qui détecté les jours de la semaine avec vocalisation et message personnel pour chaque jour de la semaine.
Un Grand merci à ProgElect un Script de sa création

Code html : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
<HTML>
	<HEAD>
	<TITLE> vocaliser le jour en cours </TITLE>
		<HTA:APPLICATION
         ApplicationName = "ProgDemo"
         Id="ProgDemo"
		>
	</HEAD>
	<SCRIPT language="VBScript" type="text/VBScript" >
                Sub Window_Onload()
                        ResizeTo 500, 250 ' dimensionnement de la fenêtre HTA (largeur, hauteur)
                        MeTop = (Screen.availHeight - 250) / 2: MeLeft = (Screen.availWidth-500)/2
                End sub
'------------------------------------------------------------------------------------------------------------------
    Sub ProgDemo_OnDBlClick()
      'ApplicationName = "ProgDemo" nom donné au HTA
      'toutes Subs consernant les evenements du HTA comencera par son id donc "ProgDemo_" + nom de l'evenement
 
      Dim Voix
      Dim TblNomJour(7), MotDuJour(7), NumJour, NomJour
 
      TblNomJour(0)="lundi"
      TblNomJour(1)="mardi"
      TblNomJour(2)="mercredi"
      TblNomJour(3)="jeudi":
      TblNomJour(4)="vendredi"
      TblNomJour(5)="samedi"
      TblNomJour(6)="dimanche":
      
      MotDuJour(0) = "Du courage pour ce "        'lundi
      MotDuJour(1) = "Bon "                       'mardi
      MotDuJour(2) = "Milieu de semaine ce "      'mercredi
      MotDuJour(3) = "Dernière ligne droite, "    'jeudi
      MotDuJour(4) = "Demain la quille, "         'vendredi
      MotDuJour(5) = "Ouf  "                      'samedi
      MotDuJour(6) = "Grace matinée? "            'dimanche
  
      NumJour = (Weekday(date,2) - 1)   ' <------- lundi = 1-1 .....   samedi = 7-1
      NomJour = TblNomJour(NumJour)     ' <------- 0 = lundi   .....   6 = dimanche
      
      Set Voix = CreateObject("SAPI.SpVoice")
      Voix.Speak MotDuJour(NumJOur) + NomJour
      Set Voix = NotHing ' Nettoyage
       Window.Close()
    End Sub
'------------------------------------------------------------------------------------------------------------------
        </SCRIPT>
	<Body>
	Démonstration simplifiée<br /><br />
	Double cliquez pour écouter
	</Body>
</HTML>