Partage De Script Detection de jours de la semaine avec vocalisation et message personnel de chaque jour
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:
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> |
